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Einleitung 


Das  Beste 
vom  Besten 


Die  besten  Programme  aus  der  64’er:  Ein  Leckerbissen  son¬ 
dergleichen! 

Im  April  1984  wurde  das  erste  Heft  der  64’er,  dem  Magazin 
für  Computerfans,  geboren.  Und  schon  seit  dieser  Ausgabe 
konnten  wir  Sie  mit  hervorragenden  Programmen  überra¬ 
schen.  Bereits  im  64’er,  Ausgabe  5/84  gab  es  das  erste  Listing 
des  Monats,  ein  Zeichen  für  ein  hervorragendes  Programm,  ei¬ 
ne  ausgefallene  Idee,  eben  ein  Spitzenprodukt.  Es  gab  jedoch 
noch  eine  ganze  Reihe  von  Listings,  die  dieses  Prädikat  auch 
verdient  haben.  Die  besten  von  ihnen,  darunter  zwei  Program¬ 
me  aus  unserer  Schwesterzeitschrift  Happy-Computer,  und 
eine  Auswahl  aller  Listings  des  Monats  haben  wir  für  Sie  in  die¬ 
sem  Sonderheft  zusammengestellt.  Wahrlich  ein  Menü,  das  es 
in  dieser  Brisanz  bisher  nicht  gegeben  hat.  Es  gibt  Programme 
zu  den  Themen 

—  Anwendung, 

—  Grafik, 

—  Hilfsprogramme  (Utilities)  und 

—  Spiele. 

Alle  Programme  sind  noch  einmal  überarbeitet  worden. 
Wenn  es  Fehler  gegeben  hat,  wurden  sie  verbessert.  Auch  Er¬ 
weiterungen  zu  einigen  Programmen,  zum  Beispiel  zu  Hl- 
EDDI,  haben  wir  nicht  vergessen.  Durch  die  beiden  Eintipphil¬ 
fen  Checksummer  (Seite  16)  und  MSE  (Seite  18)  werden  Sie 
die  Listings  fehlerfrei  eintippen  können. 


Grafik 

Dem  C  64  Grafik  zu  entlocken,  ist  eine  anstrengende,  aber 
auch  ungeheuer  interessante  Aufgabe.  Was  auf  diesem  Gebiet 
von  unseren  Lesern  gezaubert  wurde,  ist  fast  nicht  zu  glauben. 
HI-EDDI  (Seite  58)  schlägt  wohl  nicht  nur  alle  Rekorde,  son¬ 
dern  stellt  auch  die  meisten  vergleichbaren  professionellen 
Mal-  und  Zeichenprogramme  in  den  Schatten.  Wenn  Sie  mehr 
ein  Anhänger  bewegter  Grafik  sind,  sollten  Sie  sich  Trickfilm 
(Seite  85)  unbedingt  anschauen.  Natürlich  fehlt  auch  nicht  die 
Grafikerweiterung  Turtle-Grafik  (Seite  71). 


RUSH 
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Hilfsprogramme 

Ein  Meilenstein  wurde  gesetzt  mit  Hypra-Load  (Seite  94). 
Das  Laden  von  Programmen  von  der  Floppy  wird  mit  diesem 
sensationellen  Programm  stark  beschleunigt.  Etwas  später 
kam  Hypra-Save  (Seite  124)  hinzu  und  machte  nun  auch  das 
Speichern  von  Programmen  schneller.  Um  Schnelligkeit  geht's 
auch  beim  Exsort  (Seite  92),  dem  Sortierprogramm  für  alle  Fäl¬ 
le,  das  mehr  kann  als  nur  einfach  sortieren.  Für  Freunde  von 
Sprachen  gibt  es  gleich  zwei  Leckerbissen:  Strubs  (Seite  98), 
der  Precompiler  mit  zusätzlichen  Basic-Befehlen  und  ein 
Förth-Compiler  (Seite  116). 

Spiele 

Anhänger  von  Abenteuerspielen,  den  Adventures,  werden 
mit  dem  Grab  des  Pharaos  (Seite  126)  und  In  der  Burg  des 
Grauens  (Seite  135)  knifflige  Situationen  meistern  müssen. 
Abwechslung  bringt  dann  aber  mit  Sicherheit  Apocalypse  now 
(Seite  140),  und  wer  Wert  auf  Geschicklichkeit  legt,  kann  sich 
mit  Springvogel  vergnügen  (Seite  148),  ein  Spiel,  das  nicht  so 
schnell  langweilig  wird,  weil  Sie  einfach  eigene  neue  Bilder  ent¬ 
wickeln  können. 


Anwendungen 

Der  C  64  ist  bekannterweise  nicht  nur  ein  Computer  zum 
Spielen,  Programmieren  und  Experimentieren.  Viele  Leser  ver¬ 
wenden  ihn  als  Hilfsmittel,  um  bestimmte  Aufgaben  leichter 
und  schneller  lösen  zu  können,  zum  Beispiel  zur  statistischen 
Auswertung  beim  Kegelclub  (Alle  Neune...,  Seite  31)  oder  zum 
Protokollieren  und  Nachspielen  von  Schachpartien  (Schach¬ 
meister,  Seite  28).  Sie  können  Ihre  Freunde  und  Bekannten 
mit  persönlichen  und  speziellen  Kreuzworträtseln  überra¬ 
schen  (Seite  40).  Aber  auch  Musiker  (Synthesizer,  Seite  48) 
und  Astronauten  (Sternenhimmel,  Seite  34)  kommen  auf  Ihre 
Kosten,  und  angehende  Millionäre  sind  mit  der  Finanzmathe¬ 
matik  (Seite  20)  auf  dem  besten  Weg  dorthin. 


Listing-Servlce 

Wer  keine  Zeit  oder  keine  Lust  hat,  alle  Programme  selbst 
in  mühevoller  Kleinarbeit  abzuschreiben,  kann  wieder  auf 
den  bewährten  Leserservice  zurückgreifen.  Alle  Program¬ 
me  befinden  sich  auf  zwei  Disketten  mit  der  Bestellnummer 
L6  85  S6.  Die  Disketten  sind  nur  zusammen  erhältlich  und 
kosten  34,90  Mark. 

Bitte  verwenden  sie  für  Ihre  Bestellung  die  beigefügte 
Postscheck-Zahlkarte  zur  Überweisung  des  Rechnungs¬ 
betrages.  Sie  erleichtern  uns  die  Auftragsabwicklung  und 
Sie  sparen  sich  die  3  Mark  Versandkosten. 

Bestell-Nr.:  L6  85  S6  /  34,90  Mark 
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Schachmeister 

Darauf  haben  viele  Schachspieler  ge¬ 
wartet:  Der  C  64  nicht  nur  als  Schach¬ 
partner,  sondern  auch  als  Protokollant 
eigener  Schachpartien.  Natürlich 
kann  man  sich  auch  große  Meister¬ 
schaftspartien  zu  Gemüte  führen.  Be¬ 
sonders  gut  eignet  sich  der  »Schach¬ 
meister«  zum  Einstudieren  von  Eröff¬ 
nungen. 


Jede  beliebige  Schachpartie  kann  am  Bildschirm  mit 
guter  grafischer  Darstellung  nachvollzogen  werden. 


Weißt  Du  wieviel  Sternlein 

stehen... 

Mit  diesem  fantasti¬ 
schen  Programm  wird 
der  C  64  zum  Heim- 
Planetarium.  Für  jeden 
beliebigen  Zeitpunkt 
und  für  jeden  Ort  der 
Erde  kann  in  Sekun¬ 
denschnelle  eine 
naturgetreue  elektroni¬ 
sche  Sternkarte  erstellt 
werden.  Sie  enthält  die 
hellsten  und  bekann¬ 
testen  Fixsterne 
beziehungsweise 
Sternbilder 
des  nördlichen 
Sternenhimmels. 
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Senkrecht : 

121  U  Dialog  ait  d.  Computer  arbeiten;  13)  Speicherzelle  eit  direkten  Zugriff;  (4)  Folge  von  Buchstaben/ 
Ziffern;  15)  Frograsedarstellung  auf  Papier;  (61  Einheit  des  elektrischen  Stroos;  17)  Engl.  f.  Stapel; 
(11)  Tastenfolge  b.  engl.  Tastaturen;  (13)  «enge  der  veruendbaren  Syibole;  (15)  Sanelbegriff  f. 
Coiputerbauteile;  (17)  Rueckkehr  in  den  Anfangszustand:  (1BI  Spannungs-  oder  Stroesignal;  (1?)  Billiger 
Bandspeicher;  121)  Jargon  f.  'Diskettenstation’;  (221  Ein  Punkt  auf  de»  ßrafikbildschire;  (241  Hoehere 
strukturierte  Progr, Sprache;  126)  Vo»  Coepiler  erzeugter  Kode;  128)  Folge  v.  Anueisungen  an  d.  Conputer; 
(301  Basic-Befehl  Laden  des  Speichers;  (31)  Variable  z.  Ueberoabe  an  Unterpror.i  (34)  Simulation  eines 
frenden  Loeputers;  (33)  Druckerteil  I,  Endlospapier;  (38)  Nediua  zu«  Festhalten  von  Daten;  (401  Synbolische 
Einheit  f . Mertzuwei sung;  (411  Parallele  Drucker-Schnittstelle;  (461  Logik  eit  diskreten  Zustaenden; 
(471  Billiger  Bassenspeicherj  (4?)  Logische  Inforeationseinheit;  (501  Symbol i scher  Naue  f.  eine  Adresse; 
(51)  Einzelne  logische  Funktion;  156)  Populaeres  Betriebssyteo  f.  Z30-uP;  (5/1  Abk.  f.  'Digital  nach  Analog'; 
(5BI  Verbindungsleitung  n  Prozessor;  (591  Abk.  f.  Analog  nach  Digital';  (60)  Hersteller  von  Hikrocoeputern; 
163)  Steuerzeichen  f.  Kontrol 1  Codes;  (641  Rikroschalter  auf  der  Platine;  (66)  ASCU-Zeichen  f.  Zeilenvorschub; 
(6BI  Verzueigungsanweisung  in  BASIC:  172)  Strahiungseinheit;  (74)  Abk.f.  'hoehemertiges  Bit'; 
175)  Abk.f . 'Eskfusiv-Oder  -Verknueprung;  176)  Abk.f.  'Negahertz';  (81)  Engl.  f.  Haedchen;  (B6)  Neues  Testament; 
(89)  Evangelisch;  (90)  Grand  Prix:  (92)  Volksxagen;  193)  Deutscher  Fussballbund;  (96)  Kurzbez.  1.  '  1 icht jihr ' : 
197)  Doktor;  (98)  kurzbez,  f.  'Technische  Univers. ';  11021  Fima;  (104)  Interessengeieinschaft 


Dieses  Programm,  einst  aus 
einem  Wettbewerb  entstan¬ 
den,  ist  genau  das  richtige 
für  Rätselsüchtige,  die  auch 
mal  den  umgekehrten 
Weg  gehen  wollen:  ein 
Kreuzworträtsel  von 
seiner  Entstehung  an 
mitverfolgen  zu  können. 
Sämtliche  Schwierigkeiten 
die  dabei  auftreten 
können,  werden  vom  C  64 
übernommen.  Sie  können 
sich  ganze  Bibliotheken  von 
Fachbegriffen  aufbauen,  so 
daß  nachher  Kreuzworträt¬ 
sel  entstehen,  die  auf  einen 
ganz  bestimmten  Leserkreis 
zugeschnitten  sind.  Eine 
tolle  Anwendung  in  einer 
Schülerzeitung  oder  für  ein 
persönliches  Rätsel  für 
Freunde  und  Bekannta 
Was  ins  Rätsel  hinein¬ 
kommt,  ist  ganz  allein 
Ihre  Sacha 


Waagerecht : 

(I)  Aufgabe  dieses  Nettbexerbs 


,  - ,  (B)  Nichtiges  Eingabegeraet;  . _ ... 

(101  Schreibbarke  auf  de»  Bildschir«;  112)  Basic-Befehl  zu»  Lesen  d.  Speichers; 
Bytefolge;  (16)  Leicht  lernbare  Progr.-Sprache;  120)  Heldung  ueber  einen  Geraetzustand; 
Bytes  oder  4  Bit:  125)  Prograet  zu»  Starten  von  Coiputern;  (271  6eraet  z.  Coapi 

29)  Einheit  f.  d,  elektr.  Fapazitaet; 


(9)  Progra»»  zur  Texteingabe/  Korrektur; 

(14)  Pruefsuoie  einer 
,  ,  (231  Die  haelfte  eines 

Coiputern;  (271  6eraet  z.  Coaputerverb.  per  Telefon; 
,,,,  „  ,  ,  -  132)  Niederveraendbares  ROH;  (33)  Bildschiraausschnitt; 

Iu6l  Datentransfer  ».  aehreren  Leitungen;  (37)  Prograaa  zur  Steuerung  v,  Geraeten;  (391  Sich  selbst  aufrufendes 
Unterprogr.;  (421  Jargon  fuer  ’Coaputer';  (43)  Punktfeld  f.  Zeichendarstellung;  (44)  Adresse  die  andere  Adr. 
verueist;  (45)  Logische  Inforaatlonseinheit;  (48)  Befehl  zur  Beendigung  v.  Unterprgr. :  (521  Hoehere 

toMerzitUe  Prgr, Sprache;  (531  Nech.  Geraet  z.  Zeichnen  v,  Bildern;  (541  Logische  Speichereinheit; 

(5j)  Hochintegrierter  Baustein;  (62)  Abk.  f.  Zeichen  loeschen';  (65)  Abk.f.  Zellendrucker';  (67)  Technik  zur 
Herstellung  von  IC  's;  169)  Abk.  f. ' Di sket ten-Bet r i ebssyste« ' ;  (70)  Abk,  f.  'Television';  (71)  Les-  und 

schreibbarer  Speicher;  (731  Abk.  f.  Nanosekunde';  (771  Progr. Sprache  f.  Listenverarbeitung;  (781  Abk.  f. 
'Hertz';  (791  Abk.f.  Conputer-gestuetzter  Entwirf;  (80)  Griechischer  Buchstabe;  (821  Dritter  Ton  von  Grundton; 
83)  Abk,  f.  ein  engl,  laengennass;  (84)  Abk.  f.  Dberbuergeraeister';  (85)  ln  Ordnung;  (87)  Abk.  f.  Sankt'; 
(88)  Seemeile;  (VI)  Abk.  f.  'Jahrhundert';  (94!  Corps  Consulaire;  (951  Sozialdeiokrat.  Partei  Deutschi,; 
199)  Nordeutscher  Rundfunk;  (1001  Kurzbez.  f,  'üniversitaet ';  (1011  Kilo-Ampere;  (1031  Abk.  f.  Hektar'; 

(105)  Abk,  f.  'gegruendet' 


Das  Ergebnis  eines  Programmlaufs.  Während  das  Programm  läuft,  werden 
die  vom  Computer  eingesetzten  Wörter  direkt  in  das  Rätsel  am  Bildschirm 
sichtbar  eingetragen.  Das  geht  so  schnell,  daß  sie  mit  dem  Auge  kaum 
nachkommen  können.  Erst  im  Ausdruck  werden  alle  Begriffe  durch  Zahlen 
ersetzt.  Die  Lösung  diese  Rätsels  sehen  Sie  rechts. 


Lösung  des  Kreuzworträtsels 
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»Happysynth«, 
der  Traum 
eines  jeden 
Musikers 


Mit  dem  Untermenü  »Oszillator  &  Filter»  können  alle  nur 
erdenklichen  Parameter  per  Joystick  eingestellt  werden. 


Eine  kleine  Hand  (rechts  oben  im  Bild)  wird  mit  dem 
Joystick  auf  die  gewünschte  Funktion  gebracht,  und 
diese  mit  dem  Feuerknopf  angewählt. 


Ein  Supersynthesizer  zum  Abtippen. 
Die  hervorragende  Benutzerführung 
per  »Pseudo-Maus«  (siehe  Fotos)  und 
die  ausgezeichnete  grafische  Darstel¬ 
lung  der  einzelnen  Menüs  heben  den 
»Happysynth«  von  der  breiten  Masse 
der  übrigen  Programme  ah 


Vier  Pseudo-VICs 
mit  32  Sprites 


Erweitern  Sie  Ihren  Videochip.  Nur 
duch  Software  lassen  sich  ungeahnte 
Bilder  aus  dem  VIC  zaubern.  So  sind 
32  Sprites  sowie  HiRes-Grafik  und  Text 
gleichzeitig  nur  die  leichtesten  Übun¬ 
gen  für  Provic  64. 


Provic  64  —  Vier  Bildschirmfenster 
mit  bis  zu  32  Sprites 


7 


Inhalt 


HI-EDDI:  ein  fantastisches 
Zeichen-  und  Malprogramm 


»Ein  professionelles  Programm  !«  So  urteilten  unsere  Leser  nach  der  Veröffent¬ 
lichung  von  HI-EDDI  in  der  Ausgabe  1/85.  Mit  diesem  Listing  landeten  wir  einen 
echten  Hammer!  In  diesem  Sonderheft  finden  Sie  nicht  nur  den  normalen 
HI-EDDI,  sondern  auch  Hardcopy-Routinen  für  alle  gängigen  Drucker  sowie  die 
komplette  Anpassung  für  Datasetten- 
Besitzer  gesammelt.  Mit  Hl-Eddi  kann 

jeder  professionelle  Bilder  und  Grafi-  _ _ 

ken  entwickeln. 


Solche  oder  auch  ganz  andere  Menüs 
können  Sie  sich  selbst  erstellen.  Auf  der 
Diskette  zu  dieser  Ausgabe  finden  Sie 
diese  und  noch  andere  Beispiele 


Es  lassen  sich  nicht  nur  Bilder  zeichnen, 
sondern  auch  technische  Zeichnungen 
realisieren.  Text  kann  ebenso  eingefügt 
werden  wie  Sprites  und  selbstdefinierte 
Zeichensätze  ▼ 


> 
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Inhalt 


Die  schnelle 
Schildkröte  - 
Turtle  Grafik 


Eine  Basic-Erweiterung,  die  Logo  über¬ 
flüssig  macht,  das  ist  die  Turtle-Grafik. 
Mit  einfachen  Basic-Befehlen  lassen 
sich  sehr  schnell  wunderschöne  Grafi¬ 
ken  erstellen. 


Inhalt 

Trickfilm  mit  dem  C  64 

Die  Fähigkeit,  bewegte,  dreidimensio¬ 
nale  Grafiken  zu  erzeugen,  war  bisher 
nur  speziellen  Großcomputern  Vorbe¬ 
halten.  Mit  unserem  3D-Movie-Maker 
wird  auch  Ihr  Commodore  64  zum 
Trickfilmstudia 


Ein  stufenloser  Zoom-Effekt  ist  nur  eine  der  vielen  interessanten  Möglichkeiten  des  3D-Movie-Makers. 


Hypra-Load  und 

Hypra 


Ist  Ihnen  die  1541  zu 
langsam?  Wollen  Sie 
nicht  mehrere  hundert  Mark 
für  ein  Hardware- 
Beschleunigungssystem 
ausgeben?  Dann  sind  Hypra- 
Load  und  Hypra-Save  genau  das  richtige  für  Sie,  denn  diese  Programme  ma¬ 
chen  das  Laufwerk  bis  zu  fünfmal  schneller.  Für  dieses  Sonderheft  wurde  das 
beliebte  Hypra-Load  sogar  völlig  neu  geschrieben  und  verbessert! 
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Inhalt 


Das  Grab 
des  Pharao 


s*6R  onunapv 

Hier  bieten  wir  ihnen  ein  deutschsprachiges  Grafik-Adventure  der  Spitzenklas¬ 
se,  bei  dem  es  um  Pyramiden,  Pharaonen  und  viele  Gefahren  geht. 


Castle  of  Doom  — 
Burg  des  Grauens 


Nur  mit  Geduld  und  Fantasie  wird  es  Ihnen  gelingen  sich  die  Lösung  dieses 
Adventures  zu  erspielen.  In  der  Burg  des  Grauens  werden  Sie  sich  die  Zähne 
ausbeißen. 


Inhalt 


Dieses  Spiel  der  Sonder¬ 
klasse  ist  nur  mit  so 
legendären  Programmen 
wie  »Manie  Miner«, 
»Jumpman«  oder  »Mister 
Robot  and  his  Factory« 
vergleichbar.  Sechs 
verschiedene  Bilder 
garantieren  andauerenden 
Spielspaß. 


Spring  Vogel,  spring 


Und  sollten  Sie  alle  Bilder  durch¬ 
gespielt  haben,  beginnt  ein 
neues  Kapitel:  Machen  Sie  Ihre 
eigenen  Bilder!  Mit  dem 
eingebauten  Spiele-Editor  ist  das 
gar  kein  Problem.  So  wird  der 
Spielspaß  nur  durch  Ihre  Fantasie 
begrenzt.  Ein  wirkliches 
Top-Programm. 
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Hilfsprogramm 


C  64 


Der  Bitmap- 
Compander 

Mit  diesem  kurzen  Programm  können 
Grafikbildschirme,  die  auf  Diskette  ab¬ 
gespeichert  werden,  auf  die  Hälfte 
komprimiert  werden. 

Jeder,  der  schon  einmal  eine  hochauflösende  Grafik  auf  Dis¬ 
kette  abgespeichert  hat,  weiß,  daß  sie  33  Blocks  benötigt.  Das 
entspricht  den  8  KByte  des  hochauflösenden  Grafikbild¬ 
schirms,  Es  besteht  aber  die  Möglichkeit,  diese  Grafikbild¬ 
schirme  je  nach  Inhalt  auf  10  bis  20  Blocks  zu  komprimieren. 
Das  Verfahren  beruht  darauf,  häufig  wiederkehrende  Sequen¬ 
zen  durch  kürzere  zu  ersetzen.  Dazu  kann  man  sich  die  Bitmap 
als  eine  lange  Kette  von  Nullen  und  Einsen  vorstellen.  Diese 
Kette  wird  jetzt  in  4-Bit-Blöcke  aufgeteilt.  Solche  Blöcke  be¬ 


programm  :  bmc.exe  ce00  cf  19 


ce00 

20 

89 

ce 

a6 

b8 

20 

c9 

ff 

21 

ce08 

a9 

08 

85 

fc 

78 

a9 

34 

85 

67 

cel0 

01 

a0 

00 

bl 

f  8 

a2 

37 

86 

26 

celB 

01 

58 

48 

4a 

4a 

4a 

4a 

20 

01 

ce20 

9d 

ce 

68 

29 

0f 

20 

9d 

ce 

6a 

ce28 

e6 

f  8 

d0 

02 

e6 

f  9 

a5 

f  9 

c7 

ce30 

29 

lf 

c9 

lf 

d0 

d6 

a5 

f  8 

8b 

ce38 

c9 

40 

d0 

d0 

f0 

42 

20 

89 

24 

ce40 

ce 

a6 

b8 

20 

c6 

ff 

20 

cf 

20 

ce4B 

ff 

85 

f  a 

20 

cf 

ff 

85 

fb 

d7 

ce50 

a9 

08 

85 

fc 

20 

bc 

ce 

0a 

35 

ce58 

0a 

0a 

0a 

48 

20 

bc 

ce 

68 

e7 

ce60 

05 

fd 

a0 

00 

78 

a2 

34 

86 

06 

ce6S 

01 

91 

f  8 

a2 

37 

86 

01 

58 

21 

ce70 

e6 

f  8 

d0 

02 

e6 

f  9 

a5 

90 

3d 

ce78 

f0 

da 

a5 

f  8 

c9 

40 

d0 

d4 

e9 

ce80 

20 

cc 

ff 

a5 

b8 

20 

c3 

ff 

56 

ce88  ' 

60 

20 

fd 

ae 

20 

be 

el 

a5 

18 

ce  90 

b8 

0a 

0a 

0a 

0a 

0a 

85 

f  9 

0c 

ce9B 

a9 

00 

85 

f  8 

60 

a8 

b9 

09 

06 

cea0 

cf 

aa 

b9 

e9 

ce 

a4 

fc 

0a 

Ba 

cea8 

26 

f  a 

88 

d0 

09 

48 

a5 

f  a 

e7 

ceb0 

20 

d2 

ff 

a0 

08 

68 

ca 

d0 

de 

ceb8 

ee 

84 

fc 

60 

a2 

0f 

a5 

f  a 

63 

cec0 

3d 

f  9 

ce 

dd 

e9 

ce 

f0 

03 

48 

cec8 

ca 

d0 

f  3 

86 

fd 

bd 

09 

cf 

59 

ced0 

aa 

a4 

fc 

06 

fb 

26 

f  a 

88 

ba 

ced8 

d0 

07 

20 

cf 

ff 

85 

fb 

a0 

8b 

cee0 

08 

ca 

d0 

ef 

84 

fc 

a5 

fd 

42 

cee8 

60 

00 

a0 

a8 

b0 

b8 

C0 

c8 

eb 

cef  0 

f0 

d0 

dB 

e0 

f  4 

eB 

f  8 

fc 

0f 

cef  8 

80 

80 

f  8 

f  8 

f  8 

f  8 

f  8 

f  8 

43 

cf00 

f  c 

f  8 

f  8 

f  8 

f  c 

f  8 

fc 

f  c 

5b 

cf  08 

e0 

01 

05 

05 

05 

05 

05 

05 

el 

cf  10 

06 

05 

05 

05 

06 

05 

06 

06 

28 

cf  18 

03 

ff 

fc 

68 

ff 

ff 

ff 

68 

38 

Listing  1.  zum  Programm  »Bitmap-Compander«. 
Bitte  mit  dem  MSE  eingeben. 


zeichnet  man  als  Halb-Byte  oder  Nibbles.  Es  gibt  16  verschie¬ 
dene  solcher  Nibbles,  wovon  einige  häufiger  und  andere  selte¬ 
ner  Vorkommen.  Jedem  Nibble  wird  nun  ein  neuer  Code  zuge¬ 
ordnet,  wobei  das  häufigste  Nibble  »0000«,  den  kürzesten  Co¬ 
de  »0«  bekommt.  Alle  anderen  15  Codes  müssen  mit  einer  »1« 
beginnen.  Einen  Code  »00«  darf  es  nicht  mehr  geben,  denn  er 
könnte  bei  der  Decodierung  nicht  mehr  von  dem  Code  »0«  un¬ 
terschieden  werden.  Es  läßt  sich  nicht  umgehen,  viele  Codes 
länger  als  4  Bit  zu  machen.  Die  komplette  Code-Tabelle  ist  in  Ta¬ 
belle  1  zu  sehen.  Doch  die  langen  Codes  kommen  viel  seltener 
vor  als  die  kurzen,  so  daß  bei  einem  »normalen«  Bild  viele  Bits 
gespart  werden  können.  Theoretisch  wäre  es  möglich,  daß  ei¬ 
ne  komprimierte  Bitmap  länger  wird  als  das  Original.  Aber 
selbst  die  Fotos  aus  der  »Diashow«  lassen  sich  komprimieren. 
Sir  Winston  Churchill  magert  zum  Beispiel  auf  24  Blocks  ab. 
Bilder,  wie  sie  üblicherweise  in  Gafik-Adventures  Vorkommen, 
lassen  sich  meist  auf  unter  15  Blocks  zusammendrücken. 

Tippen  Sie  das  Programm  (Listing  1)  mit  dem  MSE  ab  und 
speichern  Sie  es,  damit  es  jederzeit  mit  LOAD  "BMC.EXE”, 8,1 
geladen  werden  kann  (auf  der  Leserservice-Diskette  unter 
"BIT-MAPCOMPANDER"  gespeichert).  Der  Aufruf  des  Com- 
panders  funktioniert  vom  Basic  aus  mit  einem  SYS-Befehl.  Die 
Parameter  werden  wie  beim  OPEN-Befehl  angehängt. 

Laden  einer  komprimierten  Bitmap: 

SYS  52798, Filenummer, Geräteadresse, Kanalnummer, "Name" 
Speichern  einer  komprimierten  Bitmap: 

SYS  52736, Filenummer, Geräteadresse, Kanalnummer, "Name, P,W" 
Mit  der  Filenummer  wird  die  Anfangsadresse  der  Bitmap 
ausgewählt. 

Filenum-  Bitmap-Adresse 
mer 

1  $2000  =  8192  (sichtbares  Bild  bei  Hi-Eddi) 

2  $4000  =  16384 

3  $6000  =  24576 

5  $A000  =  40960  (Bitmap  bei  Hires-3) 

7  $E000  =  57344  (Bitmap  bei  Simons  Basic) 

Die  Bitmaps  0,  4  und  6  sind  theoretisch  möglich,  aber  nicht 
sinnvoll,  da  der  Videocontroller  sie  nicht  adressieren  kann.  Die 
Gerätenummer  ist  8  für  das  Floppy-Laufwerk  und  die  Kanal¬ 
nummer  eine  beliebige  Zahl  von  2  bis  14. 

Beispiele  für  Aufrufe: 

Speichern  einer  Simons  Basic-Bitmap: 

SYS  52736, 7, 8, 2, "Name, P,W" 

Laden  dieser  Bitmap  in  Hires-3: 

SYS  52798, 5, 8, 2, "Name" 

Das  Programm  belegt  den  Bereich  von  $CE00  bis  $CF19 
(52736  bis  53017).  Es  belegt  somit  keinen  Basic-Speicher- 
platz  und  verträgt  sich  auch  mit  Hires-3  und  Simons  Basic,  so¬ 
lange  der  Befehl  MEM  nicht  verwendet  wird. 

(Hans  Haberl/ah) 


Nibbles 

Codes 

Hex 

Länge 

0000 

0 

$00 

1 

0001 

10100 

$A0 

5 

0010 

10101 

$A8 

5 

0011 

10110 

$B0 

5 

0100 

10111 

$B8 

5 

0101 

11000 

SCO 

5 

0110 

11001 

$C8 

5 

0111 

111100 

$F0 

6 

1000 

11010 

$D0 

5 

1001 

11011 

$D8 

5 

1010 

11100 

$EO 

5 

1011 

111101 

$F4 

6 

1100 

1 1101 

$E8 

5 

1101 

111110 

$F8 

6 

1110 

111111 

$FC 

0 

1111 

100 

$80 

3 

Tabelle  1.  Tabelle  aller  Nibbels  und  möglichen 
Codes  (mit  Längenangabe) 
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C  64/VC  20 


Checksummer 
64  —  Neu 

Der  Checksummer  64  V3  überprüft 
jede  Basic-Zeile  direkt  nach  der  Ein¬ 
gabe,  erkennt  Fehleingaben  und  auch 
Vertauschungen  von  Zahlen  und  Zif¬ 
fern,  und  erspart  deshalb  eine  auf¬ 
wendige  Fehlersuche. 

Der  Checksummer  64  V3  ist  ein  kleines  Maschinenpro¬ 
gramm,  das  Sie  sofort  unterrichtet,  ob  Sie  die  jeweilige  Pro¬ 
grammzeile  korrekt  eingegeben  haben. 

So  gehen  Sie  vor: 

1.  Programm  abtippen  und  speichern. 

2.  Starten  mit  RUN 

3.  Nach  kurzer  Zeit  sehen  Sie  am  Bildschirm: 

CHECKSUMMER  64,  CHECKSUMMER  AKTIVIERT, 

AUSSCHALTEN  MIT  POKE  1,55,  ANSCHALTEN  MIT  POKE 
1,53,  READY. 

4.  Anschalten  des  Checksummer  64  V3  mit  POKE  1,53. 

5.  Test:  Geben  Sie  in  einer  freien  Zeile  ein:  »1  REM«  und 
drücken  die  RETURN-Taste.  Am  Bildschirm  oben  links  sollten 
Sie  die  Prüfsumme  <63>  sehen. 

6.  Geben  Sie  ein  Listing  aus  unserem  Heft  ein.  Nach  jeder 
Zeile  wird  die  Zahl,  die  im  Listing  in  Klammern  <  >  steht,  in 
den  Bildschirm  eingeblendet.  Stimmen  die  Zahlen  nicht  über¬ 
ein,  so  liegt  vermutlich  ein  Eingabefehler  vor.  Die  Zahl  in  den 
Klammern,  und  auch  die  Klammern  selbst,  dürfen  beim 
Abtippen  nicht  mit  eingegeben  werden! 

7.  Dieser  neue  Checksummer  64  V3  bemerkt,  im  Gegen¬ 
satz  zu  den  bisherigen,  auch  Vertauschungen  von  Zahlen  und 
Buchstaben. 

8.  Unsere  Basic-Listings  enthalten  keine  Steuerzeichen 
mehr.  Diese  werden  ersetzt  durch  Klartext  und  stehen  zwi¬ 
schen  geschweiften  Klammern.  Deshalb  sind  weder  die 
Klammern  noch  was  dazwischen  steht,  abzutippen,  sondern 
die  in  Tabelle  1  aufgeführten  Tasten  zu  drücken.  Auf  Ihrem 
Bildschirm  erhalten  Sie  dann  wieder  die  entsprechenden 
Grafikzeichen  (siehe  Bild  1  und  2). 

9.  Alle  Grafikzeichen  werden  ebenfalls  ersetzt  durch  unter¬ 
strichene  oder  überstrichene  Großbuchstaben.  Unterstri¬ 
chene  Buchstaben  bedeuten,  daß  Sie  die  SHIFTTaste  und 
den  angegebenen  Buchstaben  drücken  müssen,  überstri¬ 
chene  jedoch  die  Commodore-Taste  mit  dem  Buchstaben. 
Auch  hier  erhalten  Sie  am  Bildschirm  das  entsprechende  Gra¬ 
fikzeichen  und  nicht  etwa  das  im  Listing  erkennbare  Zeichen 
(siehe  Bild  1  und  2). 

Checksummer  VC  20  V3 

Der  Checksummer  VC  20  V3  ist  im  Prinzip  genauso  auf¬ 
gebaut  wie  der  Checksummer  64.  Da  beim  VC  20  jedoch 
nicht  die  Möglichkeit  besteht,  das  ROM  softwaremäßig  zu  mo¬ 
difizieren,  mußte  ein  anderer  Weg  als  beim  Commodore  64 
gewählt  werden,  um  die  Checksumme  zu  generieren. 

In  ihrer  Funktionsweise  unterscheiden  sich  der  Checksum¬ 
mer  VC  20  und  der  Checksummer  64  nicht.  Es  gelten  fol¬ 
gende  Sonderregelungen  bei  der  Benutzung  des  Checksum¬ 
mer  VC  20: 

—  Da  der  Basic-Bereich  nicht  belegt  werden  soll,  ist  das  Pro¬ 
gramm  im  Kassettenpuffer  abgelegt. 

—  Angeschaltet  wird  der  Checksummer  VC  20  mit  »SYS 
955«. 


CTRL  steht  für  Control-Taste,  so  bedeutet  [CTRL-A],  daß  Sie  die 

Control-Taste  und  die  Taste  »A«  drücken  müssen.  Im  folgenden  steht: 

|DOWN| 

Taste  neben  rechtem  Shift,  Cursor  unten 

jUPj 

Shift-Taste  8  Taste  neben  rechtem  Shift;  Cursor  hoch 

(CLR| 

Shift-Taste  8  2.  Taste  ganz  rechts  oben 

|  INST  | 

Shift-Taste  8  Taste  ganz  rechts  oben 

IHOMEj 

2.  Taste  von  ganz  rechts  oben 

(DEL) 

Taste  ganz  rechts  oben 

IRIGHT] 

Taste  ganz  rechts  unten 

(LEFT| 

Shift-Taste  8  Taste  unten  rechts 

ISPACE) 

Leertaste 

(Fl) 

grauer  Tastenblock  rechts 

(F3) 

grauer  Tastenblock  rechts 

(F5) 

grauer  Tastenblock  rechts 

(F7| 

grauer  Tastenblock  rechts 

IF2| 

grauer  Tastenblock  rechts  8  Shift 

|F4) 

grauer  Tastenblock  rechts  8  Shift 

|F6j 

grauer  Tastenblock  rechts  8  Shift 

(F8) 

grauer  Tastenblock  rechts  8  Shift 

[RETURN] 

Shift-Taste  8  Return 

[BLACKI 

Control-Taste  8  1 

IWHITE) 

Control-Taste  8  2 

(RED) 

Control-Taste  8  3 

|CYAN) 

Control-Taste  8  4 

(PURPLE) 

Control-Taste  8  5 

(GREEN) 

Control-Taste  8  6 

(BLUE| 

Control-Taste  8  7 

(YELLOW) 

Control-Taste  8  8 

(RVSON) 

Control-Taste  8  9 

(RVOFF) 

Control-Taste  8  0 

(ORANGE) 

Commodore-Taste  8  1 

(BROWN) 

Commodore-Taste  8  2 

(LIG.REDj 

Commodore-Taste  8  3 

(GREY  1) 

Commodore-Taste  8  4 

(GRCV  2) 

Commodore-Taste  8  5 

fHKuREEN) 

Commodore-Taste  8  6 

(LIG.BLUE) 

Commodore-Taste  8  7 

(GREY  3) 

Commodore-Taste  8  8 

Wenn  Sie  sich  erst  einmal  an  die  in  Klartext  geschriebenen  Steuerzei- 

chen  gewöhnt  haben,  werden  Sie  den  Vorteil  dieser  Schreibweise 

erkennen.  Der  zu  dem  jeweiligen  Steuerzeichen  gehörende  Klartext 

ist  so  verfaßt,  daß  Sie  leicht  die  Taste  beziehungsweise  die  Tasten- 

kombination  finden,  die  Sie  drücken  müssen. 

Tabelle  1.  Die  Steuerbefehle  im  Klartext 

—  Abschaltung  des  Checksummer  VC  20  wird  mit  »SYS 
58459«  vollzogen. 

Achtung:  Nehmen  Sie  keine  Kassetten-Operationen  vor, 
wenn  der  Checksummer  VC  20  eingoschaltet  ist.  Da  das 
Betriebssystem  den  Kassettenpuffer  mit  Daten  belegt,  kann 
der  Checksummer  VC  20  überschrieben  werden,  was  zur 
Folge  hat,  daß  sich  der  Computer  bei  aktiviertem  Checksum¬ 
mer  VC  20  »aufhängt«.  Wollen  Sie  deshalb  ein  Programm  auf 
(von)  Kassette  abspeichern  (laden),  so  müssen  Sie  erst  den 
Checksummer  VC  20  abschalten  (SYS  58459). 

Daraufhin  kann  der  Kassettenpuffer  mit  Daten  überschrie¬ 
ben  werden,  ohne  daß  der  Computer  »aussteigt«. 

Als  Sicherung  wird  bei  der  Initialisierung  geprüft,  ob  das 
zuletzt  angesprochene  Peripherie-Gerät  der  Kassettenrecor¬ 
der  war.  Ist  das  der  Fall,  so  werden  die  Betriebssystemroutinen 
LOAD  und  SAVE  für  die  Benutzung  gesperrt.  Der  Rechner  mel¬ 
det  bei  Aufruf  einer  dieser  beiden  Routinen  READY,  ohne  wei¬ 
tere  Aktionen  durchzuführen.  Diese  Sicherung  kann  man  nach 
der  Tipparbeit  aufheben,  wenn  man  den  Checksummer  VC  20 
mit  SYS  58459  abschaltet.  Dadurch  wird  der  Kassettenpuffer 
für  andere  Daten  freigemacht.  Weiterhin  wird  dann  durch 
gleichzeitiges  Drücken  der  Tasten  »Run-Stop  &  Restore« 
erreicht,  daß  die  Betriebssystemroutinen  LOAD  und  SAVE  wie¬ 
der  eingerichtet  werden. 

—  Bei  Benutzung  einer  Diskettenstation  brauchen  Sie  nicht 
darauf  zu  achten,  daß  bei  LOAD  beziehungsweise  SAVE  der 
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Checksummer  VC  20  überschrieben  wird,  da  der  Kassetten¬ 
puffer  für  die  Diskettenstation  normalerweise  nicht  genutzt 
wird.  Deshalb  können  Sie  die  beiden  Routinen  weiterhin  nor¬ 
mal  nutzen,  sofern  der  Rechner  bei  der  Initialisierung  des 
Checksummer  VC  20  feststellt,  daß  das  zuletzt  angespro¬ 
chene  Peripherie-Gerät  nicht  der  Kassettenrecorder  war. 

—  Bedingt  durch  den  anderen  Aufbau  des  Checksummer  VC 
20  wird  anders  als  beim  Checksummer  64  nach  der  LOAD- 
Routine  keine  Checksumme  ausgegeben. 

—  Wird  eine  Zeile  gelöscht,  also  eine  Zahl  zwischen  0  und 
65999  eingegeben,  und  danach  Return  gedrückt,  so  wird 
eine  Checksumme  ausgegeben,  die  aber  keine  Bedeutung 
hat. 

Sie  können  die  Programme  auch  weiterhin  ohne  den  Check¬ 
summer  eintippen.  (F.  üonczewski/gk) 

Hinweis:  (13  SPACE!  bedeutet  13mal  die  Leertaste  drücken 

1  REM  ******************************* 


2 

REM 

* 

* 

3 

REM 

* 

CHECKSUMMER 

64  V3 

* 

4 

REM 

* 

* 

5 

REM 

* 

WRITTEN 

MAERZ 

1985  BY 

* 

6 

REM 

* 

* 

7 

REM 

* 

FRANK 

LONCZEWSKI 

* 

8 

REM 

* 

* 

9  REM  ******************************* 

10  PRINT” {CLR, 11 SPACE, RVSONICHECKSUMMER  64 

V3IRV0FF>" 

11  PRINT" <2D0WN,9SPACE>EINEN  MOMENT,  BITTE 

12  FOR  1=828  TO  864: READ  A:POKE  I,A:PS=PS+ 
A+l-.NEXT  I 

13  IF  PSO5B02  THEN  PR  I  NT "  PRUEFSUMMENFEHLE 
R  IN  ZEILEN  20-22" :END 

14  SYS  828 : PS=0 : FOR  1=58464  TO  58583: READ 
A: POKE  I , A : PS=PS+A+ 1 : NEXT  I 

15  IF  PS<  >16267  THEN  PR I NT " F'RUEFSUMMENFEHL 
ER  IN  ZEILEN  22-30": END 

16  POKE  1,53: POKE  42289 , 96: POKE  42290,228 

17  PR I NT " {4DQWN , 9SPACE 1CHECKSUMMER  AKTIVIE 
RT.  " 

18  PRINT" t2D0WN>AUSSCHALTEN  :  POKE 1 ,55" 

19  PR  I  NT  "-CDOWN1  ANSCHALTEN  <2SPACE>:  F'OKEl  ,5 
3" : NEW 


21  PRINT" CCLR, SPACE, RVSON1CHECKSUMMER  V 3  V 
C-20IRVOFF)“ 

22  PRINT" I2DOWNJEINEN  MOMENT,  BITTE..." 

23  FOR  1=827  TO  1019: READ  A:POKE  I,A 

24  PS=PS+A+1 : NEXT  I 

25  IF  PS< >24464  THEN  PRINT" xDOWNJPRUEFSUMM 
ENFEHLER  ! “ : END 

26  SYS  981: PR INT "CHECKSUMMER  AKTIVIERT." 

27  PR INT "AN  :SY5981" 

28  PRINT"  -CDQWN1AUS:  SYS58459  ,  BEI  CAS-  C4SPA 
CEJSETTE  ZUSAETZLICH I5SFACE1RUN/ST0P  S< 
RESTORE" 

29  PRINT" {DOWNJBEI  AKTIVIERTEM  CHECK-SUMME 
R  KEIN"; 

30  PRINT"  CASSETTEN-BETRIEB  «LOAD,  SAVE) C2 
SPACE JERLAUBT  "  :  NEW 

31  DATA  32,95,3,134,122,132,123,32,115,0,1 

70,240,243,162,255 

32  DATA  134,58,144,10,162,0,134,255,32,121 
,197,76,225,199,162 

33  DATA  1,134,255,76,156,196,166,255,224,1 
,240,3,76,96,197 

34  DATA  160,2,169,0,170,133,254,177,95,240 
,40,201,32,208,3 

35  DATA  200,208,245,133,253,138,41,7,170,2 
40,14,72,165,253,24 

36  DATA  42,105,0,202,208,249,133,253,104,1 
70,232,165,253,24,101 

37  DATA  254,133,254,76,119,3,192,4,48,219, 
198,214,165,214,72 

38  DATA  162, 3, 169, 32, 157,1, 4, 1B9, 209, 3, 32, 
210,255,202,16 

39  DATA  242,166,254,169,0,32,205,221,169,6 
2,32,210,255,104,133 

40  DATA  214,32,135,229,169,141,32,210,255, 
162,0,134,255,240,148 

41  DATA  9,60,18,19,169,59,141,2,3,169,3,14 
1,3,3,165 

42  DATA  186, 201, 1,20B, 16, *69,116,141, 48, 3, 
141,50,3,169,196 

43  DATA  141,49,3,141,51,3,173,136,2,141,17 
0,7  ■-  3 

©  64 ■'er 

Der  neue  Checksummer  VC  20  V3  erkennt  auch 
Vertauschungen  von  Zahlen. 


20  DATA  169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21  DATA  145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22  DATA  16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23  DATA  95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24  DATA  170,240,14,72,165,255,24,42,105,0, 

202.208.249.133.255 

25  DATA  104,170,232,163,253,24,101,254,133 
,254,76,111,228,192,4 

26  DATA  48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27  DATA  212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28  DATA  144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29  DATA  62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30  DATA  76,128,164,9,60,18,19 


5  PRINT  CHR*(14)  <242> 

10  PRINT" <CLR>"  <254> 


20  PRINT"! 

30  PRINT " C4D0WN , 2SPACE J3EST tSPACE , BLUE , 6SP 
ACE>" 

40  PRINT"! 


<130> 

<022> 
<  108> 
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Bild  1.  So  könnte  ein  Teil  eines  Listings  abgedruckt  sein.  In 
Zeile  10  müssen  Sie  nach  den  Anführungsstrichen  die 
CLEAR/HOME-Taste  drücken  und  nicht  die  Klammern  mit 
dem  Wort  CLR.  In  Zeile  20  drücken  Sie  nach  den  Anführungs¬ 
strichen  die  Commodore-Taste  und  den  Buchstaben  Q, 
gefolgt  von  mehreren  SHIFT  und  Stern-Taste,  und  zum  Schluß 
die  Commodore-Taste  und  den  Buchstaben  W.  In  Zeile  30  ist 
es  viermal  die  Cursor-nach-unten-Taste,  gefolgt  von  zweimal 
die  Leertaste,  dann  SHIFT  und  T  und  normal  EST ,  zum  Schluß 
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noch  einmal  die  Leertaste,  die  Farbtaste  Blau  (Control  und  7) 
und  sechsmal  die  Leertaste.  Zeile  40  besteht  lediglich  aus 
mehreren  Grafikzeichen,  die  mit  der  Commodore-Taste  und  B 
erzeugt  werden. 


10  REM**-»**********-»* 

1 1  REM*  * 

12  REM*  CHECKSUMMER  * 

13  REM*  * 

14  REM*  V3  VC20  * 

15  REM*  * 

16  REM*  WRITTEN  * 

17  REM*  MAERZ  1985  * 

18  REM*  BY  * 

19  REM*F.  LONCZEWSKI* 

20  REM*************** 


5  PRINTCHR* (14) 

10  PRINT"73" 

20  PRINT"  I - I" 

30  PRINT":r»WN  I  EST  3 

40  PRINT" V.V.V.V.V.V.V.V.V.V.V.V.V.V. " 


Bild  2.  Auf  dem  Bildschirm  oder  Ihrem  Drucker  sieht  das 
Listing  (Bild  1)  so  aus. 
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MSE  -  Abtippen 
sicher  und 
leicht  gemacht 

Ähnlich  wie  der  »Checksummer«  ist 
auch  der  MSE  ein  Hilfsmittel  bei  der 
Eingabe  von  Listings,  diesmal  jedoch 
bei  reinen  Maschinensprache-Pro¬ 
grammen. 

Im  Gegensatz  zum  »Checksummer«  aber  ist  die  Eingabe 
nicht  ohne  den  MSE  möglich.  Der  MSE  verringert  die  Tipp¬ 
arbeit  um  ein  Drittel  und  schließt  Fehleingaben  vollkommen 
aus.  Außerdem  können  Sie  die  Werte  blind  eingeben,  ohne 
andauernd  auf  den  Bildschirm  schauen  zu  müssen.  Dies  wird 
durch  akustische  Meldungen  realisiert. 

MSE  ist  ein  Maschinenspracheditor,  mit  dem  ein  Vertippen 
ausgeschlossen  ist.  Eine  abgetippte  Zeile  wird  nur  angenom¬ 
men,  wenn  sie  richtig  ist.  Eine  Checksumme  am  Ende  jeder 
Zeile  prüft,  ob  die  richtigen  Werte  in  der  richtigen  Zeile  an  der 
richtigen  Stelle  stehen.  Wenn  nicht,  ertönt  ein  Warnsignal, 
und  man  beseitigt  den  Fehler. 

War  die  Zeile  korrekt,  erklingt  ein  Gong,  und  die  nächste 
Zeilennummer  wird  ausgegeben.  Damit  ist  also  auch  »blin¬ 
des«  Eintippen  möglich;  Sie  können  sich  voll  auf  den  Text  kon¬ 
zentrieren. 

So  arbeitet  man  mit  MSE 

Laden  und  starten  Sie  MSE.  Zuerst  wird  der  Programm¬ 
name  und  die  Start-  und  Endadresse  erfragt.  Diese  Angaben 
entnehmen  Sie  dem  Kopf  des  jeweiligen  abgedruckten 
Listings.  MSE  meldet  sich  dann  mit  der  Zeilennummer  der 
ersten  Zeile.  Wenn  Sie  die  Zeile  richtig  eingegeben  haben, 
erscheint  die  nächste  Zeilennummer  und  so  weiter  bis  zum 
Ende.  Zum  Schluß  wird  das  fertige  Programm  mit  »CTRL-S« 
auf  Diskette  oder  Kassette  abgespeichert.  Dazu  sind  keine 


weiteren  Angaben  mehr  erforderlich.  Das  Programm  kann 
dann  ganz  normal  wieder  geladen  und  gestartet  werden. 
Wenn  Sie  nicht  alles  auf  einmal  tippen  wollen,  können  Sie 
jederzeit  unterbrechen  und  den  eingetippten  Teil  mit  »CTRL- 
S«  abspeichern.  Wollen  Sie  Weiterarbeiten,  laden  und  starten 
Sie  MSE  wieder. 

Geben  Sie  auf  die  Frage  nach  der  Startadresse  aber  jetzt 
»L«  ein,  um  Ihr  Teilprogramm  zu  laden.  Jetzt  können  Sie 
mit  »CTRL-N«  die  Adresse  eingeben,  an  der  Sie  weitertippen 
müssen.  Wenn  Sie  sich  nicht  gemerkt  haben,  wie  weit  Sie 
gekommen  sind,  geben  Sie  nach  dem  Laden  »CTRL-M«  ein. 

Auf  die  Frage  nach  der  Startadresse  antworten  Sie  mit  der 
Anfangsadresse,  die  links  in  der  Kopfzeile  auf  dem  Bildschirm 
steht.  Nun  wird  Ihr  Programm  aufgelistet.  Mit  »SPACE«  wird 
das  Listen  fortgesetzt,  mit  »STOP«  abgebrochen.  Das  Ende 
Ihres  Programmteils  erkennen  Sie  sehr  einfach  daran,  daß  nur 
noch  der  Wert  »AA«  in  der  Zeile  steht.  Die  Adresse  dieser 
Zeile  müssen  Sie  anschließend  mit  »CTRL-N«  eingeben.  Das 
Programm  ist  nur  mit  »STOP/RESTORE«  zu  verlassen.  Spei¬ 
chern  Sie  aber  vorher  unbedingt  immer  Ihren  Text  ab. 
Hinweise  zum  Abtippen 

Vor  dem  Abtippen  oder  späteren  Wiederladen  des  MSE- 
Laders  müssen  Sie  unbedingt  folgende  Zeile  eingeben: 
POKE  43,1:  POKE  44,32:  POKE  8192,0:  NEW 

Starten  Sie  das  Programm  mit  RUN.  Fehlerhafte  Zeilen  wer¬ 
den  angezeigt  und  müssen  korrigiert  werden,  bis  der  Lader 
zum  »READY«  durchläuft.  Jetzt  müssen  Sie  das  fertige  MSE- 
Programm  abspeichern.  Dazu  brauchen  Sie  nur  »RETURN« 
zu  drücken,  weil  die  erforderlichen  Angaben  schon  auf  dem 
Bildschirm  stehen.  (Kassettenbesitzer  müssen  in  Zeile  343 
die  letzte  Zahl  in  »1«  abändern.)  Ab  jetzt  können  Sie  »MSE 
VI. 0«  direkt,  also  ohne  den  DATA-Lader,  benutzen.  MSE  VI. 0 
wird  g;.nz  normal  mit  »,8«  geladen  (keine  POKEs  notwendig). 

(N.  Mann  /  D.  Weineck  /  gk) 


MSE-Befehle: 

DEL  löscht  die  letzte  Eingabe. 

CTRL-S  speichert  das  eingetippte  Programm  ab. 

CTRL-L  lädt  ein  Programm.  Start-  und  Endadresse  werden  automa¬ 
tisch  ermittelt. 

CTRL-M  listet  den  Speicherinhalt.  Abbruch  mit  STOP-Taste,  weiter  mit 
Leertaste. 

CTRL-N  erlaubt  die  Eingabe  einer  neuen  Adresse  zum  Weitertippen. 
CTRL-P  gibt  ein  MSE-Listing  auf  dem  Drucker  aus. 


100  REM  **•**■**•»■**  •*****  ***»»»■»«  *-»-*-»»« 

110  REM  *  * 

120  REM  *  MSE  LADER  * 

130  REM  *  * 

220  REM  **************************** 

230  REM 

240  DIM  H (75) :  FÜR  1=0  TO  9 

250  H (48+1 ) =1 :  H <65+1 ) =1+10: NEXT 

260  FOR  1=2048  TO  3755  :  READ  Ai 

270  H=ASC  < LEFT S  <  Ai , 1 ) > : L=ASC (RIGHTi < Ai , 1 >  > 

280  D=H (H) *16+H (L) : S=S+D: POKE  I,D 

290  A=A+1:IF  A<20  THEN  NEXT:A=-1 

300  PRINT  "  ZEILE: 1000+Z; 

310  READ  V  : Z=Z+1 : IF  V=S  THEN  330 
320  PR I NT " PRUEFSUMMENFEHLER  !":STOP 
330  IF  A<0  THEN  341 

340  S=0:A=0: PRINT: NEXT 

341  PRINT"  <CLR>Pfi.43,  1 : Pfi44 , 8: PQ45 , 172: PQ46 
,14 

342  POKE  631 , 19: POKE  632, 13: POKE  633, 13: PO 
KE  198,3 

343  PRINT" <3D0WN>SAVE"CHRi (34) "MSE  V1.0"CH 
Ri (34) "  ,8 

344  END 


<091  > 

3S0  REM  s 

<  159> 

360  REM 

<206> 

370  REM 

<179> 

380  REM 

<21 1  > 

390  REM  : 

<036> 

1000  DATA 

<  1 13> 

,00, 

<04 1  > 

1001  DATA 

<  198> 

,A0, 

<  199> 

1002  DATA 

<219> 

,4C, 

<  141  > 

1003  DATA 

<011> 

,B3, 

<218> 

1004  DATA 

<  1 38  > 

,02, 

<221  > 

1005  DATA 

<046> 

,B1, 
1006  DATA 

<010> 

,85,< 
1007  DATA 

<249> 

,  8E , 
1008  DATA 

<  171  > 

,43,1 

<092> 

1009  DATA 

<111> 

<  149> 
<078> 
<169> 
<151  > 

<  1 19> 
<054> 

<  144> 
<237> 
<217> 
<013> 

<  199> 
<091  > 

<  167> 
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Der  MSE  zum  bequemen  Abtippen  von  Assemblerprogrammen.  Beachten  Sie 
den  Checksummer  auf  Seite  16. 
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,90,EF,4C,FB,B4,A2,02,B6,58,  3118  <152> 

1010  DATA  A9,A6,A0,9D,20,F2,B1,20,E4,FF,F0 

, FB , C9 , 30 , 90 , 0C , C9 , 47 , B0 , 08 ,  2970  <231> 

1011  DATA  C9 , 3A , 90 , 0B , C9 ,41, B0 , 07 , C9 ,14, D0 

,0F,4C,0B,B1,20,D2,FF,A6,58,  2322  <121> 

1012  DATA  95 , F7 , C6 , 58 , D0 , D2 , 60 , AE , 8D , 02 , F0 

,26,C9,0C,D0,03,4C,08,B6,C9,  2685  <057> 

1013  DATA  13,D0,03,4C,BB,B5,C9,0D,D0,03,4C 

,BA,B4,C9, 10,D0,03,4C,68,B5,  2282  <225> 

1014  DATA  C9,0E,D0,06,20,5F,B4,4C,64,B1,4C 

, 92 , B0 , A5 , F9 , 20 , 02 ,B1 , 0A , 0A ,  2132  <208> 

1015  DATA  0 A , 0A , 85 ,  F9 , A5 ,  F8 , 20 , 02 , B 1 , 05 , F9 

, 60 , C9 , 3A ,90,02, 69 , 08 , 29 , 0F ,  1950  <092> 

1016  DATA  60 , A6 , 59 , E0 , 08 , 90 , 1 F , A6 , 58 , E0 , 02 

, B0 , 06 , 20 , D2 , FF , 4C , 8E , B0 , C6 ,  2509  <188> 

1017  DATA  59 , A0 ,14, A9 , 92 , 20 , F2 , B 1 , CA , D0 , F A 

,84,57,6B,68,4C,8B,B1 ,A6,D3,  2891  <197> 

1018  DATA  E0 , 08 ,  B0 , 03 , 4C ,  92 ,  B0 , 20 ,  D2 ,  FF ,  A6 

, 58 , E0 , 02 , 90 , 09 , C6 , 59 , 20 , D2 ,  2468  <049> 

1019  DATA  FF , C6 , 58 , D0 , F9 , 4C , 8E , B0 , 48 , 4A , 4A 

, 4 A , 4A , 20 , 59 ,  B 1  , 68 , 29 , 0F , C9 ,  2419  <035> 

1020  DATA  0A ,  90 , 02 , 69 , 06 , 69 , 30 , 4C ,  D2 ,  FF ,  A2 

,  FC , 9A , 20 , D 1 , B 1 , 20 , 48 , B2 , 20 ,  2261  <073> 

1021  DATA  EA,B1 , 20 , 9F , B2 ,  A5 , FC  , 20 , 4E , Bl  ,A5 

,FB,20,4E,B1 ,20, ED, Bl ,A9,3A,  2860  <148> 

1022  DATA  A0 , 20 , 20 , F2 , B 1 , A9 , 00 , 85 , 59 , 20 , 8E 

, B0 , 20 , ED , B 1 , A4 , 59 , 20 , EF , B0 ,  2530  <233> 

1023  DATA  91 , FB , C8 , 84 , 59 , C0 , 08 , 90 ,EC , 20 , 10 

, B2 , A9 ,12, 20 , D2 , FF , 20 , 8E , B0 ,  2657  <105> 

1024  DATA  20 , EF , B0 , C5 , FF , F0 , 0D , 20 , 43 , B3 , A9 

, 14, A0, 14, 20, F2, Bl ,4C,A2,B1 ,  2665  <034> 

1025  DATA  A9 , 92 , 20 , D2 , FF , 20 , 33 , B2 , 20 , E0 , B2 

,20,3F,B2,90,9F,4C,BB,B5,A9,  2648  <123> 

1026  DATA  93 , 20 , D2 , FF , A2 , 00 , A9 , 03 , 9D , 00 , D8 

, 9D , 00 , D9 , 9D , 00 , DA , 9D , 00 , DB ,  2476  <237> 

1027  DATA  EB,D0,EF,60,A9,0D,2C,A9,20,4C,D2 

, FF , 20 , D2 , FF , 98 , 4C , D2 , FF , 20 ,  2965  <160> 

102B  DATA  E4 , FF , F0 , FB , 60 , 84 , 5D , 85 , 5C , A0 ,00 

,B1 ,5C,F0, 06,20, D2, FF, C8,D0,  3100  <077> 

1029  DATA  F6 , 60 , A5 ,FB , 85 , 5A , A0 , 00 , 84 , 5B , Bl 

,FB, 18,65, 5A, 85, 5A, 90,02, E6,  2606  <156> 

1030  DATA  5B , 06 , 5A , 26 , 5B , C8 , C0 , 0B , 90 , EC , A5 

, 5A , 65 , 5B , 85 , FF , 60 ,18, A5 , FB ,  2467  <219> 

1031  DATA  69 , 08 , 85 ,  FB ,  90 , 02 ,  E6 ,  FC ,  60 ,  A5 ,  FB 

, C5 , 5F , A5 , FC , E5 , 60 , 60 , A0 , B3 ,  3106  <183> 

1032  DATA  A9 , FB , 20 , FF , B 1 , A0 ,01, B9 , 00 , 02 , 20 

,  D2 , FF , CC , 00 , 02 , C8 , 90 , F4 , A9 ,  2692  <09B> 

1033  DATA  10, ED, 00, 02, AA, 20, ED, Bl , CA, D0, FA 

, A5 , 62 , 20 , 4E , B 1 , A5 , 6 1 , 20 , 4E ,  2453  <236> 

1034  DATA  Bl, 20, ED, Bl, A5, 60, 20, 4E, Bl ,A5,5F 

, 20 , 4E , B 1 , A9 , 9F , 20 , D2 , FF , 20 ,  2575  <038> 

1035  DATA  EA, Bl , 24 ,5E ,10,01 , 60 , A9 , 12,20 , D2 

,FF,A2,2S,20,ED,B1,CA,D0,FA,  2646  <161> 

1036  DATA  A9 , 92 , 4C , D2 , FF , A5 , D6 , C9 ,16, B0 ,01 

, 60 , A9 , A0 , 85 , A4 , A9 ,78,85, A6 ,  2945  <204> 

1037  DATA  A9 , 04 , 85 , A5 ,85 , A7 , A2 , 13 , A0 ,27  ,  Bl 

, A4 , 91 , A6 , 88 , 10,F9,CA,F0, 19,  2671  <208> 

1038  DATA  18, A5 , A4 , 69 , 28 , 85 , A4 , 90 , 02 , E6 , A5 

, 1 8 , A5 , A6 , 69 , 28 , 85 ,A6,90,E0,  2503  <251> 

1039  DATA  E6,A7,4C,B6,B2,A9,91 ,4C,D2,FF,A9 

, 0F , BD ,18, D4 , A9 , 00 , 8D , 05 , D4 ,  2776  <000> 

1040  DATA  A9 , F7 , 8D , 06 , D4 , A9 ,11, 8D , 04 , D4 , A9 

,32 , 8D ,01 , D4 , A9 ,00,8D,00 ,D4 ,  2413  <126> 

1041  DATA  A0 , 80 , 20 , 09 , B3 , A9 , 10 , 8D , 04 , D4 , 60 

, A2 , FF , CA , D0 , FD , BB , D0 , F8 , 60 ,  2914  <240> 

1042  DATA  A9,0F,8D, 18 , D4 , A9 , 2D ,BD , 05 , D4 , A9 

, A5 , BD , 06 , D4 , A9 ,21 , 8D , 04 , D4 ,  2385  <119> 

1043  DATA  A9 , 07 , 8D ,01, D4 , A9 , 05 , 8D , 00 , D4 , A0 

, FF , 20 , 09 , B3 , A9 , 20 ,8D,04,D4,  2250  <07B> 

1044  DATA  A9 , 00 , BD , 0 1 , D4 , BD , 00 , D4 , 60 , 38 , 20 

, F0 , FF , 8A , 48 , 98 ,48,18, A0 , 06 ,  2179  <175> 

1045  DATA  A2 , 1 8 , 20 , F0 , FF , A0 , B4 , A9 , 0A , 20 , FF 

, Bl ,20 , 12,B3, 20 ,E4,FF ,F0,FB,  2931  <093> 

1046  DATA  A2 , 1 D , A9 ,14, 20 , D2 , FF , CA , D0 , FA , 68 

, AB , 68 , AA , 18 , 4C , F0 ,FF , 0D , 0D ,  2704  <08B> 

1047  DATA  0D, 20, 20, 20, 20, 20, 20, 20, 4D, 41, 53 

, 43 , 48 , 49 , 4E , 45 , 4E , 53 , 50 , 52 ,  1144  <216> 

1048  DATA  41 ,43, 48, 45,20, 2D, 20, 45, 44, 49, 54 

,4F,52,20,0D,0D,20,20,20,20,  1023  <03B> 

1049  DATA  20 , 20 , 20 , 20 , 56 , 4F ,  4E ,  20 , 4E  ,  2E ,  4D 

,41,4E,4E,20,26,20,44,2E, 57 ,  1128  <206> 


1050  DATA  45 , 49 , 4E , 45 , 43 , 4B , 00 , 0D , 0D , 0D , 20 

,20,20, 50 ,52,4F,47,52,41,4D,  1102  <117> 

1051  DATA  4D , 4E , 4 1 , 4D , 45 , 20 , 3A , 20 , 00 , 0D , 0D 

,20,20,20,53,54,41,52,54,41,  1073  <095> 

1052  DATA  44, 52, 45, 53, 53, 45, 20, 3A, 20, 24, 00 

, 0D , 0D , 20 , 20 , 20 , 45 , 4E ,44,41,  1014  <129> 

1053  DATA  44, 52, 45, 53, 53, 45, 20, 20, 20, 3A, 20 

, 24, 00, 92, 05, 20, 50, 52, 4F, 47,  1171  <217> 

1054  DATA  52,41 ,4D,4D, 20, 3A, 20, 00, 12,20,20 

,2A,2A,2A,20,46,41,4C,53,43,  1024  <027> 

1055  DATA  48, 45, 20, 45, 49, 4E, 47, 41 ,42,45,20 

, 2A , 2A , 2A , 20 , 20 , 92 , 00 , 0D , 0D ,  1058  <098> 

1056  DATA  2A , 2A , 2A ,20,45, 4E , 44 , 45 , 20 , 2A , 2A 

,2A, 00, 13,05,20,20, 12,44,92,  920  <148> 

1057  DATA  49, 53, 4B, 20, 4F, 44, 45, 52, 20, 12, 54 

,92,41,50,45,00,00,13,20,20,  1151  <035> 

1058  DATA  49 , 2F , 4F , 20 , 2D , 20 , 46 , 45 , 48 , 4C , 45 

,52,00, 20 , Dl, Bl, 20, 48, B2 , A0 ,  1606  <012> 

1059  DATA  B3 , A9 , CF , 20 , FF , B 1 , 20 , 8E , B4 , 85 , FC 

, 20 , 8E , B4 , 85 ,FB,C5,61, A5 , FC ,  3207  <251> 

1060  DATA  E5 , 62 , 90 , 23 , A5 , FB , C5 , 5F , A5 , FC , E5 

, 60 , B0 ,19, 20 , A7 , B4 , D0 , 1 4 , 60 ,  2860  <112> 

1061  DATA  20 , A7 , B4 , F0 , 0C , 85 , F9 , 20 , A7 , B4 , F0 

, 05 , B5 , FB , 4C , EF , B0 , 68 , 68 , 20 ,  2749  <08B> 

1062  DATA  43 , B3 , 4C , 5F , B4 , 20 , CF , FF , C9 , 4C , D0 

,09, 20, Dl ,B1 ,20,4B,B2,4C,0B,  2372  <046> 

1063  DATA  B6 ,  C9 , 0D ,  60 ,  A9 , 00 , 85 , 5E ,  20 , 5F ,  B4 

, 20 , EA , B 1 , 20 , 0D , B5 , 24 , 5E , 30 ,  2042  <120> 

1064  DATA  05 , 20 , E4 , FF , F0 , FB , 20 , E 1 , FF , F0 , 26 

, 20 , 9F , B2 , 24 , 5E ,10, 09 , 20 , 4E ,  2435  <198> 

1065  DATA  B5 , 20 , 0D ,  B5 , 20 , 60 ,  B5 , 20 , 33 ,  B2 , 20 

, 3F , B2 , 90 , D7 , A0 , B4 , A9 , 28 , 20 ,  2190  <207> 

1066  DATA  FF , B 1 , 20 , E4 , FF , C9 , 0D , D0 , F9 , A9 , 00 

, 85 , 5E , A5 ,61, 85 , FB , A5 , 62 , 85 ,  3056  <240> 

1067  DATA  FC , 20 , E0 , B2 , 4C , 64 , B 1 , A5 , FC , 20 , 4E 

, B 1 , A5 , FB , 85 , FF , 20 , 4E , B 1 , A9 ,  3003  <221> 

1068  DATA  20,A0,3A,20,F2,B1 , A0 , 00 ,20 ,ED , Bl 

, Bl ,FB,20,4E,B1 ,C8,C0,08,90,  2566  <070> 

1069  DATA  F3 , 20 ,  ED ,  B 1 , 24 , 5E ,  30 , 03 ,  A9 ,12, 2C 

, A7 . 20 , 20 , D2 , FF , 20 ,10, B2 , A5 ,  2190  <059> 

1070  DATA  FF , 20 , 4E , B 1 , A9 , 92 , 20 , D2 , FF , 4C , EA 

,B1,A9,FF, 85 ,B8,85,B9, A9 , 04 ,  3073  <029> 

1071  DATA  85 , BA , 20 ,C0,FF,A2, FF , 4C , C9 , FF , 20 

, CC , FF , A9 , FF , 4C , C3 , FF , 20 , 5F ,  3315  <1B9> 

1072  DATA  B4 , A9 , 80 , 85 , 5E , 20 , 4E , B5 ,20,48, B2 

, A2 , 24 , A9 , 2D , 20 , D2 , FF , CA , D0 ,  2596  <111> 

1073  DATA  FA, 20, EA, Bl, 20 ,EA,B1,20,60, B5 , 4C 

, C 1 , B4 , 20 , B8 , B5 , A6 , 5F , A4 , 60 ,  2B12  <015> 

1074  DATA  A9 ,61 ,20 ,D8,FF,B0,0A,20, B7 ,FF,29 

, BF , D0 , 03 , 4C , FB , B4 , A9 ,01, 20 ,  2577  <201> 

1075  DATA  C3 , FF , 20 , 68 , B6 , A0 , B4 , A9 , 4F , 20 , FF 

, Bl , 20 ,F9 , B 1 , 4C , FB , B4 , 20 , 68 ,  2921  <237> 

1076  DATA  B6 , A9 , 37 , A0 , B4 , 20 , FF , B 1 , 20 , F9 , B 1 

, A2 , 08 , C9 , 44 , F0 , 06 , A2 ,01, C9 ,  2717  <213> 

1077  DATA  54 , D0 , F 1 , A9 ,01, A8 , 20 , BA , FF , A0 ,00 

, E0 ,01,F0,1A, A9 , 40 ,BD , 20 , 02 ,  2403  <101> 

1078  DATA  A9, 3A.BD, 21 ,07, B9, 01 .02.99.22,02 

, CB , CC , 00 , 02 , 90 , F4 , C8 , CB , D0 ,  2182  <127> 

1079  DATA  0C,B9,01 , 02 , 99 , 20 , 02 , C8 , CC , 00 ,02 

, D0 , F4 , 98 , A2 ,20 , A0 ,02 , 4C , BD ,  2018  <025> 

1080  DATA  FF , 20 , B8 , B5 , A5 , B A , C9 , 08 , 90 , 33 , A6 

, B9 , 86 , 57 , A9 ,01, 20 , C3 , FF , A9 ,  2800  <022> 

1081  DATA  60 , 85 , B9 , 20 , C0 , FF , B0 , 28 , A5 , BA , 20 

, B4 , FF , A5 , B9 , 20 , 96 , FF , 20 , A5 ,  2911  <053> 

1082  DATA  FF , 85 ,61, A5 , 90 , 4A , 4 A , B0 , 1 3 , 20 , A5 

, FF , 85 , 62 , 20 , AB , FF , A5 , 57 , B5 ,  2663  <214> 

1083  DATA  B9 , A9 , 00 , 20 , D5 , FF , 90 , 03 , 4C , A3 , B5 

, 86 , 5F , 84 , 60 , A5 , BA , C9 ,01, D0 ,  2639  <131> 

1084  DATA  0A , AD , 3D , 03 , 85 ,61, AD , 3E , 03 , 85 , 62 

, 4C , FB , B4 , A9 , 13,20 , D2 , FF , A2,  2300  <120> 

1085  DATA  IC, 20, ED, Bl, CA, D0, FA, 60,  1230  <214> 

©  64'ec 


MSE  (Schluß).  Dieses  Listing  können  Sie  (müssen  aber 
nicht)  mit  dem  neuen  Checksummer  64  V3  in  diesem  Heft 
eingeben. 
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Anwendung 


C  64 


Menü¬ 

gesteuerte 

Finanz¬ 

mathematik 

Zwei  herausragende  Eigenschaften 
machen  dieses  Programm  für  alle  C 
64-Besitzer  interessant:  Die  sehr  gute 
Menütechnik  und  der  modulare  Bild¬ 
schirmmaskenaufbau. 

Das  Programm  (Listing  1)  wird  nach  dem  Abtippen  und  Spei¬ 
chern  aller  Teilprogramme  mit  dem  Befehl:  LOAD"Menü"  ,8  ge¬ 
laden. 

Wählen  Sie  nach  dem  Start  mit  den  Funktionstasten  F3  und 
F5  die  Nummer  des  Programmes,  mit  welchem  Sie  als  näch¬ 
stes  arbeiten  wollen  (Zinsrechnung = Listing  2;  Zinseszins¬ 
rechnung  =  Listing  3;  Diskontieren  eines  Kapitals = Listing  4; 
Erstellung  eines  Tilgungsplans = Listing  5).  Sie  erkennen  Ihre 
augenblickliche  Position  an  der  blinkenden  Zahl.  Nach  been¬ 
deter  Wahl  drücken  Sie  »RETURN«.  Dann  wird  das  Programm 
geladen,  dessen  Zahl  gerade  blinkt  und  an  der  sich  nach  »RE¬ 
TURN«  ein  —  (Pfeil  links)  befindet. 

Bedienungsanleitung  für  das  Programm:  »Erstellen  eines 
Tilgungsplanes.« 

Nach  erfolgter  Auswahl  im  Hauptmenü  wird  das  Programm 
automatisch  gestartet.  Durch  entsprechende  Informationen  in 
der  Fußzeile  erklärt  sich  das  Programm  im  wesentlichen 
selbst.  Allerdings  mußte  manchmal  wegen  Platzmangel  darauf 
verzichtet  werden. 

Grundsätzlich  gilt: 

—  Bis  auf  die  Funktionstasten  erfolgt  bei  jeder  Eingabe  und 
Auswahl  ein  Abschluß  mit  »RETURN«. 

—  Bei  der  Auswahl  im  Programm,  wird  immer  mit  den  Tasten  F3 
und  F5  gewählt,  nach  Drücken  von  »RETURN«  wird  immer  das 
als  nächstes  ausgeführt,  was  zuletzt  geblinkt  hat. 

—  Zum  Abschluß  der  Dateneingabe  gilt  für  die  Abfrage,  ob  die 
Eingabe  korrekt  ist,  folgendes: 

a)  Zugelassen  sind  die  Buchstaben  j  (ja)  und  n  (nein). 

b)  Die  Antwort  kann  bis  zum  Abschluß  mit  »RETURN«  durch  die 
Taste  »DEL«  korrigiert  werden. 

—  Während  der  Dateneingabe  kann  man  durch  Drücken  der 
Taste  Fl  zum  ersten  Auswahlmenü  zurückkehren. 

—  Wird  die  Tabelle  auf  dem  Bildschirm  ausgedruckt,  kann  man 
den  Bildschirmausschnitt  innerhalb  der  festgesetzten  Gren¬ 
zen  verändern. 

Mit  Fl  kehrt  man  zur  alten  Bildschirmmaske  zurück. 

Das  Ausgabefeld  »Resultat«  enthält  folgende  Informationen: 

—  Zinsaufwand  (gesamt):  Dieser  Summe  entsprechen  sämt¬ 
liche  in  den  einzelnen  Jahren  zu  zahlende  Zinsen. 

—  Annuität  (gesamt):  Dies  ist  die  Summe,  die  man  insgesamt 
zurückzahlen  muß  (Zins-  und  Tilgungsanteil  zusammen), 

Im  linken  unteren  Feld  wird  noch  einmal  angegeben,  wie 
hoch  der  Zinsanteil  von  der  Annuität  in  Prozent  ist.  Dieses  Pro¬ 
gramm  stellt  Tilgungspläne  bis  zu  einer  Laufzeit  von  50  Jahren 
auf.  Falls  dies  nicht  ausreicht,  braucht  in  Zeile  neun  nur  die  Di¬ 
mensionierung  der  Variablen  e  und  e$  erhöht  werden. 

(Klaus  Klöker/og) 


Programmdokumentation:  Menü 

200-260; 

Aufbau  der  Bildschirmmaske 

300  —  390: 

Auswahlroutine  durch  Betätigen  der 
Funktionstasten 

400-410: 

Sprung  In  die  Zeile,  in  der  das  entsprechende 
Programm  geladen,  oder  in  der  das  Pro¬ 
gramm  beendet  wird 

900-960: 

Festlegung  der  Variablen 

Varlabienliste:  Menü 

na$  (...)  = 

Nummern  der  Programme 

nb$  (...)  = 

Namen  der  Programme 

Z  = 

Zelle 

s  = 

Spalte 

Y  = 

Index  der  indizierten  Variablen 

g$  = 

Eingabevariable  der  get-Anweisung 

Programmdokumentation:  Zinsrechnung 

10-  30 

Unterprogramm  zum  Löschen  des  rechten 
oberen  und  linken  unteren  Bildschirmfensters 

70—  75 

Unterprogramm  zur  Rundung  der  Ergebnisse 
und  zur  Umwandlung  in  einen  String 

80 

Unterprogramm  zum  Laden  des  Menüs 

90 

Unterprogramm  zum  Setzen  des  Cursors,  an 
die  Stelle,  welche  mit  Z  =  Zeile  und  S  = 

Spalte  vor  dem  Sprungbefehl  festgelegt 
wurde 

95 

Unterprogramm  zum  Zeichnen  einer  Linie 

100—  195 

Auswahlroutine  mit  den  Funktionstasten  der 
entsprechenden  reversen  Felder  oben  links 
und  unten  links. 

200-  290 

Auswahlroutine  mit  den  Funktionstasten  der 
Fußzeile. 

300—  480 

Eingaberoutine 

1000-  1180 

Beginn  des  Hauptprogramms: 

—  Aufbau  der  Bildschirmmaske 

gen,  was  berechnet  werden  soll. 

2000  —  2140 

Aufbau  der  Eingabemaske  und  Eingabe  der 

Daten  mittels  der  Eingaberoutine.  Anschlie¬ 
ßend  erfolgt  Abfrage,  ob  die  Eingabe  korrekt 
ist. 

3000  -  3040 

Berechnung  des  vorher  ausgewählten  Ergeb¬ 
nisses 

3500  —  3610 

Ausdruck  des  Ergebnisses.  Es  werden  aus¬ 
gedruckt: 

—  die  am  Anfang  festgelegten  Kriterien 

—  die  eingegebenen  Daten 

—  das  Endergebnis 

Es  folgt:  Aufbau  der  Fußzeile  mit  der  Mög¬ 
lichkeit  durch  Wahl  mit  den  Funktionstasten 

entsprechend  zu  verzweigen 

Variablenliste:  Zinsrechnung 

ma$: 

Kopfzeile 

mbS,  mc$,  md$: 

Fußzeilen 

a$  (...): 

Eingabekriterien 

ka$;  p$;  zl$ 
ja$;  mo$;  ta$ 

Ein-  und  Ausgabekriterien 

pm$;  pu$: 

Punkte  in  der  Eingabemaske 

Z; 

Zeile  der  Cursorposition 

S: 

Spalte  der  Cursorposition 

ZI: 

niedrigste  Zeile,  die  gelöscht  werden  soll 

Z2: 

Y: 

höchste  Zeile,  die  gelöscht  werden  soll 
Variablenindex 

Y1: 

kleinster  Index 

Y2: 

größter  Index 

SW: 

Schrittweite 

k;  c: 

f: 

Konstanten,  die,  je  nach  ihrer  Wertigkeit,  be¬ 
stimmte  Vorgaben  ausführen, 
gibt  an,  welche  Berechnung  erfolgen  soll 

e: 

h:  , 

gibt  an,  die  Art  der  Laufzeit 

legt  die  Art  der  Laufzeit  in  der  Berechnung 

fest 

in$: 

Variable  in  der  Eingaberoutine 

ab$: 

Endergebnis 

20 
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Programmdokumentation: 

Tilgungsrechnung 

10  — 

20 

Unterroutine  zum  Löschen  der  rechten 
Bildschirmhälfte 

30  — 

55 

Unterroutine  zum  Runden  des  Ergebnisses 
und  zum  Umwandeln  in  einen  String 

70 

Unterroutine  zum  Laden  des  Menüs 

80 

Unterroutine  zum  Zeichen  einer  Linie 

90 

Unterroutine  zur  Festlegung  der  Cursor¬ 
position 

95 

Unterroutine  zum  Löschen  der  Fußzeile 

100- 

195 

Unterroutine  zur  Auswahl  der  vorgegebenen 
Möglichkeiten  mit  den  Tasten  F3  und  F5,  der 
Abschluß  erfolgt  mit  »RETURN«. 

200  — 

290 

Unterroutine  zur  Auswahl  bei  der  Fußzeile  mit 

den  Tasten  F3  und  F5,  der  Abschluß  erfolgt 
mit  »RETURN«. 

300- 

480 

Eingaberoutine.  Durch  Drücken  der  Taste  Fl 
kann  man  von  vorne  beginnen 

900  - 

960 

Aufbau  der  Bildschirmmaske 

1010- 

1080 

Ausdruck  der  Kopfzeile  und  Bildschirmmas¬ 
ke,  Sprung  in  die  Auswahlroutine  (100-195) 

2000- 

2140 

Aufbau  der  Eingabemaske  und  Sprung  in  die 
Eingaberoutine.  Zum  Schluß  wird  abgefragt, 
ob  die  Eingabe  korrekt  ist.  Die  Antwort  wird 
mit  »RETURN«  eingegeben  und  kann  vorher 
mit  »DEL«  korrigiert  werden. 

3000- 

3720 

Ausführung  der  Rechnung  mit  Sprung  in  die 
Rundungs-  und  Stringumwandlungsroutine 

3800- 

3900 

Ausdruck  des  Resultates  auf  dem  Bildschirm 

3910  — 

3950 

Aufbau  der  Wahifußzeiie  und  Sprung  in  die 
Auswahlroutine  (200-290) 

4000  — 

4590 

Ausdruck  der  Tabelle  und  Verändern  des 
Bildschirmausdrucks  mit  den  Cursortasten: 

Mit  Fl  erfolgt  ein  Rücksprung 

5000  — 

5090 

Änderung  der  eingegebenen  Daten 

5500- 

5660 

Papierausdruck  der  eingegebenen  Daten  und 
der  Tabelle 

6000  — 

6500 

Festlegung  der  Variablen 

Variablenliste:  Tilgungsrechnung 

ma$ 

Kopfzeile 

mb$ 

mc$ 

me$ 

Fußzeilen 

m($ 

mh$ 

md$ 

Löschzeile  zum  Löschen  des  Bildschirms 

Z: 

Zeile  der  Cursorposition 

S: 

Spalte  der  Cursorposition 

Y: 

Variablenindex,  der  einfach  dimensionierten 
Variablen 

Y1: 

niedrigster  Variablenindex 

Y2: 

höchster  Variablenindex 

Sw: 

Schriftweite 

9$: 

g: 

U: 

Variable  der  GET-Anweisung 

ASC  (g$) 

Variablenindizes  der  zweifach  dimensionierten 
Variablen 

c: 

f: 

h: 

Konstante,  von  der  bestimmte  Bedingungen 
abhängen 

gibt  das  Ergebnis  der  Auswahlroutine  an 
beschränkt  die  maximale  Eingabelänge 

in$: 

Variablenindex 

pns: 

füllt  den  Ergebnisstring  mit  Punkten  auf 

is: 

gibt  das  Jahr  in  der  Tabelle  an 

tb$: 

chr$(16):  Tabulator 

ta$: 

chr$(10):  Leerzeile 

XI: 

Variable  die  den  kleinsten  Index  der  Tabelle 
angibt 

X2: 

Variable  die  den  größten  Index  der  Tabelle  an¬ 
gibt 

Variablen  der  Rechnung  t1,t2,J2,r1,a1,Z1,Z2 

<051  > 
<  008  > 
<076> 
<069  > 


<225> 


210 


220 


230 

240 


250 


260 


70  REM  BY  KLAUS  KLQEKER 
80  GOTO  100 

90  POKE  214 , Z : POKE  211,S:SYS  58732:RETURN 
100  REM  *  MENUE  * 

110  PRINT" (CLR.WHITE)": POKE  53280,0: POKE  5 
3281 ,0: POKE  53272,23: POKE  788,52:G0SUB 
900 

200  PR I NT " {RVSON , 4SPACEeE.{SHI  FT-SPACE  JltSH 
I FT-SPACE  >H  CSHI FT-SPACE  JflCBH I FT-SPACE} 
ü  {SH  I FT-SPACE  >££SH  I FT-SPACE }fl (SH I  FT— SP 
ACE  >&£SH I FT-SPACE  1KSHIFT-SPACE  }ß(SH I F 
T-SPACE }£(SH I FT-SPACE 1 ß  CSH IFT-SPACE) fl{ 

SH I F T-SPACE JX  i<SH I FT-SPACE > XI4SPACE , R 
VQFF  > " 

Z=4:S=6:G0SUB  90 : PR  INT" flENUE  :":Z=5:G0 
SUB  90:  PRINT" - » 

Z=7:S=0:Y=1:FOR  1=1  TO  5:G0SUB  90:PRIN 
T  NA*<I) ;NB*<1) 

Z=Z+2: Y=Y+1 : NEXT 

Z=18: GOSUB  90:PRINT" {RVSON, 5SPACE , RVOF 
F , 2SPACE 1ÜAEHLEN  SIE  MIT (SPACE, RVSON, S 
PACE  >£3 {SPACE , RVOFF , SPACE  >UND (SPACE , RV 
SON , SPACE  >  £3 (SPACE , RVOFF , SPACE  > ! " 

Z=20:S=7:  GOSUB  90:PRINT"  ÜRUECKEN  £IE  D 
ANN  '  Rf-T.UJUKSHIFT— SPACE!'  (SPACF  ,  SH  I  FT 
-SPACE} ! " 

Z=23: S=0: GOSUB  90 :  PR I NT "  ITT'I  I  I  I  I  I'ITI'IT 

300  REM  *  AUSWAHLROUTINE  * 

310  Z=7:Y=1 

320  GOSUB  90: PRINT" (RVSON, 5SPACE , RVOFF } " : F 
OR  1=1  TO  75: NEXT 

330  PRINT“ CUP}";NA*<Y> :FOR  1=1  TO  125:NEXT 
340  GET  G*:IF  G*< >CHR* < 134) AND  G*OCHR*(13 
5)  AND  G*OCHR*(13)THEN  320 
350  IF  G*=CHR* (13) THEN  GOSUB  90:  PRINT“  CRVS 
ON } > (RVOFF } " ; : GOTO  400 
355  IF  G*=CHR*( 135) THEN  380 
360  Z=Z+2: Y=Y+1 : IF  Z>15  THEN  Z=7:Y=1 
iQTn  320 

2: Y=Y— 1 : IF  Z<7  THEN  Z=15:Y=5 
390  GOTO  320 

400  ON  Y  GOTO  500,510,520,530,540 
410  END 

500  LOAD  NB* (1) ,8 
510  LOAD  NB* (2) ,8 
520  LOAD  NB* (3) ,8 
530  LOAD  NB* (4), 8 

540  PRINT" ICLR}": POKE  53272,21 : POKE  788,49 
:  END 

900  REM  *  VARIABLEN  * 

910  NA* (1)=" {RVSON}-  1  — (RVOFF , SPACE } " : NA* 
(2)=" (RVSON}-  2  -(RVOFF, SPACE}“: NA* (3) 

=" (RVSON}-  3  -(RVOFF, SPACE}" 

920  NA* (4)=" (RVSON}-  4  - (RVOFF, SPACE} ": NA* 

(5) =" (RVSON}-  5  - {RVOFF , SPACE } " 

930  NB* ( 1 > ““ZINSRECHNUNG" : NB* (2) “"ZINSES ZI 
NSRECHNUNG" 

940  NB* ( 3) = "ÜISKUNT I EREN  EINES  KAPITALS" 

950  NB*  (4)  “"ERSTELLEN  EINES  XI LGUNGSF'L AENE 
S " : NB* ( 5 ) = " £ROGRAMMENDE " 

960  RETURN 

©  84'«- 

Listing  1.  »Menüprogramm«. 

Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  16. 
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<098  > 
<186> 

<  153> 
<249> 

<077> 

<055> 

<176> 

<101> 

<208> 

<246> 

<172> 

<202> 

<  165> 
<036> 

<  1 19> 
<092> 
<006> 

<  1 12> 
<091  > 

<  158> 
<097> 
<236> 

<  120> 

<003> 

<071> 

<039> 

<145> 

<035> 

<14B> 

<130> 

<020> 

<000> 


7  POKE  45,PEEK(174):P0KE  46 ,PEEK ( 175) : CLR  <013> 

8  REM  BY  KLAUS  KLOEKER  <245> 

9  CLR: DIM  A* ( 15) , A ( 15) : GOTO  1000  <249> 

10  Z 1=3: Z2=9: S=13: REM  *  MASKE  LOESCHEN  #  <217> 

20  FOR  Z=Z1  TO  Z2: GOSUB  90: PRINT" (26SP ACE} 

" : NEXT : IF  C=0  THEN  RETURN  <093> 

30  Z 1=12: Z2=20: C=0: GOTO  20  <244> 

50  RETURN  <108> 

70  A*  < 12) =STR* ( INT (A ( 12) *100+. 5) > : REM  »  RU 

NDEN  <101> 

75  AB*=LEFT * ( A* (12)  , LEN ( A* ( 12) ) -2) +" . "+RIG 

HT*  CA* ( 12) , 2) : RETURN  <152> 

80  LOAD "MENUE“ ,8: REM  »LOAD  MENUE  <006> 


Listing  2.  Zinsrechnung 


Anwendung 


C  64 


90  POKE  2 1 4 , Z : PQKE  211,S:SYS  58732: RETURN: 

REM  *  CURSORPOSITION  <175> 

95  A=55B69:F0R  1=1597  TO  1622: POKE  I,100:P 

OKE  A, 1:A=A+1: NEXT: RETURN  <110> 

100  REM  *  AUSWAHLROUTINE  *  <155> 

110  GOSUB  90: PRINT" TRVSON, 1 1 SPACE ,RVQFFJ " : 

FÜR  1=1  TO  75: NEXT  I  <075> 

120  GOSUB  90 : PR  INT" TRVSON  J " A* ( Y ) " CRVOFF } "  : 

FOR  1=1  TO  125: NEXT  <112> 

130  GET  G*:  IF  G*< >CHR* < 133) AND  G*OCHR*(13 

4)  AND  G*OCHR*(135)AND  G*< >CHR* ( 13) THE 
N  110 

140  IF  G*=CHR*(133)AND  C  TUEN  C=0: RETURN 
150  IF  G*=CHR*(13)THEN  GOSUB  90: PRINT" CRVS 
ON  >  > CRVOFF > " : RETURN 
160  IF  G*=CHR*( 135) THEN  190 
170  Z=Z+SW: Y-Y+l: IF  Z>Z2  THEN  Z=Z1:Y=Y1 
180  GOTO  110 

190  Z=Z-SW: Y=Y-1: IF  Z<Z1  THEN  Z=Z2:Y=Y2 
195  GOTO  110 

200  REM  «  WAHL-FUSSZE1LE  *:S=0 
210  Z=23: GOSUB  90: PRINT" CRVSON, 10SPACE ,RVO 
FF >” ; : FOR  1  =  1  TO  75:NEXT 
220  GOSUB  90: PRINT" CRVSON > "BA* (Y> " CRVOFFJ" 

; : FOR  1=1  TO  175:NEXT 

230  GET  G*:  IF  G*<  >CHR*  (134)  AND  G*OCHR*(13 

5)  AND  G*OCHR*(13)THEN  210 
240  IF  G*=CHR*(13)THEN  GOSUB  90: PRINT" CRVS 

ON  >  > CRVOFF  > " : : RETURN 
250  IF  G*=CHR*( 135) THEN  280 
260  S=S+10: Y=Y+1: IF  S>31  THEN  S=0:Y=1 
270  GOTO  210 

280  S=S— 10: Y=Y— 1 : IF  S<0  THEN  S=30:Y=4 
290  GOTO  210 

300  REM  *  EINGABEROUTINE  » 

310  GOSUB  90 
320  IN*="" 

330  PRINT"TCLEFT>"; 

340  GET  G*:  IF  G*='"’THEN  340 
350  G=ASC(G*):IF  G=13  THEN  GOTO  460 
370  IF  G*<"0"OR  G*>"9"THEN  420 
380  IN*=IN*+G* 

390  PRINT  G*; 

400  IF  LEN(IN*)>N  THEN  FOR  1=1  TO  LEN« IN*) 

: PRINT  CHR* (20) ; : NEXT : GOTO  320 
410  GOTO  330 
420  IF  G=46  THEN  380 
425  IF  G*=CHR*( 133) THEN  9 
430  IF  G< >20  THEN  330 
440  IF  LEN  ( IN* >  <  1  THEN  330 
450  IN*=LEFT*(IN*,LEN(IN*)-1> : GOTO  390 
460  PN*="":FOR  1=1  TO ( 10-LEN ( IN*) > : PN#=PN* 

NEXT: PRINT  PN* 

470  IF  LEN ( IN* ) < 1  THEN  310 
480  RETURN 

999  : 

1000  REM  #*  ZINSRECHNUNG  ** 

1010  GOSUB  5000: PR INT  MA* 

1020  A=5538B:FOR  1=1076  TO  1606  BTFP  40iPO 
KE  1,101: POKE  A , 1 : A=A+40: NEXT 
1030  A=55736: FOR  1=1464  TO  1474: POKE  1,100 
:  POKE  A ,  1 :  A=A+ 1 : NE  X  T 

1040  A=55749: FOR  1=1477  TO  1502: POKE  1,100 
: POKE  A , 1 : A=A+1 : NEXT 
1050  Z=23:S=0: GOSUB  90: PRINT  MB* 

1060  Z-3IB0SUB  90: PR  INT "AUSWAHL  :":PRINT"T 


1070  Z=5: FOR  1=1  TO  5:GQSUB  90: PRINT" CR VSO 
N)"A*(I) " CRVOFFJ  " : Z=Z+1 : NEXT 
1080  Z=5:Z1=Z: Z2=9:S=0: Y=l: Y1=Y: Y2=5:SW=1: 

C=0: GOSUB  100: F=Y : IF  F=5  THEN  80 
1090  Z  =  13:S=0:  GOSUB  90:  PRINT".L/JUFZEIT  IN": 

1100  Z=15: FOR  I=60TO  8:S=0:GOSUB  90:PRINT" 
CRVSONJ " A* ( I ) " CRVOFFJ " : Z=Z+1 : NEXT 
1110  Z=15: Z1=Z: Z2=17: S=0: Y=6: Y1=Y: Y2=8: SW= 
1:C=0: GOSUB  100: E=Y 
1120  IF  E=6  THEN  A*  ( 1 1  >  =  J A* :  H=  1 
1130  IF  E=7  THEN  A* (11) =MO* : H= 1 2 
1140  IF  E=8  THEN  A* (11) =TA*: H=360 
1150  IF  F=1  THEN  A*  C  9 ) =KA* :A*(10)=P*:K=1 
1160  IF  F=2  THEN  A* (9) =Z I*: A* < 10) =P*: K= 1 
1170  IF  F=3  THEN  A* (9) =KA*: A* C 10) =Z I*: K=0 
1180  IF  F=4  THEN  A* (9) =KA*: A* < 10) =Z I*: A* ( 1 

Listing  2.  Zinsrechnung  (Fortsetzung) 


<023> 

<  151  > 

<147> 
<095> 

<  1 15> 

<  124> 
<212> 

<  139> 

<  128> 

<218> 

<  1 4 1  > 
<217> 

<  145> 

<  153  > 

<  107> 
<224  > 
<058> 
<244> 
<179> 
<058> 
<010> 
<197> 
<075> 

<  165> 
<011> 
<221  > 
<209> 

<227> 
<148> 

<  130> 
<253> 

<  135> 
<140> 
<227> 

<017> 

<  106> 
<028> 
<213> 
<021  > 
<098> 

<078> 

<  183> 

<032> 

<  154> 

<  153> 
<066> 
<255> 

<044  > 

<  1 04  > 

<206> 

<  1 1B> 

<  174> 
< 064  > 
<203> 
<217> 
<087  > 


1 ) =P* : K=2  <0901 

2000  REM  *  EINGABEMASKE  *  <128> 

2010  Z=3:S=13: GOSUB  90: PR INT "EINGABE  :":Z= 

4 : GOSUB  90 : PR I NT •  TTTTTTTTT“  <  033 > 

2020  Z=5: FOR  1=9  TO  1 1 : S=13: GOSUB  90: PRINT 

"CRVSON>“A*(I>" CRVOFF , SPACE } :  " ; PM*  < 153> 

2030  Z=Z+2: NEXT : Z=23: S=0: GOSUB  90:PRINT  MC 

*  <013> 

2040  Z=5:S=27:N=10: GOSUB  300: A (9) =VAL ( IN*)  <196> 

2050  Z=7:S=27:N=10: GOSUB  300: A ( 10) =VAL ( IN* 

)  <255> 

2060  Z=9:S=27:N=10: GOSUB  300: A ( 1 1 ) =VAL ( IN* 

)  <042 > 

2070  Z=13:S=13: GOSUB  90: PR INT "EINGABE  KORR 

EKT  7  (J/N) :": GOSUB  95  <086> 

2080  Z=13:S=38: GOSUB  90: PRINT"T<LEFT> " ;  <065> 

2090  GET  G*: IF  G*<>"J"AND  G*< >"N"THEN  2090  <206> 

2100  PRINT  G*: IF  G*="J"THEN  Y=1  <075> 

2110  IF  G*="N”THEN  Y=0  <107> 

2120  GET  I*:IF  I*<  >CHR*  (13)  AND  I*OCHR*(20 

) THEN  2120  < 136> 

2130  IF  I*=CHR* (20) THEN  2080  <057> 

2140  C=1 : GOSUB  10: IF  Y=0  THEN  2010  <132> 

3000  REM  *  RECHNUNG  *  <043> 

3010  IF  F=1  THEN  A ( 12) = ( A (9) *A ( 10) *A ( 1 1 > > / 

(100*H)  <103> 

3020  IF  F=2  THEN  A ( 12) = ( A (9) » 100*H> / ( A ( 10) 

*A(U>>  <216> 

3030  IF  F=3  THEN  A ( 12) = (A ( 10) *100*H> / ( A (9) 

*A(1D)  <015> 

3040  IF  F=4  THEN  A ( 12) = (A ( 10) *100#H> / (A (9) 

*A(11>>  <057 > 

3500  REM  *  BILDSCHIRM  <233> 

3510  Z=3:S=13: GOSUB  90: PR INT "EINGABE  : " : Z= 

4:  GOSUB  90 :  PR I NT " TTTTTTTTTT"  <122> 

3520  Z=5: FOR  1=9  TO  ll:GOSUB  90: PRINT  A*(I 

)"  : “A (I ) : Z=Z+2: NEXT  <016> 

3530  Z=13: GOSUB  90: PRINT " ÄESULT AT  :":Z=14: 

GOSUB  90: PR INT "TTTTTTTTTT": GOSUB  70  <064> 

3540  Z=16: GOSUB  90: PRINT" TRVSON }"A* (F) " CRV 
OFF,SPACFJ: :PRINT  TAB (38-LEN ( AB*) ) : 

AB*  < 149 > 

3550  PRINT  TAB (39-LEN ( AB*) ) ; : FOR  1  =  1  TO  LE 

N  ( AB#)  -  1 :  PRINT"  =  "  ;  :  NEXT  <170> 

3560  Z=20: GOSUB  90: IF  K=1  THEN  PRINT"BUSDR 

UCK  IN  aflCSHIFT-SPACEJ ! " : GOTO  3580  <244> 

3570  IF  K=0  THEN  PRINT"ßUSDRUCK  IN  .PROZENT 

! "  <255> 

3580  Z=23:S=0: GOSUB  90: FOR  1=1  TO  4: PRINT" 

TRVSON  J " BA* ( I ) " CRVOFFJ";  :  NEXT  <234> 

3590  Y=l: GOSUB  200: IF  Y=4  THEN  80  <041 > 

3600  IF  Y=3  THEN  1010  <136> 

3610  IF  Y=2  THEN  4500  <247> 

4000  REM  *  AENDERUNG  *  <039> 

4010  C=l: GOSUB  10  <239> 

4020  Z=3:S=13: GOSUB  90: PRINT "SENDERUNG  :": 

Z=4:  GOSUB  90:  PRINT "TTTTTTTTTTT"  <139> 

4030  Z=5: S=13: FOR  1=9  TO  1 1 : GOSUB  90:PRINT 

••  (RUSQMl"fl*(  I  )  ••  {RVOFF,  SPACE  Js  "  i A< I >  =  Z 

=Z+2: NEXT  <030> 

4040  Z=23:S=0: GOSUB  90: PRINT  MD*;  <059> 

4050  Z=5: Z 1=Z: Z2=9: S=13: Y=9: Y1=Y: Y2=l 1 : SW= 

2: C=1 : GOSUB  100  <253> 

4060  IF  C=0  THEN  GOSUB  10: GOTO  3000  <068> 

4070  Z=13: S=13: GOSUB  90: PRINT" CRVSON > "A* (Y 

>" CRVOFF, SPACE J:  ";PM*:GOSUB  95  < 196> 

4080  Z=23:S=0: GOSUB  90: PRINT  MC*; : Z=13: S=2 

7 : GOSUB  300: A ( Y ) =VAL < IN* > : GOTO  4010  <211> 

4500  REM  *  AUSDRUCK  *  <254> 

4510  OPEN  4,4,7: PR I NT#4 , CHR* (14); CHR# (16); 

"28AIX5.KL.CJVLU.NG"  <058> 

4520  PR  I NT44  ,  CHR*  (16)  ;  "28 - ";CHR 

*(10)  < 171 > 

4530  FOR  1=9  TO  11: PRINT44 , CHR* ( 15) ; CHR* ( 1 

6);  "10*»»  11 A*  <  1  >  "  :  ";A(I):NEXT  <003> 

4540  GOSUB  70: PRINT44 ,CHR* ( 10) ; CHR* ( 16) ; " 1 

4"A* (F) "  :  "AB*  <141> 

4550  PRINT#4,CHR*(16) ; "15" ; : FOR  1=1  TO  2+L 

EN (A*(F)+AB*> : PR I NT#4 , " = " ; ; NE  X  T  <178> 

4560  PRINT#4 : PRINT#4: PRINT44  <213> 

4570  PRINT#4,CHR*(13) ; CHR* ( 16) ; "10**»C3SPA 

CE  JJiAPITAL  UND  ZINSSATZ  WERDEN";  <209> 

4580  PRINT#4, "  IN  '  fifl  AUSGEDRUCKT,"  <135> 

4590  PRINT44 , CHR* ( 16) ; " 16DER  ZINSSATZ  IN  J 


22 


C  64 
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7.  •  !  "  <036> 

4600  PRINT#4:F0R  1=1  TQ  40: PRINT44 ,"==";: N 

EXT: PRINT  #4: PRINT#4: PRINT  #4 : PR INT #4  <072> 

4610  CLOSE  4: FQR  1=56176  TO  56215: POKE  1,0 

: NEXT : GOTO  3580  <180> 

5000  REM  #  VARIABLENLISTE  *  <016> 

5010  MAS=" {CLR , RVSON , 8SPACE }Z£SH I FT-SPACE } 
i£SH I FT-SPACE }  ZUSH I FT-SPACE  >ä£SH I FT-S 
PACE}£(SHIFT-SPACE}££SHIFT-SPACE)£{SH 
I FT -SP ACE } ü  £SH I FT -SP ACE  >  &  £SH I FT-SPACE 
} ££SH IFT-SPACE }&{SH I FT-SPACE  }££8SPACE 


, RVQFF}"  <159> 

5020  MBS=" {RVSON, SPACE} £3  U.  £5  -  HAHL  !  ' 

RE.T-UJW '  -  EINGABE  !  £RVOFF>"  <247> 

5030  MCS=" {RVSON, 3SPACE}£1  -  HEU  !  C5SPACE> 

GEBEN  SIE  EIN  ! {6SPACE ,RVOFF> "  <135> 

5040  MDS=" {RVSON, SPACE )£1  -  RESULTAT  ! {5SP 

ACE} £3  U.  £5  -  HAHL  ! {SPACE, RVOFF>"  <167> 
5050  KAS  =  " {2SPACEJAAPITAL {2SPACE1 " : P*=" £2S 

PACE >£I NSSAT Z  ":ZIS="  ZINSERTRAG"  .  <229> 


5060  J  AS= " {2SPACE JiAHRE T4SPACE > " : MOS= " £2SP 
ACE  >  ÜONATE {3SPACE } " : TAS= " {2SPACE  JIAGE 


{5SPACE}":PMS=" . “  <203> 

5110  BAS<1>="  flENDERN £2SPACE > "  <245> 
5120  BA*<2)="  £DPI  EMSPACE}“  <209> 
5130  BAS(3>="  H-SERECH. “  <052> 
5140  BAS<4>="  HENUE  MSPACE } "  <126> 
5510  AS(1>="  ZINSERTRAG"  <044> 
5520  A#(2)="£2SPACE}J(APITAL{2SPACE}"  <065> 
5530  AS<3>=" I2SPACEJZINSSATZ  "  <154> 
5540  AS<4>=" £2SPACE> SAUF ZEIT  "  <069> 
5550  AS  <  5  >  =  " T2SPACE } HENUE  T4SPACE } "  <146> 
5560  AS(6)="{2SPACE},iAHRE{4SPACE}"  <070> 
5570  AS  <7  )  =  "  {2SPACEJH0NATE  {3SPACE} 11  <137> 
5580  AS (8) =“ {2SPACEJZAGE {5SPACEJ"  <234> 
5590  AS<13)=" £2SPACE>fl£NDERN{2SPACE>"  <205> 
5600  A*(14)="£2SPACE>HESULTAT  "  <113> 


5610  AS<15>=" £2SPACE}d£NUE MSPACE}": RETURN  <097> 

@  64-er  Listing  2.  Zinsrechnung  (Schluß) 


7  POKE  45 , PEEK <174): POKE  46,PEEK ( 175) : CLR 

<013> 

410  IF  G=46  THEN  370 

<  1 18> 

9  CLR: DIM  AS < 19) , A < 19) ,BAS (4) : GOTO  1000 

<  185> 

420  IF  G*=CHR# <133) THEN  9 

<248> 

10  Z 1 =2 : Z2= 1 0 : S= 1 3 : REM  *  MASKELOESCHEN  * 

<055> 

430  IF  6020  THEN  320 

<  131  > 

20  FOR  Z=Z1  TO  Z2: GOSUB  80: PRINT" {26SP ACE > 

440  IF  IN< 1  THEN  320 

<002> 

" : NEXT : IF  C=0  THEN  RETURN 

<077> 

450  IN*=LEFT*< INS, IN-1): GOTO  380 

<21 1  > 

30  Z 1=12: Z2=20:C=0: GOTO  20 

<244> 

460  PNS=" " : FOR  1=1  TO < 10-LEN < INS) ) : PNS=PNS 

40  S=0: FOR  Z=12  TO  20:GOSUB  80: PRINT “ £1 1  SP 

NEXT: PRINT  PNS 

<017> 

ACE>": NEXT: RETURN 

<055> 

470  IF  LEN  (INSXI  THEN  310 

<  106> 

50  AS ( A>  =STRS ( INT ( A ( A) * 100+. 5) > : REM  *  RUND 

480  RETURN 

<028> 

EN 

<253> 

999  : 

<213> 

60  ABS=LEF  TS ( AS ( A ) ,LEN < AS < A>  > -2) +" . "+RIGHT 

1000 

REM  *  ZINSESZINSRECHNUNG 

<043> 

$ (AS ( A) ,2) : RETURN 

<  161  > 

1010 

GOSUB  5000:  PRINT  MAS 

<098> 

70  LOAD " FM . MENUE " , 8 : REM  * 

<248> 

1020 

A=55388: FOR  1=1076  TO  1906  STEP  40: PO 

80  POKE  214, Z: POKE  211,S:SYS  58732: RETURN: 

KE  1,101: POKE  A , 1 : A=A+40: NEXT 

<078> 

REM  *  CURSORPOSITION 

<165> 

1030 

A=55736: FOR  1=1464  TO  1474: POKE  1,100 

90  A=55869: FOR  1=1597  TO  1622: POKE  I,100:P 

MER 

onum 

: Pi)  CE  A,1:A=A+1:NEXT 

<  183> 

OKE  A , 1 : A=A+ 1 : NE  X  T : RETURN 

<105> 

1040 

A=55749 : FOR  1=1477  TO  1502: POKE  1,100 

100  REM  *  AUSWAHLROUTINE 

<243> 

: POKE  A, 1 : A=A+1 : NEXT 

<032> 

110  GOSUB  80: PR  INT" {RVSON, 1 1SPACE ,RVOFF>" : 

1050 

Z=23:S=0: GOSUB  80: PRINT  MBS 

<138> 

FOR  1=1  TO  75: NEXT 

<026> 

1060 

Z=2 : GOSUB  80 : PR I NT "  SJSWAHL  : " : PR I NT “ T 

i  c-c»  uuauo  öu  ■  rn  l  i*i  i  vnvaui'i/  Y)  InVUrr/  : 

FOR  1=1  TO  125: NEXT 

<  104> 

1070 

Z=4: FOR  1=1  TO  5: GOSUB  80: PRINT" £RVSO 

<009> 

130  GET  GS:IF  GS< >CHRS < 133) AND  GSOCHRSC13 

N> " AS ( I ) " {RVOFF}" :Z=Z+1: NEXT 

<242> 

4) AND  GS<  >CHRS ( 135) AND  G*< >CHR* < 13) THE 

1080 

Z=4: Z1=Z: Z2=8: S=0: Y=1 : Y1=Y: Y2=5: SW=1 : 

N  110 

<023> 

C=0: GOSUB  100: F=Y : IF  F=5  THEN  70 

<  173> 

140  IF  GS=CHRS<133> AND  C  THEN  C=0: RETURN 

<151> 

1090 

IF  F=1  THEN  AS  < 9 )  =KOS :  AS  (  1 0 )  =PS :  AS  ( 1 1 

150  IF  GS=CHRS(13)THEN  GOSUB  80: PRINT" £RVS 

)=NS:K=1 

<  2 1 2  > 

ON  >  > {RVOFF } " ; : RETURN 

<023> 

1100 

IF  F=2  THEN  AS <9) =KNS: AS < 10) =PS: AS ( 1 1 

160  IF  GS=CHRS< 135) THEN  190 

<095> 

)=NS:K=1 

<190> 

170  Z=Z+SW: Y=Y+1: IF  Z>Z2  THEN  Z=Z1:Y=Y1 

<  1 15> 

1 1 10 

IF  F=3  THEN  AS (9) =KOS: AS < 10) =KNS: AS < 1 

180  GOTO  110 

<124> 

1>=NS:K=0 

<096> 

190  Z=Z-SW: Y=Y— 1 : IF  Z<Z1  THEN  Z=Z2:Y=Y2 

<212> 

1120 

IF  F=4  THEN  AS (9) =KOS: AS < 10) =KNS: AS < 1 

195  GOTO  110 

<  1 39  > 

1 ) =PS: K=2 

<  156> 

200  REM  *  WAHL— FUSSZEILE: S=0 

<122> 

2000 

REM  *  EINGABEMASkE 

<00/,  > 

210  Z=23: GOSUB  80: PR  INT" {RVSON , 10SPACE , RVO 

2010 

Z=2:S=13: GOSUB  80: PR INT "EINGABE  :":Z= 

FF } " ;  : FOR  1  =  1  TO  75:NEXT 

<217> 

3: GOSUB  B0 : PR I NT " TTTTTTTTT" 

<224> 

220  GOSUB  80: PRINT" {RVSON > "BAS ( Y) " {RVOFF  > " 

2020 

Z=4: FOR  1=9  TO  12: S=13: GOSUB  80: PRINT 

; : FOR  1=1  TO  175:NEXT 

<133> 

“  {RVSON } " AS  < I ) " {RVOFF , SPACE } :  " ; PMS : Z 

230  GET  GS:  IF  GSOCHRS  <  1 34 )  AND  GSOCHRS  <13 

=Z+2: NEXT 

<210> 

5)  AND  Q*OCHR#<13)THEN  210 

<217> 

2030 

Z=23:S=0: GOSUB  80: PRINT  MCS; 

<063> 

240  IF  G*=CHR*(13)THEN  GOSUB  80: PRINT“ {R VS 

2040 

Z=4 : S=27 : N= 1 0 : GOSUB  300 : A (9) =VAL (INS) 

<  180  > 

ON  >  > {RVOFF  > " ; : RETURN 

<  1 13> 

2050 

Z=6: GOSUB  300: A ( 10) =VAL ( INS) 

<089> 

250  IF  G*=CHR*( 135) THEN  280 

<  153> 

2060 

Z=8: GOSUB  300: A ( 1 1 ) =VAL < INS) 

<  195> 

260  S=S+10: Y=Y+1: IF  S>30  THEN  S=0:Y=1 

<099> 

2065 

Z=1 0: N=9: GOSUB  300: A (12) =VAL  < INS) 

<216> 

270  GOTO  210 

<224> 

2070 

Z=13:S=13: GOSUB  80: PR INT "EINGABE  KORR 

280  S-S-10: Y-Y-l: IF  S<0  THEN  S=30:Y=4 

<05B> 

EKT  ?  (J/N)  :  "-.GOSUB  90 

<014> 

290  GOTO  210 

<244> 

2080 

Z= 1 3 : S=3B : GOSUB  80: PRINT"T£LEFT}“ ; 

<049> 

300  REM  *  EINGABEROUTINE 

<0U> 

2090 

GET  GS:  IF  GSO"J"AND  GSO"N"THEN  2090 

<206> 

310  GOSUB  80 

<050  > 

2100 

PRINT  GS: IF  GS="J"THEN  Y=1 

<075> 

315  IN*="" 

<005> 

2110 

IF  GS="N"THEN  Y=0 

<  107> 

320  PR I NT "T £LEFT } "  ; 

<  187  > 

2120 

GET  IS:  IF  IS<  >CHRS  ( 13)  AND  ISOCHRS<20 

330  GET  G*:IF  G#=" "THEN  330 

<000> 

) THEN  2120 

<136> 

340  G=ASC(G*):IF  G=13  THEN  460 

<  177> 

2130 

IF  IS=CHRS (20) THEN  2080 

<057> 

360  IF  B<48  OR  G>57  THEN  410 

<14B> 

2140 

C=l: GOSUB  10: IF  Y=0  THEN  2010 

<132> 

370  IN*=IN*+G*: IN=LEN<IN*) 

<  156> 

3000 

REM  *  RECHNUNG 

<  137> 

380  PRINT  GS; 

<  199> 

3010 

IF  F=1  THEN  A(16)=A(9)*(1+(A(10)/(A<1 

390  IF  IN>N  THEN  FOR  1=1  TO  IN: PRINT  CHRS ( 

2) *100) ) ) T(A(11)*A<12) ) 

<  169> 

20) ; : NEXT : GOTO  310 

<067> 

3020 

IF  F=1  THEN  A(19)=100*((1+(A(10)/(A(1 

400  GOTO  320 

<  1 22  > 

2) *100) ) ) TA ( 1 2 ) — 1 ) : D= I 

<054> 
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3030  IF  F=2  THEN  A < 16) =A (9) / ( 1+ < A ( 10) / (A ( 1 

2) *100) ) ) T(A(11)*A(12) ) ;D=0  <101> 

3040  IF  F=3  THEN  A < 16)  =  < ( A ( 10) /A (9) > t  ( 1  /  (A 

(11) *A ( 12) ) )-l)*100*A(12) :D=0  <174> 

3050  IF  F=4  THEN  A ( 16) = (LOG ( A ( 10) /A (9) ) /LO 

G(1+(A(11)/(A(12) *100) ) ) ) /A ( 12) sD=0  <01 1> 
3500  REM  *  SCREEN  <009> 

3510  Z=2:S=13: GOSUB  80: PRINT"£INGABE  : " : Z= 

3: GOSUB  80 : PR I NT “ TTT fTTfTTT"  <057> 

3520  Z=4: FQR  1=9  TD  12: GOSUB  80: PRINT  A*  ( I 

)"  : " A ( I > : Z=Z+2: NEXT  <144> 

3530  Z  =  13:  GOSUB  80:  :  PR  INT  ".RESULTAT  :":Z-14 
:  GOSUB  80 :  PR  I  NT  "  TTTTTTTTTT"  :  A=  1 6 :  GOSU 
B  50  <200> 

3540  Z=15: GOSUB  80: PRINT " {RVSON} “A* (F> " {RV 

OFF,SPACE>: "TAB (38-LEN ( AB* ) >  ;AB*  <010> 

3550  PRINT  TAB (39-LEN ( AB*) ) ; :FOR  1=1  TO  LE 

N (AB*) -1 : PRINT"=" ; : NEXT  <170> 

3560  Z=20: GOSUB  80: IF  K=1  THEN  PRINT "ßUSDR 

UCK  IN  Sfl  1 " : GOTO  3580  <036> 

3570  IF  K=0  THEN  PRINT" AUSDRUCK  IN  .PROZENT 

! "  <255> 

3580  IF  D=0  THEN  3620  < 1 15> 

3590  Z=13:S=0:  GOSUB  80:  :  PRINT"  {RVSONVA*  ( 1 
7)  "  {RVOFF >  "  :  PRINT"  {RVSONVA*  (18)  "  {RVO 
FF)"  <244 > 

3600  Z=17:S=1: GOSUB  80: A=19: GOSUB  50: PRINT 

AB*"  7."  <124> 

3610  PRINT  T AB  ( 7-LEN  ( AB* )  )  5  :  FOR  1  =  1  TO  LEN 

(AB*) +1 : PRINT"=" ; : NEXT  <012> 

3620  Z=23:S=0: GOSUB  80: FOR  1=1  TO  4: PRINT" 

{RVSON  > "BA* ( I ) " {RVOFF  V ; : NEXT  <  004  > 

3630  Y=1 : GOSUB  200: IF  Y=4  THEN  70  <080> 

3640  IF  Y=3  THEN  1010  <176> 

3650  IF  Y=2  THEN  4500  <031 > 

4000  REM  *  AENDERUNG  <226> 

4010  C=l: GOSUB  10: IF  D  THEN  GOSUB  40  ■  <003> 

4020  Z=2 : S= 13: GOSUB  80: : PR INT "AENDERUNG  :" 

:Z=3:  GOSUB  80 :  PR I NT " TtTTtTtTTTT"  <149> 

4030  Z=4: S=13: : FOR  1=9  TO  12: GOSUB  80:PRIN 
T“ {RVSONVA*  (I) " {RVOFF, SPACE >: A(I) : 

Z=Z+2: NEXT  <207> 

4040  Z=23:S=0: GOSUB  80: PRINT  MD*;  <043> 

4050  Z=4: Z1=Z: Z2=10: S=13: Y=9: Y1=Y: Y2=12: SW 

=2: C=1 : GOSUB  100  <126> 

4060  IF  C=0  THEN  GOSUB  10: GOTO  3000  <06B> 

4070  Z=13:S=13: GOSUB  80:  PRINT"  {RVSON  VA*  (Y 

)" {RVOFF, SPACE >:  ";PM*: GOSUB  90  <084> 

4080  Z=23:S=0: GOSUB  80: PRINT  MC*; : Z=13: S=2 

7: GOSUB  300: A ( Y) =VAL ( IN*) : GOTO  4010  <195> 

4500  REM  *  PRINTER  <052> 

4505  TA*=CHR* ( 10) : TB*=CHR* ( 16)  <198> 

4510  OPEN  4,4,7: PRINT44 , CHR* ( 14) ; TB*"25ZJJ4 

.5A.5JUJtA.^JUil)Ae."  <121> 

4520  PRINT#4,TB*"25 - "TA*  <132> 

4530  FOR  1=9  TO  12: PRINT#4 ,CHR* ( 15) TB*" 10* 

**  "A*(D"  :  “  A  ( I ) :  NEXT  <049> 


_ll 


<002> 

<135> 


<078> 
<040  > 

<082> 

<056> 

<000> 

<010> 

<136> 

<006> 


4540  A=16: GOSUB  50: PRINT#4 , TA*; TB*" 14" A* <F 

)"  :  "AB*  <189> 

4550  PRINT#4,TB*"15"; : FOR  1=1  TO  2+LEN(A*( 

F>  +AB* ) : PRINTD4 NEXT  <076> 

4560  PRINT #4 , CHR* (13) : I F  D  THEN  GOSUB  4620  <041> 
4565  PR I  NT#4 , T A* ; T A* ; T A*  <080> 

4570  PR INT#4 ,CHR* ( 13) ; TB*" 10*** {2SPACE1ZAP 
ITAL  UND  ZINSSATZ  WERDEN"; 

4580  PRINT#4,"  IN  ’  fifl  *  AUSBEDRUCKT," 

4590  PRINT#4,TB*"16ZINSSATZ  UND  ZAHRESZINS 
(FALLS  VORHANDEN)  IN  '  7. {SHIFT-SPACE 
>'  !" 

4600  PR INT#4: FOR  1=1  TO  40 : PR I NT #4 ,"==";: N 
EXT : PR I NT#4 , T A* ; T A* ; TA* 

4610  CLOSE  4: FOR  1=56176  TO  56215: POKE  1,0 
: NEXT: GOTO  3620 

4620  IF  D  THEN  PRINT#4 , TA*; TB*" 15" A* ( 1 7) " 
"A*(18>"  : 

4630  A=19: GOSUB  50: PRINT#4 , AB* 

4640  PRINTD4 , TB*" 15" ; : FOR  1=1  TO  LEN(A*(18 
) +A# (19) + AB* )  + 1 0 : PR I NT #4 , " = " ; : NEXT 
4650  RETURN 
5000  REM  *  VARIABLEN 

5010  MA*=" <CLR , R VSON , 2SPACE  >Z<SH I FT— SPACE  > 

J.{  SH  I FT-SPACE  >&<SH  I FT-SPACE  >£{SHI FT-S 
PACE  >£{SHI FT-SPACE }£{SH I FT-SPACE  >Z<SH 
I FT-SPACE  >i(SH I FT-SPACE  JÜISHIFT-SPACE 
>ä{SHIFT— SP ACEJ& {SHIFT-SPACE {SHIFT- 
SPACE  T£{SHI  FT— SPACE  JMCSHI  FT— SPACE  >HIS 
HIFT— SPACE >k{SH I FT-SPACE  JÜISH I FT-SPAC 
E  }£{2SH IFT-SPACE , RVOFF 1 " 

5020  MB*=" {R VSON, SPACE > £3  U.  £5  -  HAHL  !  - 
XE.T_URJ<.'  -  EINGABE  !  {RVOFF >" 

5030  MC*=" {RVSON, 2SPACE}£1  -  ÜEU  !  {6SPACEJ 
ßEBEN  .5  IE  EIN  ! {6SPACE , RVOFF > “ 

5040  MD*=" {RVSON, SPACE }£1  -  RESULTAT  ! {5SP 
ACETE3  U.  £5  -  HAHL  ! {SPACE , RVOFF J “ 

5050  KO*= "  SN . KAPITAL ":P*=" {2SP ACE } ZI NSSAT 
Z  ":KN*="  SNDKAPITAL" 

5060  N*=" {2SPACE > ZAHRE {4SPACE >":A*(12)="  Z 

INSPER.  /  A"  :  PM*=" . " 

5100  BA* ( 1 >  = " {2SPACE  >SENDERN  " 

5110  BA* (2) =" {2SPACE >ZDP I E {3SP ACE } " 

5120  BA* ( 3 )  =  " {2SP ACE }«EU {5SPACE  > “ 

5130  BA* (4) ="  SENUE {4SPACE>" 

5500  A*  ( 1 )  =KN* 

5510  A* (2) =KO* 

5520  A*(3)=P* 

5530  A*(4)=” {2SPACEJ LAUFZEIT  " 

5540  A* ( 5 ) = " {2SPACE JflENUE {4SPACE > " 

5600  A* ( 13) =" {2SP ACE > SENDERN {2SP ACE >" 

5610  A*(14)="{2SPACEJÄESULTAT  " 

5620  A* ( 1 5 ) = " {2SPACE }  SENUE {4SPACE > " 

5630  A* (17)=" ZFFEKT I VER " 

5640  A* ( 1 8 ) = " ZAHRESZ INS": RETURN 


<  166> 


<247  > 


<135> 


<  167  > 


<043> 


<228> 

<235> 

<  197> 
<214> 
<116> 
<142> 

<  186> 
<003> 
<059> 
<  136> 
<215> 
<123> 
<020> 
<092> 
<098> 


©  G4' 
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8  POKE  45,PEEK ( 174) : POKE  46,PEEK < 175) : CLR 

<014> 

130 

GET  G*:IF  G*<  >CHR*  ( 133)  AND  G*OCHR*(13 

9  CLR: DIM  A* ( 15) , A ( 15) : GOTO  1000 

<249> 

4) AND  G*<  >CHR* ( 1 35 ) AND  G*< >CHR* ( 13) THE 

10  Z 1=3: Z2=9: S=13: REM  *  MASKE  LOESCHEN  * 

<217> 

N  1  10 

<023> 

20  FOR  Z=Z1  TO  Z2: GOSUB  90: PR  INT " {26SPACE } 

140 

IF  G*=CHR* ( 1 33 ) AND  C  THEN  C=0: RETURN 

<  151  > 

" : NEXT : IF  C=0  THEN  REFURN 

<093  > 

150 

IF  G*=CHR* (13) THEN  GOSUB  90: PRINT " {RVS 

30  Z 1=12: Z2=20:C=0: GOTO  20 

<244> 

ON  >  > {RVOFF ) " : RETURN 

<  147> 

50  RETURN 

<  108> 

160 

IF  G*=CHR*< 135) THEN  190 

<095> 

70  A* (12) =STR*  < INT ( A ( 12) *  100+ . 5) ) : REM  *  RU 

1  70 

Z=Z+SW: Y=Y+1 : IF  Z >Z2  THEN  Z=Z1:Y=Y1 

<  1 15> 

NDEN 

<101> 

180 

GOTO  110 

<  124> 

75  AB*=LEFT* (A* ( 12) ,LEN (A* ( 12) ) -2) +" . "+R1G 

190 

Z=Z— SW: Y=Y— 1 : IF  Z<Z1  THEN  Z=Z2:Y=Y2 

<212> 

HT* ( A* (12) , 2  > : RETURN 

<  152> 

195 

GOTO  110 

<  139> 

80  LOAD " MENUE " , 8 : REM  »LOAD  MENUE 

<006> 

200 

REM  *  WAHL— FUSSZEILE  *:S=0 

<  128> 

90  POKE  2 1 4, Z: POKE  211,S:SYS  58732: RETURN: 

210 

Z=23: GOSUB  90:PRINT"{RVSON,1 0SPACE , R VO 

REM  *  CURSORPOSITION 

<175> 

FF J";: FOR  1=1  TO  75: NEXT 

<218> 

95  A=55869: FOR  1=1597  TO  1622:P0KE  I,100:P 

220 

GOSUB  90 : PR 1 NT " {RVSON > " BA* (Y) " {RVOFF } " 

OKE  A, 1:A=A+1 : NEXT: RETURN 

<110> 

; : FOR  1=1  TO  175:NEXT 

<  141  > 

100  REM  *  AUSWAHLROUTINE  * 

<155> 

230 

GET  G*:  IF  GSOCHR*  ( 134)  AND  G*OCHR*(13 

110  GOSUB  90  :  F'R  I  NT  "  {RVSON  ,11  SPACE  ,  RVOFF  >  "  : 

5) AND  G*<  >CHR* ( 13 ) THEN  210 

<  2  1  7  > 

FOR  1=1  TO  75: NEXT  I 

<075> 

240 

IF  G*=CHR* (13) THEN  GOSUB  90: PRINT" {RVS 

120  GOSUB  90 : PR I NT " {RVSON  > " A* ( Y ) " {RVOFF  > " : 

ON  J  > {RVOFF  > " ; : RETURN 

<  145> 

FOR  1=1  TO  125: NEXT 

<  1 12> 

250 

IF  G*=CHRS( 135) THEN  280 

<153> 
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260  S=S+10: Y=Y+1 : IF  S>31  THEN  S=0:Y=1 
270  GOTO  210 

280  S=S-10: Y=Y-i : IF  S<0  THEN  S=30:Y=4 
290  GOTO  210 

300  REM  *  EINGABEROUTINE  * 

310  GOSUB  90 
320  IN*=" " 

330  PR  I NT " T CLEFT  > " ; 

340  GET  G*:IF  G*=""THEN  340 
350  G=ASC(G*):IF  G=13  THEN  460 
360  IF  G=13  THEN  RETURN 
370  IF  G*<"0"OR  G*>"9"THEN  420 
380  IN*=IN*+G* 

390  PRINT  G*; 

400  IF  LEN  (  INS )  >N  THEN  FOR  1  =  1  TO  LENdN») 
SPRINT  CHR* (20) ;: NEXT: GOTO  320 
410  GOTO  330 
420  IF  G=46  THEN  380 
425  IF  G*=CHR*( 133) THEN  9 
430  IF  G<  >20  THEN  330 
440  IF  LEN ( IN* ) < 1  THEN  330 
450  IN*=LEFT*(IN*,LEN(IN*>-1> sGOTO  390 
460  PN*="":FOR  1=1  TO ( 10-LEN ( IN*) > : PN*=PN* 
+". "sNEXT: PRINT  PN* 

470  IF  LEN  1  IN*) < 1  THEN  310 
480  RETURN 

999  : 

1000  REM  »*  DI KONTI EREN  #* 

1010  GOSUB  5000 SPRINT  MA# 

1020  A=55388s  FOR  1  =  1076  TO  1906  STEP  40  s  PO 
KE  1,101s  POKE  A , 1 s  A=A+40: NEXT 
1030  A=55736s  FOR  1  =  1464  TO  1474  s POKE  1,100 
sPOKE  A,lsA=A+l sNEXT 

1040  A=55749s  FOR  1  =  1477  TO  1502s POKE  1,100 
sPOKE  A,lsA=A+l sNEXT 
1050  Z=23sS=0s GOSUB  90: PRINT  MB* 

1060  Z=3: GOSUB  90: PR INT "AUSWAHL  :":PRINT"T 


<107> 

<224> 

<058> 

<244> 

<  179> 
<058> 
<010> 

<  197> 
<075> 

<  187> 
<080> 
<0n> 
<221  > 
<209> 


<227  > 

<  1 48  > 

<  130> 
<253> 

<  135> 
<140> 
<227> 


<017> 
<  106> 
<028> 
<213> 
<  184> 
<098> 


<078> 

<183> 


<032> 
<  154> 


ITTTTITT 

1070  Z=5: FOR  1=1  TO  5: GOSUB  90: PRINT" CRVSO 
N}"A*(I) " CRVOFF}":  Z=Z+1 sNEXT 

1080  Z=5: Z1=Z: Z2=9: S=0: Y=1 s  Yl=Ys  Y2=5: SW=1 s 
C=0: GOSUB  100: F=Y : IF  F=5  THEN  80 

1150  IF  F=1  THEN  A* (9) =KN*s A* ( 10) =P*s A* ( 1 1 
>=JA*:K=1 

1160  IF  F=2  THEN  A* (9) =KB*: A* ( 10) =P*: A* ( 1 1 
>  =JA*s  K=1 

1170  IF  F=3  THEN  A* (9) =KN*s A* ( 10) =KB*s A* ( 1 
1 ) =JA*s  K=0 

1180  IF  F=4  THEN  A* (9) =KN*s A* ( 10) =KB*s A* < 1 
1 ) =P*s  K=2 

2000  REM  *  EINGABEMASKE  * 

2010  Z=3:S=13: GOSUB  90: PR INT "EINGABE  :":Z= 
4:  GOSUB  90:  PRINT"TTTTtTTtT" 

2020  Z=5: FOR  1=9  TO  1 1 : S=13: GOSUB  90: PRINT 
" CRVSON  > "A* ( I ) " CRVOFF , SPACE } s  " ; PM* 

2030  Z=Z+2: NEXT: Z=23:S=0: GOSUB  90: PRINT  MC 


<  153> 

6^ 


<066> 


<255> 

<062> 

<101> 

<029> 


<  128> 
<  128> 


<033> 
<  153> 


2040 

2050 

2060 


Z =5 : S=27  s  N= 1 0 : GOSUB  300:A(9) = VAL (IN*) 
Z=7: GOSUB  300: A ( 10) =VAL ( IN*) 

Z=9: GOSUB  300: A ( 1 1 ) =VAL ( IN*) 

2070  Z=13:S=13: GOSUB  90: PR INT "EINGABE  KORR 
EKT  ?  (J/N) :": GOSUB  95 
2080  Z  =  1 3: S=3Bs  GOSUB  90: PRINT "TCLEFT >" ; 
2090  GET  G*:IF  G*<>"J"AND  G*<  >"N"THEN  2090 
2100  PRINT  G*:IF  G*="J“THEN  Y=1 
2110  IF  G*="N“THEN  Y=0 

2120  GET  I*:IF  I  *<  >CHR*  <  13)  AND  I*OCHR*(20 
) THEN  2120 

2130  IF  I *=CHR*  ( 20 )  THEN  2080 
2140  C=1 : GOSUB  10: IF  Y=0  THEN  2010 
3000  REM  *  RECHNUNG  * 

3010  IF  F=1  THEN  A ( 12) =A (9) * ( 1 / ( 1+ ( A ( 10) / 1 
00) ) TA(ll) ) 

3020  IF  F=2  THEN  A ( 12) =A (9) / ( 1 / ( 1+ (A ( 10) / l 
00)  )  TA(ll)  > 

3030  IF  F=3  THEN  A ( 12) = < (A (9) /A ( 10) ) t ( 1 /A ( 
11) >-l>*100 

3040  IF  F=4  THEN  A ( 12) =LOG (A (9) /A ( 10) ) /LOG 
(1+(A(11>/100> ) 

3500  REM  *  BILDSCHIRM 

3510  Z=3:S=13: GOSUB  90: PRINT"£INGABE  : " : Z= 
4: GOSUB  90 SPRINT 


<013> 
<  196> 
<105> 
<21 1  > 


<0B6> 
<065> 
<206> 
<075> 
<  107> 


<  136> 
<057> 
<132> 
<043> 


<039> 

<083> 

<246> 


<234  > 
<233> 


<  122> 


3520 


3530 


3540 


Z=5: FOR  1=9  TO  llsGOSUB  90: PRINT  A* ( I 
)"  : "A(I) :Z=Z+2:NEXT 

Z=13: GOSUB  90: PR INT "RESULTAT  :":Z=14: 
GOSUB  90: PRlNT"TTTTfT7TTr": GOSUB  70 
Z= 1 6 : GOSUB  90 : PR I NT " <RVSON  > " A* ( F  > " <RV 
OFF ,  SP ACE  > :  " !  :  PR  I  NT  T AB  <  38-LEN  <  AB* )  )  ; 
AB* 

3550  PRINT  T AB ( 39-LEN < AB* > ) ; : FOR  1  =  1  TO  LE 
N (AB*) -1 : PRINT"=" ; : NEXT 
3560  Z=20: GOSUB  90: IF  K=1  THEN  PRINT"flUSDR 
UCK  IN  Hfl CSH IET-SPACE }  I  " : GOTO  3580 
3570  IF  K=0  THEN  PR INT" AUSDRUCK  IN  AROZENT 


<016> 


<064> 


<  149> 


<  170> 


<244> 


<255> 


4040 

4050 


4060 

4070 


3580  Z=23:S=0: GOSUB  90: FOR  1=1  TO  4 SPRINT" 
CRVSON  > " BA* ( I ) " CRVOFF) " ; : NEXT 
3590  Y=1 : GOSUB  200: IF  Y=4  THEN  80 
3600  IF  Y=3  THEN  1010 
3610  IF  Y=2  THEN  4500 
4000  REM  *  AENDERUNG  * 

4010  C=l: GOSUB  10 

4020  Z=3:S=13: GOSUB  90: PR INT "AENDERUNG  :": 

Z=4:  GOSUB  90 :  PR  I  NT  "  TTTTTtTTtTT" 

4030  Z=5: S=13: FOR  1=9  TO  llsGOSUB  90: PRINT 
" CRVSON  5 " A* ( I ) " CR VOFF , SPACE  > : " ; A ( I ) : Z 
=Z+2: NEXT 

Z=23:S=0: GOSUB  90: PRINT  MD*; 

Z=5: Z1=Z: Z2=9: S=13: Y=9: Y1=Y: Y2=l 1 : SW= 
2: C=1 : GOSUB  100 
IF  C=0  THEN  GOSUB  10: GOTO  3000 
Z = 1 3 : S= 1 3 : GOSUB  90:PRINT"CRVSON>”A*(Y 
) " CR VOFF , SPACE  > :  " PM* : GOSUB  95 
4080  Z=23:S=0: GOSUB  90: PRINT  MC*; : Z=13: S=2 
7 : GOSUB  300: A (Y> =VAL ( IN*) : GOTO  4010 
4500  REM  *  AUSDRUCK  * 

4505  TA*=CHR* ( 10) : TB*=CHR* ( 16) 

4510  OPEN  4,4,7: PR I NT #4 , CHR* (14); TB* " 1 0AÜ. 
*QX-TIER_E_H  E.I-Nf.5 CSH I FT-SPACE >  KAPITALS." 

4520  PRINT#4,TB*" 10 - 

- "TA* 

4530  FOR  1=9  TO  1 1 : PRINT#4 , CHR* ( 15) : TB*“ 10 
*«*  " A* ( I > "  :  " ; A ( I ) : NEXT 
4540  GOSUB  70: PRINTtt4 , TA*; TB*" 14"A* (F> "  : 
"AB* 

4550  PRINT44 , TB*" 15" ; s  FOR  1  =  1  TO  2+LEN(A*( 
F>  +AB* ) : PRINT44 , "  =  " ; : NEXT 
4560  PRINT#4,TA*;TA*;TA* 

4570  PR I NT#4 , CHR* (13) ; TB*" 10»#*  C3SPACE1END 
KAPITAL  UND  AARWERT  WERDEN"; 

4580  PRINT44 , "  IN  *  AA  '  AUSBEDRUCKT," 

4590  PRINT#4,TB*"  16DER  ZINSSATZ  IN  -  7.  '  ! 


<234> 
<04 1  > 
<  136> 
<247> 
<039  > 
<239> 


<  139> 


<030> 

<059> 


<253> 

<068> 


<010> 


<21 1  > 
<254> 

<198> 


<246> 


<014> 


<  1 16> 


<037> 


<076> 

<075> 


<  024  > 
<135> 


<003> 


1 ; :  N 


1,0 


4600  PRINT44: FOR  1=1  TO  40: PRINT#4 , "==' 

EXT: PRINT#4 , TA*; TA*; TA*; TA* 

4610  CLOSE  4: FOR  1=56176  TO  56215: POKE 
sNEXT: GOTO  3580 
5000  REM  *  VARIABLENLISTE  * 

5010  MA*="  CCLR,RVB0N,6SPACE5£ÜJC0NJJiR£jHfS 
H I  FT-SPACE  »U-HE-S. CSH  I FT— SPACE  3  KAP.l.mi.5 
C6SPACE , RVOFF  > " 

5020  MB*=" CRVSON, SPACE >£3  U.  £5  -  HAHL  !  1 
AE.TUAH •  -  EINGABE  ‘CRVOFF}" 

5030  MC*=" CRVSON, 2SPACE1E1  -  «EU  ! C6SPACEJ 
AEBEN  älE  EIN  ! C6SPACE , RVOFF > " 

5040  MD*=" CRVSON, SPACE }£1  -  RESULTAT  ! C5SP 
ACE>£3  U.  £5  -  HAHL  ! CSPACE, RVOFF}" 
5050  KN*="  ENDKAPITAL" : P*=" C2SPACE1ZINSSAT 
Z  ": JA*=" C2SPACEJZAHREC4SPACE}" : PM*=" 


<  169> 


<180> 

<016> 


<130> 


<247> 


<  135> 


<  167  > 


5060  KB*= " C2SPACE  > AARWERT  C2SPACE > " 
5110  BA* ( 1 ) =" C2SPACE3 flENDERN  " 

5120  BA* (2) =" C2SPACEJÄ0PIE  C3SPACE} " 
5130  BA* (3) =" C2SPACE JHEU C5SPACE } " 

5140  BA* ( 4 )  =  "  UENUE  C4SPACE } " 

5510  A* ( 1 ) =" C2SPACE > AARWERT C2SPACE > “ 
ENDKAPITAL" 

C2SPACE  >ZI NSSATZ  " 
C2SPACE) LAUFZEIT  " 

C2SPACE  TflENUE  C4SPACE > " 

" C2SPACE3BENDERN  C2SPACE > " 


5520  A* (2) = 
5530  A*<3)= 
5540  A* ( 4 ) = 
5550  A* (5) = 
5590  A*  (13)' 


5600  A*  < 14)  = 
5610  A* ( 15) = 
6  64'e*- 


C2SPACE)  RESULTAT 


<031  > 
<077> 
<245> 
<209> 
<224> 
<  126> 
<092> 
<255> 
<154> 
<069> 
<146> 
<205> 
<  1 13> 


‘ " C2SPACE  3  flENUE  C4SPACE > " : RETURN  <  097  > 


Listing  4.  Diskontieren  eines  Kapitals  (Schluß) 


Anwendung 


C  64 


7  POKE  45 , PEEK (174): PQKE  46,PEEK ( 175) : CLR 

<013> 

470  IF  LEN ( IN*) < 1  THEN  310 

<  106> 

8  REM  BY  KLAUS  KLOEKER 

<245> 

480  RETURN 

<028> 

9  CLR: DIM  A* ( 15) ,E (50 , 6) , E* (50 , 6 ) : GOTO  100 

900  REM  *  MASKE  * 

<039> 

0 

<225> 

910  PRINT  MA*: A=5538B: FOR  1=1076  TO  1906  S 

10  Z 1=3: 22=9: S= 13: REM  *  MASKE  LOESCHEN  * 

15  FOR  Z=Z1  TO  Z2: GOSUB  90: PRINT" C26SPACE> 

<217> 

TEP  40: POKE  1,101: POKE  A, 1 : A=A+40: NEXT 
920  A=55776: FOR  1=1504  TO  1514: POKE  1,100: 

<226> 

" : NEXT : IF  C=0  THEN  RETURN 

<088> 

POKE  A , 1 : A=A+1 : NEXT 

<046> 

20  Z 1=13: Z2=21 : C=0: BOTO  15 

<  130> 

930  A=55785: FOR  1=1517  TO  1546:P0KE  1,100: 

30  FOR  J=2  TO  6:E*(I,J)=STR*<INT(E<I ,J>*10 

POKE  A , 1 : A=A+1 : NEXT 

<  171  > 

+.5)): REM  *  FORMAT  TABELLE 

35  E*(I ,J)=LEFT*(E*(I ,J) ,LEN(£*<I,J> >-l>+" 

<158> 

950  Z=3:S=0: GOSUB  90: PR INT "AUSWAHL  :":PRIN 
T"TTTtTTtTT":PRINT"  CRVSON, SPACEJ - 

."+RIGHT*(E*(I,J> ,1) 

40  L*=" " : FOR  A=1  TO  10-LEN <E* ( I , J ) ) : L*=L*+ 

<227> 

- CSPACE ,  RVOFF  > 11 

960  Z=6: FOR  1=1  TO  3: GOSUB  90: PRINT" CRVSON 

<245> 

" . " : NEXT 

<133> 

} " A* ( I ) " CRVOFF > " : PR I NT " CRVSON , SPACE  >- 

45  E*(I,J)=L*+E*<I,J> 

<160> 

- CSPACE , RVOFF  } " : Z=Z+2: NEXT 

<236> 

50  IF  LEN(E*(I ,J) > >10  THEN  E* ( I , J > =RIGHT* < 

970  RETURN 

<010> 

E*(I,J) ,10) 

<000> 

999  : 

<213> 

55  NEXT: RETURN 

<250> 

1000  REM  **  TILGUNGSRECHNUNG  * 

<090> 

70  LOAD " MENUE " , 8 : REM  »LOAD  MENUE 

<252> 

1010  GOSUB  6000: GOSUB  900 

<081  > 

80  A=55909 : FOR  1=1637  TO  1662:P0KE  I,100:P 

1020  Z=23:S=0: GOSUB  90: PRINT  MB* 

<  122> 

OKE  A , 1 : A=A+ 1 : NEXT : RETURN 

<025> 

1080  Z=6: Z1=Z: Z2=10: S=0: Y=1 : Y1=Y: Y2=3: SW=2 

90  POKE  2 1 4 , Z : POKE  211,S:SYS  58732: RETURN: 

:C=0: GOSUB  100: F=Y: IF  F=3  THEN  70 

<  128> 

REM  »  CURSORPOS  IT  ION  » 

95  FOR  1=56216  TO  56255:P0KE  I ,0: NEXT : RETU 

<003> 

2000  REM  »  EINGABEMASKE  # 

2010  Z=3:S=13: GOSUB  90: PR INT "EINGABE  : " : Z= 

<128> 

RN 

<003> 

4:  GOSUB  90 :  PR  I  NT  "  TTTTTTTTT" 

<033> 

100  REM  »  AUSWAHLROUTINE  * 

<155> 

2020  Z=5: FOR  1=4  TO  6:S=13:G0SUB  90:PRINT" 

110  GOSUB  90 : PR INT" CRVSON ,11 SPACE , RVOFF > " : 

CRVSON>"A*(I) " CRVOFF , SPACE  > :  " ; PM* 

<067> 

FOR  1=1  TO  75: NEXT  I 

<075> 

2030  Z=Z+2: NEXT: Z=23:S=0: GOSUB  90: PRINT  MC 

120  GOSUB  90:PRINT"CRVSON>"A*(Y> " CRVOFF}": 

* 

<013> 

FOR  1=1  TO  125: NEXT 

<  1 12> 

2040  Z=5 : S=27 : N=9 : FOR  J=4  TO  6: GOSUB  300 :A 

130  GET  G*:  IF  G*< >CHR* < 133) AND  G*OCHR4(13 
4)  AND  G*OCHR*(135)AND  G*<  >CHR*  ( 13)  THE 

(J ) =VAL  < IN*) : Z=Z+2: NEXT 

2070  Z=14:S= 13: GOSUB  90: PR INT "EINGABE  KORR 

<001  > 

N  110 

<023> 

EKT  ?  (J/N) : ": GOSUB  80 

<074> 

140  IF  G*=CHR*(133)AND  C  THEN  C=0: RETURN 

<  151  > 

2080  Z=14:S=38: GOSUB  90: PR INT "TCLEFT > " ; 

<081  > 

150  IF  G*=CHR*(13)THEN  GOSUB  90: A* ( Y ) =" >"+ 

2090  GET  G*: IF  G*<>"J"AND  G*<  >"N" THEN  2090 

<206> 

MID*(A*(Y) ,2, 10) :PRINT" CRVSON} "A* < Y> " < 

2100  PRINT  G*:IF  G*="J"THEN  Y=1 

<075> 

RVOFF}": RETURN 

<216> 

2110  IF  G*="N"THEN  Y=0 

<  107  > 

155  IF  GS=CHR*< 134) THEN  170 

<213> 

2120  GET  I*:IF  I*<  >CHR*  ( 13)  AND  I*OCHR*(20 

160  IF  G*-CHR*< 135) THEN  190 

<095  v 

) THEN  2120 

K  1 06  ? 

165  GOTO  110 

<  109> 

2130  IF  I*=CHR* (20) THEN  2080 

<057> 

170  Z=Z+SW: Y=Y+1 : IF  Z>Z2  THEN  Z=Z1:Y=Y1 

<115> 

2140  C=l: GOSUB  10: IF  Y=0  THEN  2010 

<132> 

180  GOTO  110 

<124> 

3000  REM  *  RECHNUNG  * 

<043> 

190  Z=Z-SW:Y=Y-1: IF  Z<Z1  THEN  Z=Z2:Y=Y2 

<212> 

3005  PRINT" CCLRI": Z=23: S=23: GOSUB  90:PRINT 

195  GOTO  110 

<  139> 

MG*:  EE  (3)  =0:  EE  (5)  =0 

<  171  > 

200  REM  *  WAHL— FUSSZEILE  »:S=0 

<  128> 

3010  IF  F=2  THEN  3500 

<  128> 

210  Z=23: GOSUB  90: PRINT" CRVSON , 8SPACE , RVOF 

3100  REM  *  RATENTILGUNG  * 

<  194> 

F > " ; : FOR  1  =  1  TO  75:NEXT 

220  GOSUB  90: PRINT" CRVSON} "BA* <Y > " CRVOFF}" 

<218> 

3110  T1=A (4 > /A (6) : J2=0: T2=0 

3120  FOR  1=1  TO  A<6> : R1=A <4) -J2*T2: Z 1=R1* ( 

<011> 

; : FOR  1=1  TO  175: NEXT 

230  GET  G*:  IF  G*< >CHR# ( 134) AND  G*OCHR*(13 

<  141  > 

A (5) / 100) : A1=Z 1 +T1 

3130  E ( I , 2) =R1 : E ( I , 3) =Z 1 : E ( I , 4) =T 1 : E ( I , 5) = 

<  144> 

5)  AND  G*OCHR*(13)THEN  210 

240  IF  G*=CHR*(13)THEN  GOSUB  90: PRINT" CRVS 

<217> 

Al : E ( I ,6) =A 1 / 12 : GOSUB  30 

3140  FOR  J=3  TO  5  STEP  2: EE < J > =EE < J ) +E < I , J 

<254> 

ONJMRVOFFJ";  :  RETURN 

<145> 

) : NEXT 

<  130> 

250  IF  G*=CHR*< 135) THEN  280 

<  153> 

3150  J2=J2+1 : T2= ( A (4) /A (6) ) : NEXT : GOTO  3700 

<172> 

260  S=S+8: Y=Y+1: IF  S>32  THEN  S=0:Y=1 

<076> 

3500  REM  *  AUNNU I  T AE  TENT I LGUNG  # 

<  186> 

270  GOTO  210 

<224> 

3510  Q 1 =A ( 5 ) / 1 00+ 1 : T 1 =A ( 4 ) # ( (Q1-1)/(Q1TA<6 

20«  S=S— Bs  Y-Y-l  *  IF  S<0  THRN  S-32* Y-5 

<077> 

>-t>  > 

<206> 

290  GOTO  210 

<244  > 

3520  Z 1  =  A  <  4 )  »  <  A  <  5 ) / 1 00 ) :  A 1  =T  1  +  Z  1 :  R 1  =  A  ( 4 ) 

<  128} 

300  REM  #  EINGABEROUTINE  » 

<179> 

3530  E  < 1 , 2) =R1 :E(1 ,3>=Z1:£(1 ,4)=T1:E<1 ,5)  = 

310  GOSUB  90 

<050> 

Al : E ( 1 , 6) =A1 / 12: 1=1: GOSUB  30 

<251  > 

320  IN*="" 

<010> 

3540  T2=T 1 : FOR  1=2  TO  A (6) : RI =R1 -T2: Z2=R 1 # 

330  PRINT "TCLEFT } " i 

<  197> 

(A(5) / 100) : T2=T2*Q1 

<139> 

340  BET  G*:IF  G*=" "THEN  340 

<075> 

3550  E  < I ,2) =R1 :E(I ,3)=Z2:E(I ,4)=T2:E(I ,5)  = 

350  G=ASCCG*):IF  G=13  THEN  GOTO  460 

<165> 

A1:E(I,6)=A1/12: GOSUB  30 

<244> 

360  IF  G=13  THEN  RETURN 

<080> 

3560  FOR  J=3  TO  5  STEP  2:  EE  ( J  >  =EE  <  J  > +E  <  I  ,  J 

370  IF  G*<"0"DR  G*>"9"THEN  420 

<011> 

) : NEXT  J : NEXT  I 

<  177  > 

380  IN*=IN*+G* 

<221  > 

3570  EE (3) =EE  <3>  +E (1,3): EE (5) =EE  <5>+E(l ,5) 

<060  ' 

390  PRINT  G*; 

400  IF  LEN ( INO  >N  THEN  FOR  1  =  1  TO  LEN(IN*> 

<209> 

3700  EE  <3>  =EE  <3) /2: EE (5) =EE (5) /2 

3710  FOR  1=3  TO  5  STEP  2: EE* ( I > =STR* ( INT (E 

<0U> 

:  PR  I  NT  CHR*  ( 20)  )  :  NEXT :  GOTO  320 

<227> 

E ( I ) »10/ .  5)  ) 

<  161  > 

410  GOTO  330 

<  148> 

3720  EE* ( I ) =LEFT*  <EE* ( I ) , LEN (EE* ( I > ) -1 ) +" . 

420  IF  G=46  THEN  380 

<  1 30  > 

" +R I GHT* ( EE* ( I ) , 1 ) : NEXT 

<217> 

425  IF  G*=CHR*< 133) THEN  9 

<253> 

3000  REM  *  SCREEN  * 

<223> 

430  IF  G<  >20  THEN  330 

<  135> 

3805  GOSUB  900 

<001> 

440  IF  LEN  ( IN* XI  THEN  330 

<  140> 

3810  Z=3:S=13: GOSUB  90 : PR I NT " £1 NGABE  :":Z= 

450  IN*=LEFT*(IN*,LEN(IN*>-1) : GOTO  390 

460  PN*=" " : FOR  1=1  TO (9-LEN < IN») ) : PN*=PN*+ 

<227> 

4:  GOSUB  90:  PRINT  " TtTTTTTTT" 

3820  Z=5: S=13: FOR  1=4  TO  6:G0SUB  90:PRINT 

<055> 

NEXT: PRINT  PN* 

Listing  5.  Erstellung  eines  Tilgungsplans 

<230> 

A*  < I ) "  : "ACI ) : Z=Z+2: NEXT 

3830  Z=14: S=13: GOSUB  90: PRINT "RESULTAT 

<210> 

26 


C  64 


Anwendung 


2=15: GOSUB  90:  PRINT'" 

3840  Z=17: FQR  J=3  TO  5  STEP  2:G0SÜB  90:PRI 
NT " CRVSON } " EC* ( J  > " CRVOFF  J : " EE*  <  J  > : Z =Z 
+2: NEXT 

3850  Z=21 : GOSUB  90: PR INT "AUSDRUCK  IN  ’ AS 

I  •• 

3860  ZA=VAL(EE*<3> > / ( VAL <EE* <5) )/100> 

3870  Z= 14: S=0: GOSUB  90: PRINT" CRVSON , 3SPACE 
} ZI NS- C3SPACE , RVOFF  > " : Z= 1 5 : GOSUB  90 : P 
R I NT " IRVSON , 3SPACE J ANTE I L C2SPACE , RVOF 
FJ" 

3880  ZA*=STR*(ZA> : IF  ZA<10  THEN  ZA*="  " +ZA 

* 

3890  ZA*»LEFT*(ZA*,5> : Z=1 7: S=2: GOSUB  90:PR 
INT  ZA*:"  7.“ 

3900  Z=18:S=3: GOSUB  90: PR INT "======" 

3910  Z=23iS=0: GOSUB  90:FOR  1=1  TO  5:PRINT" 
CRVSON J " BA* ( I ) " CRVOFF  > " ; : NE  X  T 
3920  Y-l: GOSUB  200: IF  Y=5  THEN  70 
3930  IF  Y=4  THEN  9 

3940  IF  Y=3  THEN  5500 

3950  IF  Y=2  THEN  5000 

4000  REM  #  TABELLE  * 

4010  GOSUB  95: X 1=2: X2=4: Yl=l : Y2=A (6) 

4020  Z  = 1 : S=0 : GOSUB  90:FOR  1  =  1  TO  22:PRINT 
MD*: NEXT: Z=22: GOSUB  90: PRINT  MH* 

4030  Z=3:S=0: GOSUB  90: PRINT  M* < 1 ) 

4040  Z=3: S=6: FOR  I=X1  TO  X2: GOSUB  90: PRINT 
M* ( I ) : S=S+ 11: NEXT 

4050  Z=4:S=1: GOSUB  90:  FOR  1  =  1  TO  37: PRINT" 
=" ; : NEXT 

4100  Z=6: S=1 : FOR  I=Y1  TO  Y2 

4105  I*=STR* ( I ) : IF  I<10  THEN  I*="."+I* 

4107  GOSUB  90: PRINT". "+I*:S=6 

4110  FOR  J=X1  TO  X2 

4120  GOSUB  90: PRINT  E*(I,J) 

4130  S=S+1 1 : NEXT  J 

4140  IF  PEEK (214) >15  THEN  Y2= I : Y 1 = Y2-9 : GOT 
0  4200 

4150  Z=Z+1 : S=1 : NEXT  I 

4200  Z=17:S=1: GOSUB  90: FOR  J=1  TO  38: PRINT 
:NEXT 

4500  WA IT  203,63: GET  G* 

4510  IF  G*=CHR* ( 29 >  THEN  4550 
4520  IF  G*=CHR*( 157) THEN  4580 
4530  IF  G*=CHR* (17) THEN  4610 
4540  IF  G*=CHR*( 145) THEN  4640 
4543  IF  G*=CHR*( 133) THEN  3800 
4545  GOTO  4500 

4550  X 1=X 1+1 : X2=X2+1 : REM  *  -> 

4560  IF  X2>6  THEN  X2=6: Xl=4: GOTO  4500 
4570  GOTO  4030 

4580  X 1=X 1-1 : X2=X2— 1 : REM  *  <- 

4590  IF  X 1<2  THEN  Xl=2: X2=4: GOTO  4500 

4600  GOTO  4030 

4610  IF  A (6) <10  THEN  GOTO  4500 

-1615  Vl-Yl  +  10lY2-Y2tl0lREH  «  DOWN 

4620  IF  Y2>A (6) THEN  Y2=A (6) : Yl=Y2-9: IF  I=A 
(6) THEN  4500 
4630  GOTO  4030 

4640  IF  A (6) < 10  THEN  GOTO  4500 
4645  Y1=Y1-10: Y2=Y2-10: REM  *  UP 
4650  IF  Y 1< 1  THEN  Y 1=1 : Y2=Y1 +9: IF  I< 1 1  THE 
N  4500 

4660  GOTO  4030 

5000  REM  *  AENDERUNG  * 

5010  C=l: GOSUB  10:S=0:FOR  Z=13  TO  20: GOSUB 
90: PRINT" CI 1SPACEJ" : NEXT 
5020  Z=3:S=13: GOSUB  90: PR INT "AENDERUNG  :": 

Z=4:  GOSUB  90 :  PR  I  NT  "  TTTTTtTtTtT " 

5030  Z=5: S=13: FOR  1=4  TO  6: GOSUB  90: PRINT" 
CRVSON >" A*  C I ) " CRVOFF , SPACE  >:";A(I):Z= 
Z+2: NEXT 

5040  Z=23:S=0: GOSUB  90: PRINT  MF*: 

5050  Z=5: Z1=Z: Z2=9: S=13: Y=4: V1=Y: Y2=6: SW=2 
:C=1: GOSUB  100  i 

5060  IF  C=0  GOTO  3000 

5070  Z=14:S=13: GOSUB  90: PRINT" CRVSON! "A* (Y 
) " CRVOFF , SPACE } :  " ; PM* : GOSUB  80 


<018> 


<223> 

<232  > 
<157> 


<219> 
<  149> 


4 


<  144> 
<091  > 

<072> 

<180> 

<  166> 

<227> 
<200> 
<054  > 
<229> 

<  187> 
<251  > 

<201  > 

<  109> 
<159> 
<057> 
<061  > 
<022> 
<076> 
<250> 

<076> 

<085> 

<001  > 
<201  > 
<152> 
<040> 

<  198> 

<  1 12> 
<200> 
<015> 
<036> 
<249> 
<056> 
<017> 
<100> 
<086> 
<081  > 

<  19Z> 

<  159> 

<  1 18> 
<038> 
<049> 

<083> 

<  14B> 
<023> 

<016> 

<  123> 


<000> 

<047  > 


<086> 
<  174> 


<  124> 


5080  Z=23:S=0: GOSUB  90: PRINT  MC*; : Z=14: S=2 
7: GOSUB  300: A ( Y) =VAL ( IN») 

5090  A*IY>=“  "+MID* ( A* ( Y ) ,2, 101: GOTO  5010 

5500  REM  *  PRINTER 

5505  TB*=CHR* ( 16) : TA*=CHR# ( 10) 

5510  OPEN  4,4,7: PR I NT #4 , CHR* (14) TB* " 1 0 AUSD 
RUCK  EINES  XILGUNGSPLANES" 

5520  PRINT#4,TB*;"10 - 

- "TA* 

5530  FOR  1=4  TO  6: PRINTH4 ,CHR* < 15) TB*” 10*# 
*  "A*(I>"  :  "A ( I > : NEXT 
5540  PR I  NT 44 ,  T A*  ;  T A* ;  T A* 

5550  FOR  1=1  TO  6: PRINT#4 , " C3SPACE J"M* < I > ; 

: NEXT : PR1NT#4, "  " 

5560  FOR  1  =  1  TO  40:  PRINT#4 NEXT:  PRIN 
T#4 

5570  FOR  1=1  TO  A (6) : I *=STR* ( I ) : IF  I<10  TH 
EN  I*="."+I* 

5575  PR I NT #4 , " C4SPACE  > . "  + 1 * " 

5580  FOR  J=2  TO  6:PRINT#4,"  . . "E* ( I , J ) ; : NE 

XT  J :  PRINT#4  . NEXT  I 

5590  FOR  1=1  TO  40:PRINT#4," — ";:NEXT:PRIN 
T#4 

5595  PRINT#4, "  BESAMT : " 5 

5600  P0=27:F0R  J=3  TO  5  STEP  2: PRINT#4 , SPC 
(PO-LEN <EE*<J> ) )EE*(J) ; :P0=26:NEXT 
PRINT#4,TA*; TA*; TB*" 10**#  AUSDRUCK  DE 
R  IABELLE  ERFOLGT  IN  '£A'  ■" 

PRINT#4 , TB*" 10***  BERECHNUNG  DER  ZINS 
EN  ERFOLGT  AM  £NDE  DES  WAHRES  !" 
PRINT#4 , TA*; TB*" 10##*  XILGUNG  KONSTAN 
TC3SPACE>=  RATENTILGUNG  •!" 

PRINT#4 , TB*" 10***  ANNUITAET  KONSTANT 
=  ANNU I T AETENT I LGUNG  ! ! " 

PRINTCC4: FOR  1=1  TO  40: PRINT#4 N 
EXT  I:PRINT#4,TA*;TA*;TA*;TA* 

CLOSE  4: GOTO  3860 
OEM  *  VARIABLEN  * 

•="  CCLR ,  RVSON ,  4SPACE  )I  1 CSH IFT-SPAC 
E  JSCSH I FT-SPACE  >  fiCSH  I FT-SPACE  >ü  CSH  I  FT 
— SPACE >M<SHI FT— SPACE >£<SHI FT— SPACE >AC 
SH I FT-SPACE  J  S  CSH  I FT-SPACE >£ CSH I FT-SPA 
CE  J£CSH I FT-SPACE  JA  CSH I FT-SPACE  JHCSHIF 
T— SPACE  JACSH I FT— SPACE  JH CSH I FT— SPACE J£ 
C4SPACE, RVOFF J" 

6020  MB*=" CRVSON, SPACE J£3  U.  £5  -  MAHL  !  ' 
RFT U_ RK '  -  EINGABE  !  " 

6030  MC*=" CRVSON, SPACE J£1  -  AUSWAHL  ! C3SPA 
CE J BEBEN  SIE  EIN  ! C6SPACE , RVOFF J " 

6040  MD*=" C39SPACEJ“ 

6050  ME*= " CRVSON , 39SPACE , RVOFF  J " 

6060  MF*=" CRVSON, SPACE J£1  -  RESULTAT  I C5SP 
ACEJE3  U.  £5  -  MAHL 
6070  MG*="£ITTE  HARTEN  ! ! 

6080  MH*="  CRVSON ,  SPACE  J£1 
ACEJSJRSOR  -  STEUERN 

CjltDB  JSftTENTILS.  '• 

6110  A* (2) ="  ANNU. TILG. " 

6120  A* (3) =" C2SPACE J AENUE  C4SPACE J " 

6130  A*  <  4) ="  BARLEHEN  C2SPACE  J " 

6140  A*(5>="  ZINSSATZ C2SPACEJ" 

6150  A* ( 6  >  = "  ZAHRE  C5SPACE  J " 

6160  PM*=" . " 

6200  M*  < 1 >  =  "  ZAHR  " 

6210  M*(2)="£ESTSCHULD" 

6220  M* (3) =" C4SPACEJZINSEN" 

6230  M* (4) =" C3SPACE JXILGUNG" 

6240  M*<5>="  ANNUITAET" 

6250  M* (6) ="  ANNU. /AON" 

6300  EC* (3) ="  ZINSENC2SPACEJGES. " 

6310  EC* (5)="  ANNUIT.  GES." 

6400  BA* ( 1 ) ="  IABELLE" 

6410  BA* (2) ="  AENDERN" 

6420  BA* (3) =" C2SPACE J SDP I E  " 

6430  BA* (4) =" C3SPACE JHEU C2SPACE J " 

6440  BA* (5) =" C2SPACE JAENUE  " 

6500  RETURN 

©  64'er 


<  106> 
<218> 
<036> 
<  1 22> 

<030> 

<201  > 

<105> 

<039> 

<077> 

<  171  > 

<  181  > 

<252> 

<217> 

<201  > 
<002> 

<  176> 
<033> 
<220> 

<  143> 

<003> 

<169> 

<189> 

<059> 


! CSPACE, RVOFF J" 

-  RESULTAT  ! C4SP 
! CSPACE , RVOFF  J " 


<202> 

<081  > 

<18B> 

<078> 

<046> 

<187> 

<  103> 

<221  > 
<090  J 
<099> 
<144> 
<229> 
<064> 
<154> 
<064> 

<  1 12> 
<091  > 
<076> 
<079> 

<  169> 
<105> 

<  196> 
<055> 
<077> 
<085> 
<047> 
<063> 
<220> 
<20B> 


Listing  5.  Erstellung  eines  Tilgungsplans  (Schluß) 


Anwendung 


C  64 


Schachmeister 


Viele  Schachspieler  zeichnen  ihre  Par¬ 
tien  auf  und  überprüfen  sie  hinterher. 
Der  C  64  hilft  dabei.  Die  Verbesserung 
aus  Ausgabe  4/85  ist  in  die  Anleitung 
und  das  Listing  integriert. 


Nach  dem  Start  des  Programms  muß  man  einen  Augenblick 
warten,  bis  der  Computer  die  neuen  Multicolor-Zeichen  defi¬ 
niert  hat  und  diverse  Felder  und  Listen  aufgestellt  hat  (zirka  20 
Sekunden).  Daraufhin  kann  man  eine  der  gespeicherten  Par¬ 
tien  auswählen  und  das  Schachbrett  baut  sich  auf. 

Am  rechten  Rand  werden  die  Namen  der  Spieler,  das  Jahr, 
die  Zugnummer  und  der  Zug  sowie  verschiedene  Meldungen 
wie  »Schach«,  »Matt«,  »Rochade«  ...  ausgegeben.  Das 
Schachbrett  nimmt  zirka  %  des  Bildschirms  ein. 

Durch  Drücken  der  F7 -Taste  nach  einem  Zug  wird  das  Bild 
bis  zu  einem  erneuten  Tastendruck  »eingefroren«.  Durch 
Drücken  einer  anderen  Taste  nach  einem  Zug  wird  der  Ablauf 
beschleunigt.  Durch  anhaltendes  Drücken  der  Space-Taste 
kann  man  so  eine  Art  »Blitzschach«  erreichen.  Nach  Spielende 
führt  ein  Tastendruck  wieder  zum  Auswahlmenü. 


ne  andere  Figur  umgewandelt.  Und  zwar: 
in  einen  Turm: 

DATA  A7A8T 

in  einen  Springer  (engl.  Horse) 

DATA  A7A8H 
in  einen  Läufer: 

DATA  A7A8C 

Wenn  ein  Bauer  in  eine  Dame  umgetauscht  wird,  so  ist  dem  je¬ 
weiligen  Zug  ein  D  anzufügen: 

10020  DATA  ....  A7A8D 

(weißer  Bauer  wird  in  Dame  getauscht) 

Wird  ein  gegnerischer  Bauer  en  Passant  geschlagen,  so  ist 
dem  entsprechenden  Zug  ein  »v«  anzuhängen,  (enpassant  = 
im  Vorübergehen) 

Wichtig: 

Nach  Ende  jeder  Partie  muß  unbedingt  ein  E  angefügt  werden, 
damit  der  Computer  eine  Liste  der  Partien  aufstellt.  Nach  der 
letzten  Partie  ist  statt  dem  E  ein  X  anzufügen: 

19999  DATA  ..„F6E6M.E 
19999  DATA  ..„F6E6M.X 

Die  Programmlänge  ohne  gespeicherte  Partien  beträgt  zirka 
7,5  KByte;  pro  gespeicherter  Partie  werden  zusätzlich  zirka 
0,5  KByte  benötigt. 

Da  der  Bildschirmspeicher  verschoben  wird,  muß  nach  ei¬ 
nem  RUN  STOP-RESTORE  blind  RUN  eingetippt  werden,  um 
das  Programm  wieder  auflisten  zu  lassen. 

(Thomas  Behrend/tr) 


Eingeben  eigener  Schachpartien: 


1 .  Zuerst  werden  die  Namen  der  Spieler  und  das  Jahr  eingege¬ 
ben: 

10000  DATA  SPIELER  1,  SPIELER  2,  1984. 

2.  Die  Eingabe  der  Züge: 

Beispiel  für  einen  normalen  Zug:  10010  DATA  E2E4,  E7E5, 
G1F3 ... 

Wenn  eine  Figur  eine  gegnerische  schlägt,  braucht  man  das 
nicht  anzugeben;  der  Computer  erkennt  das  von  selbst. 

3.  Sonderregeln  (Beispiele): 

Aufgabe  eines  Spielers: 

10020  DATA  ...,SA 
(Schwarz  gibt  auf) 

10020  DATA ....  WA 
(Weiß  gibt  auf) 

Rochaden: 

10020  DATA...,  KR 
(kurze  Rochade) 

10020  DATA  ....  LR 
(lange  Rochade) 

Es  braucht  nicht  angegeben  zu  werden,  welcher  der  beiden 
Spieler  rochiert. 

Schach,  Matt,  Remis: 

Um  dem  Computer  einen  dieser  drei  Zustände  anzuzeigen, 
muß  ein  S  (Schach),  ein  M  (Matt)  oder  ein  R  (Remis)  dem  jewei¬ 
ligen  Zug  angehängt  werden: 

10020  DATA  ....  D6E6S 
(Schach  wird  geboten) 

10030  DATA ....  F6E6M 
(Schachmatt) 

10020  DATA ....  E5E6R 
(Remis  durch  Übereinkunft  der  Spieler) 

10020  DATA  B6B7P  (Remis  durch  Patt) 

10020  DATA  C4C5W  (Remis  durch  dreimal  wiederholte  Stel¬ 
lung) 

10020  DATA  A1C1Z  (Remis  durch  50-Züge-Regel.  Es  wurde 
seit  50  Zügen  kein  Bauernzug  gemacht) 

Erreicht  ein  Bauer  die  gegnerische  Grundlinie,  so  wird  er  in  ei- 


A$-Feld 

:  Speicherung  der  sechs  Schachfiguren 

A(x,y)-Feld 

:  Spielfeld  (Figuren) 

ei». /(-Feld 

:  Spielbrett 

P-Feld 

:  Zähler  zum  Überspringen  der 

DATA-Zeilen  bis  zur  gewählten  Partie 

P$-Feld 

:  Namen  der  Spieler  (weiß) 

P1$-Feld 

:  Namen  der  Spieler  (schwarz) 

P 

:  Anzahl  der  gespeicherten  Partien 

DA 

:  Zähler  zum  Überspringen  der  ersten 

DATA-Zeilen 

AW 

:  Flag  für  verschiedene  Spielzustände 
(Matt,  Remis...) 

Wichtige  Programmzeilen  und  Programmteile: 

150-  190 

:  MC-Programm  zur  Beschleunigung 
der  Zeichendefinition 

200-  260 

:  Zeichendefinition 

300-  860 

:  Zeichen-DATA  (Multicolor) 

900-1050 

;  Felder  aufatellen 
und  Variablen  definieren 

1100,1110 

:  Multicolor-Modus  einschalten 

1170-1250 

:  Partienanfänge  elnlesen  und 

Tabelle  aufstellen 

1290-1350 

:  Auswahlmenü 

1390-1660 

:  Bildschirmaufbau 

1730-1910 

:  Hauptprogramm  (normaler  Zug) 

1950-2410 

:  Besondere  Regeln  (Rochade, 

Dametausch,  Matt,  Remis.,,) 

24  70-2490 

:  Einzelnes  Feld  löschen 

2530-2580 

:  Figur  drucken 

2620 

:  Koordinaten  errechnen 

2660-2720 

:  Zeitschlaufe  mit  Unterbrechung 
und  Verkürzung 

2760-2800 

:  Grundstellung  der  Figuren 

2840-2850 

:  Bildschirmpositionierung 

2890-2910 

:  Spielende 

10000- 

:  DATAs  für  die  Partien 

Alle  REM-Zeilen  dienen  nur  zur  Anschaulichkeit  und  können  entfernt 
werden. 

Tabelle:  Programmbeschreibung  zum  »Schachmeister« 
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C  64 


Anwendung 


10  REM  nt***#**#*#***##******#****#*#*#* 


20  REM  *  »  SCHACHMEISTER  <<  * 
30  REM  *  * 
40  REM  *  THOMAS  BEHREND  # 
50  REM  *  IN  DER  WANNE  16  7900  ULM  * 
60  REM  *  (8. 1904)  # 


70  REM  *#**##*##■»»#*******#*******»*»#* 

60  REM 

90  REM  —  ALLE  REM-ZEILEN  KOENNEN  — 

100  REM  —  WEGBELASSEN  WERDEN 
110  REM 

120  REM  —  NEUE  ZEICHEN  — 

130  REM 

140  POKE  53281, 6:P0KE  53280, 1 : PRINT" <CLRJ" 
CHR* (5) 

150  DATA  120,169,51,133,1,169,0,133,95,133 
, 90, 133, 8B, 169, 206, 133, 96, 169, 240, 133 
160  DATA  89,169,224,133,91,32,191,163,169, 
55,133,1,88,96 
170  REM  —  MC -PROGRAMM  — 

180  J=4097sFOR  1=832  TO  865: READ  A:J=J-A:P 
OKE  I , A: NEXT 

190  IF  JO0  THEN  PR  INT  “DATA— FEHLER  IN  ZEIL 
E  15-20": STOP 

200  SYS  832: POKE  B50,160:SYS  832-.P0KE  5657 
6,PEEK (56576) AND  252: POKE  53272,8 
210  POKE  648,1 92 : PR INT" {DOWN VT AB ( 5 ) " >  SCH 
ACHMEISTER  <" 

220  PRINT" <2D0WN> "TAB (5) "BITTE  EINEN  MOMEN 
T  WARTEN. . . " 

230  AD=57344: FOR  1=64  TO  91 : B=AD+I*8: FOR  J 
=0  TO  7: READ  C:POKE  B+J ,C: NEXT: NEXT 
240  FOR  1=192  TO  219: B=AD+I*8: FOR  J=0  TO  7 
-.READ  C: POKE  B+J , C: NEXT: NEXT 
250  1=175: B=AD+I*8: FOR  J=0  TO  7: READ  C:POK 
E  B+J, C: NEXT 
260  POKE  56,130 
270  REM 

280  REM  —  DATA  FUER  SCHACHFIGUREN  — 

290  REM 

300  DATA  0,0,60,60,255,255,60,60 

310  DATA  0,0, 0,0, 0,0, 0,0 

320  DATA  0,0,0,0,60,255,255,255 

330  DATA  255,255,60,60,60,60,60,60 

340  DATA  0,0,3,3,15,10,0,0 

350  DATA  60,255,255,255,255,170,0,0 

360  DATA  0,0,192,192,240,160,0,0 

370  DATA  0,0, 3, 3, 3, 3, 3, 3 

380  DATA  0,0,60,60,60,255,255,255 

390  DATA  0,0,192,192,192,192,192,192 

400  DATA  3, 0,0, 0,0, 0,0,0 

410  DATA  255,60,60,60,60,60,60,60 

420  DATA  255,255,255,255,255,255,255,255 

430  DATA  192,0,0,0,0,0,0,0 

440  DATA  0,0,60,60,240,195,255,255 

450  DATA  255,255,255,255,255,170,0,0 

460  DATA  0,0,0,0,192,192,0,0 

470  DATA  0,0,0,0,0,3,3,15 

480  DATA  0,48,48,63,255,207,207,255 

490  DATA  0,0,0,0,192,192,192,192 

3B0  DAT«  63,63,63,60,0,0,0,3 

510  DATA  255,207,15,63,63,255,255,255 

520  DATA  192,192,0,0,0,0,0,192 

530  DATA  3,3,3,3,15,10,0,0 

540  DATA  192,240,240,240,240,160,0,0 

550  DATA  0,0,12,15,3,3,3,3 

560  DATA  0,0,4B,240, 192, 192, 192, 192 

570  DATA  0,0, 0,0, 3, 3, 0,0 

580  DATA  85,85,125,125,255,255,125,125 

590  DATA  85, 85, B5, 85, 85, 85, 85, 85 

600  DATA  B5, 85, 85, 85, 125,255,255,255 

610  DATA  255,255,125,125,125,125,125,125 

620  DATA  85,85,87,87,95,90,85,85 

630  DATA  125,255,255,255,255,170,85,85 

640  DATA  85,85,213,213,245,165,85,85 

650  DATA  85, 85, 87, B7, 87, 87, 87, 87 

660  DATA  85, B5, 125, 125, 125,255,255,255 

670  DATA  85,85,213,213,213,213,213,213 

680  DATA  B7, 85, 85, 85, 85, 85, 85, 85 

690  DATA  255,125,125,125,125,125,125,125 

700  DATA  255,255,255,255,255,255,255,255 

710  DATA  213, 85, 85, B5, 85, B5, 85, 85 

720  DATA  85,85,125,125,245,215,255,255 

730  DATA  255,255,255,255,255,170,85,85 

740  DATA  B5, 85, 85, 85, 213, 213, 85, 85 

750  DATA  85,85,85,85,85,87,87,95 

760  DATA  B5, 117, 117, 127,255,223,223,255 

770  DATA  85,85,85,85,213,213,213,213 


<060> 

<098> 

<079> 

<  1 1B> 

<  107> 
<219> 
<120> 
<142> 

<  107> 
<040> 
<172> 
<073> 
<192> 

<1 14> 

<105> 

<172> 

<106> 

<  1B4> 
<206> 

<  154> 
<068> 
<011> 

<  163> 

<098> 

<014> 

<010> 

<078> 

<  1 18> 
<098> 
<200> 
<230> 

<  136> 
<094> 
<021  > 
<050> 
<028  > 

<  16B> 
<243  > 
<213> 
<088> 
<097> 
<248> 
<16B> 
<092> 
<137> 
<031  > 
<061  > 

<  133> 

<  150> 
<201  > 

<  105> 
<22B> 
<077> 
<070> 

<  194> 

<  250  > 
<100> 

<  173> 

<  166> 
<027> 

<  132> 

<  104> 
<255> 

<  191  > 

<  192> 
<222> 

<  127> 
<032> 
<080> 
<01B> 
<07B> 
<035> 

<  155> 
<227> 
<215> 
<052> 
<059> 


780  DATA  127,127,127,125,85,85,85,87  <161> 

790  DATA  255,223,95,127,127,255,255,255  <0B9> 

800  DATA  213, "13, 85, B5, 85, 85, 85, 213  <247> 

810  DATA  87, 87, 87, B7, 95, 90, 85, 85  <073> 

820  DATA  213,245,245,245,245,165,85,85  <094> 

830  DATA  85,85,93,95,87,87,87,87  <056> 

840  DATA  85,85,117,245,213,213,213,213  <011> 

850  DATA  85,85,85,85,87,87,85,85  <190> 

B60  DATA  126,189,215,231,231,215,189,126  <095> 

870  REM  < 170> 

880  REM  ~  VARIABLEN  UND  FELDER  --  <139> 

890  REM  < 190> 

895  DIM  A$<12>  <126> 

900  B*  ( 1 ) ="ABAACADEF“ : REM  BAUER  <241 > 

910  B* (2) ="GHI JLMDOF" : REM  TURM  <103> 

920  B* ( 3 ) = " ANAAKADEF " : REM  LAEUFER  <078> 

930  B* ( 4 ) = " QRSTUVWOX " : REM  PFERD  <186> 

940  B*(5)="YHZACADEF":REM  DAME  <065> 

950  B*(6)="t@PJCMDEF":REM  KOENIB  <170> 

960  FOR  1=1  TO  6: FOR  J=0  TD  2: FOR  K=1  TO  3  <000> 

970  A*=MID*(B*(I) ,J*3+K,1) :  A* ( I > =A* ( I > +CHR 

* <ASC(A») +128) : NEXT  <062> 

980  A* ( I )=A* ( I ) +" <D0WN,3LEFT>": NEXT : NEXT  <217> 

990  DIM  B(8,8)  <233> 

1000  FOR  1=7  TO  1  STEP-2: FOR  J=1  TO  7  STEP 

2:B(I,J)=1: NEXT : NEXT  <194> 

1010  FOR  1=8  TO  2  STEP-2: FOR  J=2  TO  8  STEP 

2:B(I,J)=1: NEXT : NEXT  <241> 

1020  DIM  A (8,8)  <255> 

1030  GOSUB  2760  <026> 

1040  Z 1 *=" {RVSON, CYAN, SPACE, RED, 13SPACEJ"  <146> 
1050  :  <010> 

1060  REM  < 106> 

1070  REM  —  MULT I COLOR— MODUS  —  <226> 

1080  REM  —  EINSCHALTEN  —  <043> 

1090  REM  < 136> 

1100  POKE  53281, 6: POKE  53282,7: POKE  53283, 

5  <073> 

1110  POKE  53270, PEEK (53270) OR  16  <026> 

1120  REM  < 166> 

1130  REM  —  LISTE  DER  PARTIEN  —  <020> 

OHU40  —  AUFSTELLEN  —  <201> 

1150  REM  < 196> 

1160  DATA-1  <026> 

1170  RESTORE: DA=0  <205> 

1180  DA=DA+ 1 : READ  A: IF  A=-l  THEN  1200  <010> 

1190  GOTO  1180  < 131 > 

1200  DIM  P (20) ,  P* (20) ,P1* (20) , JA* (20) : P=0: 

D=0  <007 > 

1210  P=P+1 : READ  P*(P> ,P1*(P) ,JA*(P) :D=D+3  <155> 

1220  READ  A*:D=D+1:IF  A*="E"OR  A*="X“THEN 

1240  <221 > 

1230  GOTO  1220  <250> 

1240  IF  A*="X"THEN  1290  <195> 

1250  P  <P) =D: GOTO  1210  <031> 

1260  REM  <050> 

1270  REM  —  AUSWAHLMENUE  —  <005> 

1280  REM  <072> 

1290  RESTORE: FOR  1=1  TO  DA: READ  A: NEXT  <013> 

1300  PRINT  CHR*(5>  "  <CLR,DOWN,3SPACE>—  AUBbl 

AHL  < 145> 

1310  PRINT: PRINT  <24B> 

1320  FOR  1  =  1  TO  P :  F'R I NT  I ;  TAB  (5)  P*  ( I )  TAB  ( 1 

6>P1*(I> ,JA*(I):NEXT  <156> 

1330  POKE  198,0: INPUT" I2D0WN>";W: IF  W<1  OR 

W>P  THEN  1330  <0B9> 

1340  PRINT" <CLR>":IF  W=1  THEN  1390  <041> 

1350  FOR  1=1  TO  P (W-l ) : READ  A*: NEXT  <075> 

1360  REM  < 152> 

1370  REM  —  SPIELBRETT  —  <045> 

1380  REM  <172> 

1390  FOR  1=1  TO  24: PRINT  CHR* ( 159) TAB (0) " t 

RVSON, SPACE > "TAB (25) Z 1$: NEXT  <230> 

1400  PRINT  CHR*<5> "<HOME>";  <236> 

1410  FOR  Y=8  TO  1  STEP- 1 : X=1 : GOSUB  2840: PR 

INT"  {DOWN,  2LEFTVY:  X=8:  GOSUB  2840  <001> 

1420  PRINT" (DOWN , 2RIGHTJ " Y: NEXT  <240> 

1430  FOR  Y=8  TO  1  STEP-l:FOR  X=1  TO  8  <115> 

1440  GOSUB  2470  <166> 

1450  NEXT : NEXT  <1B3> 

1460  PRINT" LHOMEJ"  <170> 

1470  REM  <006> 

1480  REM  —  ANFANGSSTELLUNG  —  <21 1> 

1490  REM  <026> 

1500  FOR  Y=7  TO  8: FDR  X=1  TO  8  <244> 
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1510  GOSUB  2530: NEXT : NEXT  <153> 

1520  FÜR  Y=1  TO  2: FOR  X=1  TO  B: GOSUB  2530: 

NEXT: NEXT  <073> 

1530  PRINT  CHR*(159> " {HOME) ": PRINT  TAB(27> 

" {RVSON , SPACE  >SP I ELER  1  "  <120> 

1540  PRINT  T  AB ( 27 ) " {RVSON ,11 SPACE , RVOFF ) “  <1B2> 

1550  PRINT  TAB  < 27 ) " CUP , RVSON ,11 SPACE > "  <062> 

1560  POKE  214,1B:PRINT:PRINT  TAB (27) CHR* (3 

0) " CR VSON,SPACE> SPIELER  2  "  <141> 

1570  PRINT  T AB ( 27 ) " {RVSON ,11 SPACE , RVOFF ) "  <212> 

15B0  PRINT  TAB  (27)  "<UP, RVSON,  11  SPACE <092> 
1590  POKE  214 ,5: PRINT: PRINT  TAB (27) CHR* (5) 

" CRVSON) ZUG: {RVOFF , 2SPACE) 1 "  <249> 

1600  POKE  214,7:  F'RINT :  PRINT  TAB (28) CHR* < 15 

B )" {RVSON , 7SPACE , RVOFF)"  <0B0> 

1610  POKE  214,9: PRINT : PRINT  TAB (27) CHR* (5) 

" {RVSON , 1 0SPACE > "  < 1 67  > 

1620  PRINT  TAB (27) " {RVSON, 10SPACE)"  <157> 

1630  PRINT  TAB(27) ” {UP, RVSON, 10SPACE)"  <142> 

1640  READ  A* : A*=LEFT * ( A* , 9 ) : POKE  2 14, 20: PR 

INT : PRINT  TAB (2B) " {RVSON >"A*  <160> 

1650  READ  A*: A*=LEFT* (A* ,9) : POKE  214,2:PRI 

NT: PRINT  TAB (28) " {RVSON) "A*  <227> 

1660  READ  A* : POKE  214 , 15: PRINT: PRINT  TAB (2 

B) A*  <0B2> 

1670  ZU=1 : Z 1=-1 : AW=0  <167> 

16B0  REM  <21B> 

1690  REM  ************************  <219> 

1700  REM  *  —  HAUPTPROGRAMM  —  *  <200> 

1710  REM  ************************  <239> 

1720  REM  <002> 

1730  PRINT" {H0ME)":Z1=Z1+1: IF  Zl=2  THEN  ZI 
=0: ZU=ZU+1 : POKE  21 4 ,5: PRINT: PRINT  TAB 
(32) CHR* (5) ZU  < 174> 

1740  READ  A*: IF  LEN(A*)<>4  THEN  1950  <024> 

1750  REM  <032> 

1760  REM  —  NORMALER  ZUG  —  <067> 

1770  REM  <052> 

17B0  B*=LEFT*(A*,2) : GOSUB  2620: X=X2: Y=Y2  <111> 
1790  B2*=B*  <222> 

1800  B*=R I GHT * ( A* , 2 ) : GOSUB  2620  <104> 

1810  0*="  — "  :  IF  A  (X2  ,  Y2)  <  >0  THEN  0*="/"  <224> 

1820  A*=B2*+0*+B*  <054> 

1830  POKE  214,7: PRINT : PRINT  TAB (29) CHR* (5) 

" {RVSON)"A*  <201 > 

1B40  FOR  1=1  TO  4: GOSUB  2530: GOSUB  2470: NE 

XT  <095> 

1850  A1=A(X,Y) :A(X,Y)=0:A(X2,Y2)=A1  <062> 

1860  X=X2: Y=Y2: FOR  1=1  TO  4: GOSUB  2470: GOS 

UB  2530: NEXT  <139> 

1B65  IF  AW=4  THEN  GOSUB  2304:AW=1  <017> 

1870  IF  AW=3  THEN  AW=0: RETURN  <172> 

1BB0  IF  AW=2  THEN  2890: REM-MATT  ODER  REMIS 

<033> 

1890  GOSUB  2660  <10B> 

1900  IF  AW=1  THEN  AW=0:POKE  214, 1 1 : PRINT: P 

RI NT  TAB (27)" {RVSON, 10SPACE)”  <176> 

1910  GOTO  1730  <024> 

1920  REM  <204> 

193B  REM  -  BESONDERE  SITUATIONEN  -  <113> 

1940  REM  <224> 

1950  IF  A*="E"THEN  2890  <057> 

1960  IF  A*="SA"THEN  2100  <144> 

1970  IF  A*=“WA"THEN  2120  <220> 

1980  IF  A*= "KR "THEN  2190  <210> 

1990  IF  A*="LR"THEN  2250  <236> 

2000  PRINT  CHR* (5)  <244> 

2010  B*=R I GHT * ( A* , 1 ) : A*=LEFT * ( A* , 4 )  <166> 

2020  IF  B*="S"THEN  AW=1:P0KE  21 4 , 1 1 : PRINT: 

PRINT  TAB (27) " {RVSON)SCHACH  ! " : GOTO  1 
780  <207> 

2030  IF  B*="M"THEN  AW=2:P0KE  21 4 , 1 1 : PRINT: 

PRINT  TAB (27) " {RVSON, SPACE) MATT  !  " :  GO 
TO  1780  <H5> 

2040  IF  B*="R"THEN  AW=2:P0KE  21 4 , 1 1 : PRINT: 

PRINT  TAB (27) "{RVSON, SPACE )REM IS  !":G 
OTO  1780  <122> 

2041  IF  B*="P"THEN  AW=2:P0KE  21 4 , 1 1 : PRINT: 

PRINT  TAB(27)"  {RVSON, SPACE)F'ATT  !":G0 
TO  1780  <003> 

2042  IF  B*="W"THEN  AW=2:P0KE  214 , 9: PRINT: P 

RINT  TAB (27) " {RVSON)DRITTE  MAL"  <120> 

2043  IF  B*="W" THEN  PRINT  TAB ( 27 >" {RVSON )GL 
EICHE", TAB(67) " {RVSON )STELLUNG  ! ":GOT 
0  1780 

2044  IF  B*="Z"THEN  AW=2:P0KE  214 , 9:  PRINT:  F' 

RINT  TAB (27) "{RVSON, SPACE )50  ZUEGE"  <015> 


2045  IF  B*="Z"THEN  PRINT  TAB (27) " {RVSON, 3S 
PACE)OHNE" ,TAB (67) " {RVSON, 2SPACE)BAUE 
R  ) " : GOTO  1780 

IF  B*=" V" THEN  AW=4: POKE  214 , 1 1 : PRINT: 
PR I NT  TAB ( 27 ) " {RVSON )EN-PASSANT " : GOTO 
1780 

IF  B*="D"OR  B*="T"OR  B*="H"OR  B*="L"T 
HEN  F*=B*: GOTO  2340 
PRINT" <CLR)DATAFEHLER  ! ! ! ":STOP 
REM 

REM  —  AUFGEBEN  — 

REM 

A*= " {RVSON )SCHWARZ " 

GOTO  2130 
A*=" {RVSON )WE ISS" 

POKE  214,9: PR INT: PR INT  TAB(29)A* 

PRINT  TAB (27) " {RVSON)GIBT  AUF  ! " 

GOTO  2B90 
REM 

REM  —  KURZE  ROCHADE  — 

REM 

Y=1:T=0:IF  Zl=l  THEN  Y=8:T=6 
A (5, Y) =0: A (8, Y) =0: A (6 , Y) =8— T :A(7,Y)=1 
2-T:X=5: GOSUB  2470: X=8: GOSUB  2470 
X=6: GOSUB  2530: X=7: GOSUB  2530: GOTO  22 
80 
REM 

REM  —  LANGE  ROCHADE  — 

REM 

Y=1:T=0:IF  Zl=l  THEN  Y=8:T=6 
A  ( 1  ,  Y)  =0:  A  (5 ,  Y)  =0:  A  (3,  Y)  =12— T :  A  (4  ,  Y)  = 
8— T 

X=l: GOSUB  2470: X=5: GOSUB  2470: X=3: GOS 
UB  2530: X=4: GOSUB  2530 
POKE  214,11: PRINT : PRINT  TAB (29) CHR* (5 
) " {RVSON) ROCHADE" 

GOSUB  2660 

POKE  214,11: PRINT : PRINT  TAB (29) " {RVSO 
N , 7SPACE ) " : GOTO  1730 
REM 

REM  —  EN-PASSANT  — 

REM 

IF  Al  =7  THEN  Y=Y-1 
IF  Al  =  l  THEN  Y=Y+1 
A ( X , Y ) =0 : GOSUB  2470:RETURN 
REM 

REM  —  TAUSCH  AUF  DER  GRUNDLINIE  — 
REM 

AW=3: GOSUB  1780 
IF ( Y2=8) AND  <F*=' 

IF ( Y2=l ) AND (F*=‘ 

IF (Y2=8) AND (F*=’ 

IF ( Y2=l ) AND (F*=' 


2046 


2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 


2381 

2382 

2383 

2384 
2390 
2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 


2490 

2500 

2510 

2520 

2530 

2540 

2550 


) THEN  A (X2,8) =1 1 
) THEN  A (X2, 1 ) =5 
) THEN  A (X2 ,8) =8 
) THEN  A ( X2, 1 ) =2 
IF (Y2=8) AND (F*="H"> THEN  A(X2,8)=10 
IF ( Y2=l ) AND  <F*="H" ) THEN  A ( X2, 1 ) =4 
IF ( Y2=B) AND (F*="L" ) THEN  A (X2,B) =9 
IF (Y2=l) AND <F*="L"> THEN  A(X2,1)=3 
X=X2:Y=Y2: GOSUB  2530 

POKE  214, 10: PRINT: PRINT  TAB (28) CHR* (5 
/  i 

IF  F*="D"THEN  PRINT" {RVSON) DAME-" 

IF  F*="T"THEN  PRINT" {RVSON )TURM-" 

IF  F*="H"THEN  PRINT" {RVSON)SPRINGER-" 
IF  F*="L"THEN  PRINT" {RVSON )LAEUFER-" 
PRINT  TAB (28) " {RVSON) TAUSCH" 

GOSUB  2660: POKE  21 4 , 010: PRINT: PRINT  T 
AB ( 28 ) " {RVSON , 9SPACE ) " : GOTO  1730 
PRINT  TAB (28) "{RVSON, 4SPACE)": GOTO  17 
30 

REM  ******  UNTERPROGRAMME  ****** 

REM 

REM  —  EINZELNE  FELDER  — 

REM  —  DRUCKEN 
REM 

IF  B(X,Y)=1  THEN  2490 

GOSUB  2840: POKE  646, 15: PRINT" {RVSON)fl 
flßlDOWN ,  3LEFT)flflß{D0WN  ,  3LEFT  )flflfl"  :  RET 
URN 

GOSUB  2840 : PR INT " {3SPACE , DOWN , 3LEFT , 3 
SP ACE ,  DOWN ,  3LEFT  ,  3SP ACE  )  "  :  RETURN 
REM 

REM  —  FIGUR  DRUCKEN  — 

REM 

F=A(X,Y) 

GOSUB  2840 

POKE  646,9:  IF  F>6  AND  B(X,Y)=0  THEN.-P 
RINT" {RVSON )"A* (F-6) " {UP ) " : RETURN 


<052> 


<013> 

<243> 
<071  > 
<100> 
<253> 
<  120> 
<056> 

<  138> 
<252> 
<157> 
<116> 
<227> 
<190> 

<  147> 
<210> 
<035> 

<  154> 

<06B> 

<250> 

<213> 

<014> 

<095> 

<00B> 

<071  > 

<044> 

<254> 

<092> 

<075> 

<19B> 

<077> 

<230> 

<094> 

<  153> 
<0B6> 
<025> 
<106> 
<21B> 
<041  > 

<  172> 
<088> 

<  158> 
<031  > 

<  170> 
<096> 

<  166> 

<  12B> 

<019> 

<  175> 
<074> 
<051  > 
<042> 

<  153> 

<077> 

<235> 
<081  > 
<206> 

<  160> 
<  1B6> 
<236> 
<218> 


<203> 

<  137> 
<020> 
<063> 

<040> 

<146> 

<218> 

<072> 
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2560  IF  F>6  AND  B(X,Y)=1  THEN: PRINT" {RVOFF 

>"A*(F-6) "<UP>" : RETURN  <239> 

2570  PQKE  646 , 8: IF  B(X,Y)=1  THEN  PRINT“<RV 

OFF >"A*(F)"tUP>": RETURN  <099> 

2580  PRINT" CRVSQN } " A* ( F ) " {UP >" i RETURN  <001 > 

2590  REM  <1 12> 

2600  REM  —  UMRECHNEN  —  <055> 

2610  REM  < 132> 

2620  B 1 *=LEFT*  <  B* , 1) : X2=ASC (Bl*) -64 : Y2=VAL 

( R I GHT * ( B* , 1 ) ) : RETURN  <224> 

2630  REM  <152> 

2640  REM  —  ZEITSCHLAUFE  —  <029> 

2650  REM  <172> 

2660  POKE  198,0: FOR  T=1  TO  250: IF  PEEKC197 

>064  THEN  2680  <002> 

2670  NEXT: RETURN  <069> 

2680  IF  PEEK  < 197) =3  THEN  2700  <037> 

2690  RETURN  <20B> 

2700  IF  PEEK (197) 064  THEN  2700  <106> 

2710  IF  PEEK (197) =64  THEN  2710  <219> 

2720  RETURN  <23B> 

2730  REM  <252> 

2740  REM  —  GRUNDSTELLUNG  —  <191> 

2750  REM  <016> 

2760  A(l, 1) =8: A (2,1) =10: A (3,1) =9: A (4, 1) =11 

:A(5,1)=12:A(6,1)=9  <204> 

2770  A(7,1)=10:A(8,1)=8  <244> 

2780  FOR  1=1  TO  8: A ( I , 8) =A ( I , 1 > -6: NEXT  <123> 

2790  FOR  X=1  TO  8: A (X , 2) =7: A ( X , 7) =1 : NEXT  <141> 
2800  RETURN  <062 > 

2810  REM  <076> 

2820  REM  —  BILDSCHIRMPOSITION  —  <116> 

2830  REM  <098> 

2840  IF  Y=8  THEN  PRINT" CHOME) "TAB ( (X-l ) *3+ 

1 ) ; : RETURN  <093> 

2B50  Xl  =  ( X— 1 ) *3+1 : Yl= (8— Y>  *3— 1 : POKE  214, Y1 

: PRINT : PRINT  TAB ( XI );: RETURN  <010> 

2860  REM  < 128> 

2870  REM  —  SPIELENDE  -  <069> 

2880  REM  < 148> 

2890  POKE  19B,0: FOR  1=1  TO  10000: IF  PEEK ( 1 

97) =64  THEN  NEXT  <204> 

2900  FOR  1=1  TO  B: FOR  J=1  TO  8: A ( I , J ) =0: NE 

XT : NEXT  <252> 

2910  GOSUB  2760: GOTO  1290  <02B> 

10000  REM  <156> 

10010  REM -  DATA  FUER  DIE  -  <233> 

10020  REM -  PARTIEN  -  <009> 

10030  REM  < 1B6> 

10040  REM  **  DEMO-PARTIE  1  **  <250> 

10050  DATA  S I FF , KASHD AN , 1 948  <224> 

10060  DATA  D2D4 ,GBF6 , C2C4 ,E7E6, B1C3 ,FBB4 , D 
1 C2 , D7D5 , A2A3 , B4E7 , C4D5 , E6D5 , C 1 F4 , C7 
C6  <049> 


10070  DATA  H2H3 , KR , E2E3 , F8E8 , F 1 D3 , B8D7 , G 1 F 

3 ,  D7F8 ,  F3E5 ,  E7D6  ,  KR  ,  F8E6 ,  F4H2  ,  G7G6  <  1 1 3  > 

100B0  DATA  E5F3 , E6G7 , H2D6 , D8D6 , F 1 C 1 , C8F5 , F 
3D2 , E8E7 , B2B4 , A8E8 , A 1 B 1 , F5H3 , G2H3 , E7 
E3  <079> 

1  BSJ'i’ia  DATO  D3F  1  ,  C3TF3  ,  F2E3  ,  D6B33  ,  F  X  BZ  ,  G-5fc.33 

, G 1 H 1 , F5G3S , H 1 H2 , E3F4 , D2F3 , E8E2 , C3E2  <  224  > 
10100  DATA  G3E2S ,  H2H 1  ,  F6H5 ,  C2D2  ,  H5G3S ,  H1H2 

,G3F1S,H2H1 ,F4H2S,F3H2,F1G3M  <041> 

10110  DATA  E  <004> 

10120  REM  »*  DEMO-PARTIE  2  **  <075> 

10130  DATA  BELLER, EUWE, 1953  <0B2> 

10140  DATA  D2D4 , G8F6 , C2C4 , E7E6 , Bl C3 , F8B4 , E 
2E3 , C7C5 , A2A3 , B4C3 , B2C3 , B7B6 , F 1 D3 , CB 
B7  <240> 

10150  DATA  F2F3 , B8C6 , G 1 E2 , KR , KR , C6A5 , E3E4 , 

F6E8 , E2G3 , C5D4 , C3D4 , A8CB , F3F4 , A5C4  < 1 40  > 

10160  DATA  F4F5 ,F7F6 ,F1F4 , B6B5 ,F4H4 , DBB6 ,E 

4E5 , C4E5 , F5E6 , E5D3, D 1 D3 , B6E6 , D3H7S  < 1 95  > 

10170  DATA  G8F7 , C 1 H6 , FÖHB , M7HB , C8C2 , A 1 C 1 , C 


2G2S.G1F1 ,E6B3,FIE1 ,B3FS,WA  <12B> 

10180  DATA  E  <074> 

10190  REM  **  DEMO-PARTIE  3  *«  <146> 

10200  DATA  ROSSETTO , ST AHLBER6 , 1 947  <097> 

10210  DATA  E2E4 , E7E6 , B2D4 , D7D5, B1C3 ,G8F6 , C 
1 G5 , F8E7 , E4E5 , F6D7 , H2H4 , C7C5 , C3B5 , F7 
F6  <255> 

10220  DATA  F 1D3 , A7A6 , D1H5S ,E8FB,H1H3 , A6B5 , 

G5H6 , DBA5S , H6D2 , A5C7 , H3G3 ,C5D4,G1F3  < 249  > 

10230  DATA  D7E5 , G3G7 , H7H6 , D3H7 , F8G7 , H5H6S , 

G7F7 , H6H5S , F7G7R  <094> 

10240  DATA  X  <032> 

e  64'«-  Listing  »Schachmeister«.  (Schluß) 


Alle  Neune 

Jeder  Kegelverein  macht  mit  viel  Auf¬ 
wand  die  statistische  Auswertung  der 
Kegelresultate.  Mit  dem  Programm 
»Jahresauswertung«  für  den  Commo- 
dore  64  bleibt  Ihnen  die  Rechnerei 
erspart. 

Das  Programm  »Jahresauswertung«  stellt  für  jeden  Teilneh¬ 
mer  eines  Kegelvereins  die  Kegelergebnisse  in  einer  Tabelle 
zusammen.  Natürlich  läßt  sich  die  »Jahresauswertung«  auch 
für  Vereine  mit  ähnlicher  Problematik  anwenden,  zum  Beispiel 
Bowling-Gruppen,  Schützenvereine  oder  Minigolf-Clubs.  Die 
»ehrenvolle«  Aufgabe  der  statistischen  Auswertung  aller  Ein¬ 
zelergebnisse  ist  meist  sehr  mühsam.  Was  liegt  da  näher,  als 
hierzu  Hobby  und  notwendiges  Übel  miteinander  zu  verbinden 
und  den  Commodore  arbeiten  zu  lassen.  Neben  der  Zeiter¬ 
sparnis  bei  der  Auswertung  liegt  für  jedes  Mitglied  ein  sauber 
gedrucktes  Dokument  vor  (Bild  1),  das  zum  Beispiel  bei  der  Ab¬ 
schlußfeier  überreicht  werden  kann. 

Da  die  Ausdrücke  beim  Kegeln  regional  verschieden  sind, 
hier  einige  Erklärungen  dazu.  Beim  »Bilder-Kegeln«  werden 
bestimmte  Kegel-Konfigurationen  aufgestellt,  die  mit  einem 
Schub  abzuräumen  sind.  »Pudel«  oder  »Ratten«  heißen  die  Ku¬ 
geln,  die  .vorzeitig  aus  der  Bahn  und  gegen  die  Bande  laufen. 
»Stier«  oder  »Straße«  sagt  man,  wenn  der  vordere  Kegel,  der 
König  und  der  hintere  Kegel  bei  einem  Schub  fallen. 

Wollen  Sie  für  Ihren  Verein  die  Spalten  anders  benennen,  so 
ändern  Sie  die  Zeilen  1070  bis  1110.  Sind  Ihre  Namen  länger 
oder  kürzer  als  die  ursprünglichen,  müssen  Sie  auch  die  Leer¬ 
stellen  zwischen  den  Wörtern  berücksichtigen.  Achten  Sie 
darauf,  daß  die  Namen  teilweise  über  zwei  Zeilen  gehen.  Also 
programmieren  Sie  erst  die  obere  Reihe  und  im  nächsten 
Schritt  den  unteren  Teil. 


Die  wichtigsten  Variablen 


Zeile  230: 

N 

Anzahl  der  Spalten 

Zeile  230: 

M 

Anzahl  der  Kegeläbende 

Zeile  250: 

A 

Anzahl  der  Anwesenheitstage 

Zeile  270: 

K$ 

Name  des  Keglers 

Zeile  340: 

U 

Eingabewert  für  die  Tabelle 

Zeile  370: 

D$ 

Datum  des  Kegelabends 

Zeile  770: 

S 

Summe  der  Spalte 

Zeile  790: 

V 

Durchschnitt  der  Spalte  1 

Zeile  800: 

B 

Durchschnitt  der  Spalte  2 

1 

Zahler  für  Anzahl  der  Kegelabende 

J 

Zähler  für  Anzahl  der  Spalten 

Feste  Programmeinträge:  Kalenderjahr:  Zeilen  1510, 
1700;  Anzahl  der  Kegelabende:  Zeilen  1520,  1770,  1810; 
DATA-Eintragungen  der  Abende:  Zeilen  1770  bis  1810. 
Gerätespezifische  Angaben:  Zeile  220:  Bildschirmfarben; 
Zeile  1180:  Kontrollton  nach  Abschluß  der  Eingaben  eines  Ta¬ 
ges.  Die  Druckanweisungen  gelten  für  Commodore-Drucker 
und  müssen  für  andere  Fabrikate  gegebenenfalls  entspre¬ 
chend  geändert  werden. 

(Jürgen  Schäfer/ev) 


Anwendung 


C  64 


Iso 
110 
120 
130 
140 
150 
160 
170 
1B0 
1  90 
200 
210 
220 
225 

230 

240 

250 

260 

270 

200 

290 

300 

310 

320 

330 

340 

350 

360 

370 

300 

390 

400 

410 

430 

440 

442 

444 

445 

446 

450 

460 

470 

475 

480 

490 

500 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 


(OJUERGEN  SCHAEFER 


1984 


REM  »tut***-»*-»*************#***##*-»*** 
REM 

REM  JAHRESAUSWERTUNG 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM  #»»•*■»******■»»#**#*#«■*»#*■**##**## 
PRINT" £CLR>" 

POKE  53281 t0:POKE  53280,0: POKE  646,1 
REM - EINGABE  ROUTINE - 


8000  MUENCHEN  70 


TEL. 089—7601642 


<231  > 
<172> 
<00B> 

<  192> 
<082> 
<212> 
< 022 > 
<232> 

<  147> 
<252> 
<250> 

<  198> 

<  161  > 

<  1 06  > 
<  1 80  > 


9  > 


N=7:M=24 

PRINT"ANZAHL  DER  ANWESENHEITSTAGE  IN  1 
984" : PRINT  <124> 

INPUT  A  <026> 

IF  A>M  THEN  PRINT" £CLR}" : GOTO  240  <092> 

PR INT: PRINT "GEBEN  SIE  DEN  NAMEN  DES  KE 
GLERS  EIN  !": PRINT  : INPUT  K*  <223> 

PRINT" £CLR>"  <014> 

PR INT "GEBEN  SIE  DIE  EINZELWERTE  DER  SP 
ALTEN" : PRINT  <210> 

PRINT" IN  FOLGENDER  REIHENFOLGE  EIN  :"  <238> 

FOR  T=1  TO  2000  <195> 

NEXT  T  <238> 

GOSUB  1160  <240> 

DIM  U(M+1,N+1>  <020> 

FOR  1=1  TO  M  <20B> 

GOSUB  1160  <014> 

READ  D*  <246> 

PRINT  <228> 

PRINT  D*  <082> 

PRINT"========": PRINT  <21 1> 

FOR  J=1  TO  N  <149> 

PRINT  J; ".SPALTE  " ;  <15B> 

INPUT  U(I,J):US=STR*(U(I,J>>  <082> 

IF  LEN(U$)>4  THEN  445  <018> 

GOTO  450  <222> 

PRINT:  PRINT" BITTE  NUR  ZAHLEN  BIS  MAX. 

999  EINGEBEN  !"  ”<03 

PRI NT " E I NGABEW I EDERHOLUNG " : PR I NT  : GOTO 
440  <100> 

NEXT  J  <032> 

NEXT  I  <034 > 

RESTORE  <010> 

REM - HARDCOPY  AUSDRUCK - 

-  <164> 

<21 1  > 
<039> 
<016> 

<  176> 

<  106> 

<  135> 

<12B> 
<164> 

<  1 92  > 

<  141  > 

<  075  > 

<  176> 

<  054  > 

<194> 
<041  > 
<147> 
<157> 

<  167> 
<254  > 

<  175> 
<010> 

<065  > 

<  152> 

<150> 

<  187  > 
<225> 
<215> 

<  10B> 
<240> 
<102> 

<  162> 


PRINT: INPUT "IST  DER  DRUCKER  EINGESCHAL 
TET  (J)";P* 

IF  P*<>"J"  THEN  480 

PRINT: PRINT"ES  WIRD  AUSBEDRUCKT" 

GOSUB  1350 
GOSUB  1040 
OPEN  4,4 

REM - TABELLE  ERZEUGEN - 


FOR  1=1  TO  M 
READ  D* 

PR I NT#4 , D* ; “ C2SPACE > "  ; 

FOR  J=1  TO  N 
X=U(I,J) 

IF  X  >99  THEN  PRINT44  ,  X  ;  :  GOTO  640 
IF  X  <100  AND  X>=9  THEN  PRINT #4 , X ; : GO 
TO  650 

IF  X  <10  THEN  PR INTH4.X; : GOTO  660 
PRINT44 ,  " {5SPACE>"; : GOTO  670 

PRI NT#4 ,  " (6SPACEJ"; : GOTO  670 

PRINT#4 ,  " £7SPACE>"; : GOTO  670 

NEXT  J 
PRINT#4 
NEXT  I 

PRINT#4,  '"v'VYYYYYYYYYYYYYYYYYYYYYYYYyW 
710  PR  INTtt4 ,  "  WYYYV'yYYYYYYYYYV'yYVVYYYYVTYY 


720  REM - 

DEN - 

730  PRINT#4, "SUMME: £3SPACE>"; 
740  FOR  J=1  TO  N 
750  S=0 

760  FOR  1=1  TD  M 
770  S=S+U(I,J) 

780  NEXT  I 

790  IF  J=1  THEN  V=INT (S/A+. 5) 


-SUMME  PRO  SPALTE  BIL 


800  IF  J=2  THEN  B=INT (S/A+. 5) 

810  PRINT#4,S; 

830  IF  S>99  AND  S<999  THEN  GOTO  890 
840  IF  S<100  AND  S>9  THEN  GOTO  920 
850  GOTO  950 
890  PRINT#4,"£5SPACE>"; 

900  NEXT  J 

910  GOTO  970 

920  PR I NT #4 , " £6SPACE >  " ; 

930  NEXT  J 

940  GOTO  970 

950  PR I NT #4 , " £7SPACE  > " ; 

960  NEXT  J 
970  U (M+l , J ) =S 
9B0  PRINT #4 

990  PRINTK4: PRINTU4 , " JAHRES-DURCHSCHNITT  B 
EI  10X  IN  DIE  VOLLEN  : "; CHR* ( 14) : V: 
1000  PRINTW4: PRINT #4 , " JAHRES -DURSCHNITT  BE 
I M  B I LDER-KEGELN (6SPACE > : " ; CHR* (1 4 ) ; B 
1010  CLOSE  4 
1020  GOSUB  1620 
1030  END 

1040  REM - TABELLENKOPF - 


1050 

1060 

1070 

1080 


1090 

1100 


1110 


OPEN  4,4 
PRINTK4, "KEGEL- 

PRINT#4 , " 10  SCHUB  ";"  ";"  SUMME  ";  "£ 
3SPACEJ " ; "  PUDEL"; 

PR I NT#4 , " C4SPACE  > " ; " ST I ERE ” ; " <5SPACE 1 
"ALLE  "{4SPACE>";  "KRANZ";  “  £4SPACE 
}" : "SCHNAPS" 


<078> 
<045  > 
<120> 

<  193> 
<160> 
<174> 
<230> 
<252> 

<  204  > 
<004> 
<026> 
<234> 
<034> 
<241  > 
<221  > 

<073> 

<  060  > 

<027> 
<  1 1 8  > 
<016> 

<022> 

<  137> 

<  1 13> 

<22B> 


” hlll  ;  •'  <4SPACE>-;  •kkhi'U  " 
>"; "SCHNAPS" 

PR I NT#4 , " ABEND (2SPACE > " ; "  " ; 


j  ;  oLnwira 

PR I NT#4 ," ABEND <2SPAC 
PRINT44, "I.D. VOLL. "; "  BILDER  ";"£ 
2SPACEJ ” ; “ (RATTEN) " ; 

PR I NT#4 , " T2SPACE > " ; " £4SPACE  > " ; " I7SPAC 
E  > " ; " NEUN  " ; " C4SPACE  > " ; " {5SPACE > “ ; " £4 
SPACE>"; "RUNDEN: " 

PR  I  NT#4 ,  "  YYYYYYYYYYYYYYYYYYYYYYYYYYYY 
PRINT#4,  "  YYYYYYYYYYYYYYYYYYYYYYYYYYYY 


11-C  CLOSE  4 
1150  RETURN 


1160  REM- 


-TON- 


1170 
1180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 

1265 

1266 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 


PRINT 

POKE  54273,23: POKE  54272,181 

POKE  54296,15 

POKE  54277,9 

POKE  54278,0 

POKE  54276,33 

FOR  T=1  TO  500: NEXT  T 

POKE  54276,32 

POKE  54273,0 

PRINT" £CLR>" 

PR INT" SPALTENBELEGUNG: " 

PRINT"  WYVYYYYYYYYYYYY" 

PRINT" 1.  10  SCHUB  IN  DIE  VOLLEN" 
SUMME  BILDERKEGELN  " 

PUDEL  (RATTEN» " 

STIERE (STRASSE) " 

ALLE  NEUN" 

KRANZ" 

SCHNAPSRUNDEN"  :  PR I NT :  PR I NT 


PRINT"2. 
PR  TNT" 3. 
PR INT" 4. 
PRINT"5. 
PRINT"6. 
PRINT"7. 
RETURN 
REM - 


-FORMULARKOPF- 


1360  OPEN  4,4 

1370  PRINT#4, "##***#**#****»**##**#*####*« 
#*****•»*•****" ; 

1380  PRINT#4, "***#*#»****#*###*»#*****##** 
#**********»"  : PRINT44: PRINT44 

1390  PRINT#4,CHR*(16> "  2";CHR*(14)  CHR*(14 
) "JAHRESAUSWERTUNG  FUER  1 984 C2SPACEJ " 

1400  PR INT #4 : PR I NT tt4 

1410  print#4, 1 1  iiWü  u  u  u'uuüuuLr ir uw in/uu  u  u'u  uuuu 

1420  PRINT44,  "  UUUUUUUUUUUUUUUUUUUUWU'U'UUUT/ 

1430  PRINT44, "KEGELCLUB  ALLE  NEUN  "; 

1440  PRINTW4 , CHR* (16) "62" ; "17. DEZEMBER  19B 
4" 

1450  PRINT#4 

1460  PRINT44, "DIE  FOLGENDE  TABELLE  ZEIGT  D 
IE  PERSOENLICHEN  LEISTUNGEN  UNSERES  " 


<  179> 
<227> 

<  141  > 

<248> 

<  168> 

<014> 

<159> 

<  192> 

<091  > 
<000> 

<  137> 
<009> 
<078> 

<  1 99  > 

<  162> 
<099> 
<17B> 
<10B> 
<232> 
<032> 

<  1 35  > 
<228> 

<  1 25  > 

<163> 

<063> 

<012> 

<035> 

<014> 

<128> 

<  141  > 

<  1 93> 

<  131  > 
<252> 


<032> 

<072> 

<  166> 

<01 9> 

<031  > 

<117> 
<  183> 


<126> 
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Anwendung 


1470  PR INT#4, "KEGELBRUDERS  <204 > 

1480  PRINT#4  <213> 

1490  PR I NT#4 : PR I NT #4 , CHRi (16)" 25 "  CHR*(14) 

; Kt  <025> 

1500  PRINT44  <233> 

1510  PRINT#4:PRINT#4, "WAEHREND  DES  ABGELAU 

FENEN  JAHRES  1984."  <21 1> 

1520  PR1NTH4 ,  "  IN  DIESEM  JAHR  HATTEN  WIR  IN 

SGESAMT  24  KEGEL ABENDE. " ;  <035> 

1530  PRINT#4, "SIE  HABEN" ; A; "MAL  TEILGENDMM 

EN"  <007> 

1540  PRINT#4 , "UND  ERREICHTEN  DAMIT  “jINTIA 
/24  *100)  j"  7.  {2SPACE >DER  MAX.  MOEGLIC 
HEN  " ;  <248> 

1550  PRINT#4, “ANWESENHEITSZEIT  ! "  <216> 

1560  PRINT44  <039> 

1570  PRINTt*4,"I  H  R  E I2SPACEJP  E  R  S  D  E  N 
L  I  C  H  E  N<2SPACE>E  RGEBNISS 
E 12SPACE1 s "  <0B0> 

1580  PRINT44,"— 

<045> 

1590  PRINTK4  :PRINT#4  <008> 

1600  CL8SE  4  < 1 1 1  > 

1610  RETURN  < 144> 

1620  REM - SCHLUSSFORMEL - 

-  < 181 > 

1630  OPEN  4,4  <209> 

1640  PR  I NT#4 :  PR  I  NT #4 ,  "  lAIWl/in/UÜDUÜDWIAAAA/ 

UUUUUUUUUUUmJUUUUUU" ;  <062> 

1650  PRINTM4,  "TnjWCTOÜUTJÜlJTJTnTÜÜTJÜUUTTDTrTJUUinj 

tnnjtnjüumnnjij"  <251  > 


1660  PR I NT #4 : PR I NT #4 , "IM  NAMEN  DER  GANZEN 
KEGELGRUPPE  WUENSCHEN  DER  COMPUTER  " ; 

1670  PRINT#4, "UND  DER  VORSTAND  IHNEN,  “ 

1680  PRINTD4 

1690  PRINT#4, "LIEBER  HERR 

1700  PRINT#4,CHR*(14)"C3SPACE>GUT  HOLZ  FUE 
R  1985  ! " 

1710  PRINT44 

1730  PRINT#4 

1740  PRINTK4, "**************************** 
************ " ; 

1750  PRINT44, "**************************** 
************"  : PR I NT #4 : PR I NT #4 

1760  CLOSE  4 

1765  REM - DATEN  DER  KEGELABEND 

E - 

1770  DATA  "  2. JAN. ","16. JAN. ","30. JAN. ","1 
3.FEB. " , "27.FEB. " 

1780  DATA  "12. MAR. " , "26. MAR. " , "  9. APR. " , " 
7. MAI  ","21. MAI  " 

1790  DATA  “  4. JUN. ", "18. JUN. ", "  2.JUL. ","1 
6. JUL. ","30. JUL. ■ 

1800  DATA  "13. AUG. ", "27. AUG. " , " 10. SEP . ", "2 
4. SEP. " , "  8. OKT. " 

1810  DATA  "22. OKT. " , "  5. NOV. " , "19. NOV. " , " 
3. DEZ. " 


<238> 

<070> 

<159> 

<243> 

<1U> 

<  189> 
<209> 

<247> 

<  1 12> 
<015> 

<044> 

<  138> 
<240> 
<004> 

<217> 

<042> 


©  G4'er 

Listing  zur  »Jahresauswertung«.  Bitte  mit  dem 
Checksummer  V3  auf  Seite  16  eingeben. 


\ 


»>»*••**«••*>•<>•**•<••*»•«»•***«•••*>••««•»•••••»•««•*•*«*•<*«»«*•*»*•«•»»***** 
LTrtMRESftLJS  UJE  R  TU  I — IC3  RUER  1 


KEGELCLUB  ALLE  FEUN  17. DEZEMBER  1984 

DIE  FOLGENDE  TABELLE  ZEIGT  DIE  PERSOENL ICHEN  LEISTUNGEN  UNSERES  KEGELBRUDERS  I 

PETER  MU  ELLER 
WAEHRENJ  DES  ABGELAUFENEN  JAHRES  1984. 

IN  DIESEM  JAHR  HATTEN  WIR  INSGESAMT  24  KEGELABENDE. SIE  HABEN  19  MAL  TE ILGENOMhEN 
UND  ERREICHTEN  DAMIT  79  X  DER  MAX.  MOEQL  ICHEN  AMESEFWE  ITSZE  IT  I 


IHRE 

P  E  R  S  O 

E  N  L  I  C 

HEN  E 

R  G  E  B 

NISSE 

1 

KEGEL- 

10  SCHUB 

SUfME 

PUDEL 

STIERE 

ALLE 

KRANZ 

SCHNAPS 

ABEND 

I .D. VOLL. 

BILDER 

(RATTEN) 

NEUN 

RUNDEN: 

2. JAN. 

59 

98 

0 

0 

0 

0 

0 

16. JAN. 

31 

78 

3 

1 

1 

0 

0 

30. JAN. 

34 

1 12 

1 

0 

1 

1 

1 

13.FEB. 

4B 

1  14 

1 

0 

0 

1 

0 

27.FEB. 

31 

108 

2 

1 

0 

0 

1 

12. MAR. 

34 

123 

0 

0 

1 

0 

1 

26. MAR. 

0 

0 

0 

0 

0 

0 

0 

9. APR. 

0 

0 

0 

0 

0 

0 

0 

7. MAI 

36 

98 

0 

i 

1 

0 

0 

21 .MAI 

31 

1  14 

1 

0 

0 

1 

0 

4 .JUN. 

0 

0 

0 

0 

0 

0 

0 

1B. JUN. 

32 

118 

1 

o 

0 

1 

0 

.2.  JUL. 

33 

124 

1 

o 

1 

1 

1 

16. JUL. 

SB 

91 

0 

i 

3 

0 

1 

30. JUL. 

43 

99 

1 

2 

0 

0 

0 

13. AUG. 

0 

0 

0 

0 

0 

0 

0 

27. AUG. 

49 

101 

0 

0 

1 

0 

1 

10. SEP. 

46 

109 

1 

1 

0 

0 

0 

24. SEP. 

31 

1 12 

1 

1 

0 

1 

1 

8. OKT. 

39 

117 

0 

0 

2 

0 

1 

22. OKT. 

e 

0 

0 

0 

0 

0 

0 

3. NOV. 

61 

132 

0 

0 

0 

0 

0 

19. NOV. 

33 

137 

2 

0 

0 

i 

0 

3. DEZ . 

30 

98 

1 

0 

0 

0 

i 

SUMTE: 

1003 

2083 

16 

8 

1 1 

7 

JAHRES- 

DURCHSCHNITT  BEI  10X 

IN  DIE  VOLLEN  : 

55  3 

JAHRES- 

DURSCHNITT 

BEIM  B ILDER -KEGELN 

t 

110 

IM  NAMEN  DER  GANZEN  KEGELGRUPPE  WUENSCHEN  DER  COMPUTER  UND  DER  VORSTAND  IHNEN, 
LIEBER  HERR  PETER  MUELLER ,  GUT  MOL-Z  FUER  1  SSS  • 

Bild  1.  Beispielausdruck  einer  Auswertung 
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Anwendung 


C  64  +  Simons  Basic 


Weißt  Du  wie¬ 
viel  Sternlein 
stehen  ... 

Der  C  64  als  elektronische  Sternenkar- 
te  bringt  Klarheit  ins  Dunkel  der  Nacht. 
Das  Programm  zeigt  Ihnen,  wo  Plane¬ 
ten  und  Sternbilder  am  Nachthimmel 
exakt  stehen. 

Das  Programm  entstand  aus  dem  Bedürfnis,  den  Standort 
von  Sternen,  Sternbildern  und  Planeten  zu  ermitteln.  Vor  allem 
die  Planeten  lassen  sich  so  ohne  weiteres  mit  dem  bloßen  Au¬ 
ge,  nicht  erkennen.  Man  kann  sie  nur  identifizieren,  wenn  man 
genaue  Informationen  über  ihren  jeweiligen  Standort  hat.  Des¬ 
halb  wurde  die  Berechnung  der  Planetenbahnen,  der  Bahn  der 
Sonne  und  der  des  Mondes  in  das  Programm  aufgenommen. 
Das  Programm  erstellt  eine  Sternenkarte  für  einen  eingegebe¬ 
nen  Standort  zum  gewünschten  Beobachtungszeitpunkt. 

Die  Sternenkarte  enthält  die  hellsten  und  bekanntesten  Fix¬ 
sterne  beziehungsweise  Sternbilder  des  nördlichen  Sternen¬ 
himmels. 

Sehr  interessant  ist  es,  neben  der  Ausgabe  der  Sternenkarte 
für  eigene  Beobachtungen,  sich  die  Sternenkarte  für  jeden 
Punkt  der  Erde  zeichnen  zu  lassen. 

So  kann  man  sich  zum  Beispiel  in  Gedanken  auf  den  Nordpol 
versetzen.  Der  Polarstern  (Polaris)  steht  im  Zenit,  also  genau 
über  dem  Beobachter.  Gibt  man  als  Beobachtungszeitpunkt 
den  21.  März  (Frühlingsanfang  für  die  Nordhalbkugel)  ein,  kann 
man  feststellen,  daß  die  Sonne  den  ganzen  Tag  über  scheint. 

Am  Nordpol  hat  der  Tag  begonnen.  Die  Sonne  scheint  nun 
ein  halbes  Jahr  ohne  Unterbrechung.  Erst  zum  Herbstanfang 
geht  sie  wieder  unter.  Es  ist  dann  für  ein  halbes  Jahr  Nacht. 
Auch  die  Verhältnisse  am  Äquator  (Breite  0  ° )  sind  sehr  interes¬ 
sant. 


Hardcopy  des  Sternenhimmels  von  Hamm  (zirka  52°  nörd¬ 
liche  Breite  und  8°  östliche  Länge),  wobei  der  Beobach¬ 
tungszeitpunkt  der  7.  Februar  1985,  19.30  GMT  (Weltzeit) 
beziehungsweise  20.30  MEZ  (Ortszeit)  ist.  Wie  bei  Stern¬ 
karten  üblich,  ist  Osten  links,  Westen  rechts,  Norden  oben 
und  Süden  unten.  Der  Mond  steht  tief  im  Osten. 


Nach  dem  Start  des  Programms  werden  zunächst  das  ak¬ 
tuelle  Datum  sowie  die  aktuelle  Uhrzeit  (MEZ)  und  die  geogra¬ 
fischen  Koordinaten  des  Beobachtungsortes  eingegeben. 
Dabei  müssen  nördliche  Breiten  und  westliche  Längen  positiv, 
südliche  Breiten  und  östliche  Längen  negativ  angegeben  wer¬ 
den.  Nun  kann  man  den  Beobachtungszeitpunkt  wählen, 
wenn  sich  dieser  vom  bereits  im  Programm  festgelegten  Zeit¬ 
punkt  unterscheidet. 

Es  folgt  eine  kurze  Erläuterung  des  Programmablaufs  und 
das  Zeichnen  der  Sternkarte.  Mit  den  Cursor-Tasten  kann  über 
ein  Kreuz  jedes  Objekt  der  Sternkarte  angesteuert  werden. 
Die  Bewegungsgeschwindigkeit  ist  abhängig  von  der  Dauer 
des  Tastendrucks;  das  heißt  je  länger  eine  Cursortaste  ge¬ 
drückt  wird,  desto  schneller  bewegt  sich  das  Kreuz.  Drückt 
man  nach  der  Wahl  die  Funktionstaste  Fl,  gibt  der  Computer 
den  Namen  des  Sterns  oder  Planeten,  der  dem  Kreuz  am 
nächsten  ist,  an.  Dabei  wird  der  Cursor  genau  auf  das  Objekt 
positioniert.  Möchte  man  wissen,  um  welches  Sternbild  es 
sich  bei  einer  bestimmten  Konstellation  handelt,  bringt  man 
das  Kreuz  auf  das  betreffende  Sternbild  und  drückt  die  Funk¬ 
tionstaste  F3.  Der  Computer  positioniert  den  Cursor  auf  den 
nächsten  Stern  des  Sternbildes  und  zeigt  den  Namen  des 
Sternes  und  des  Sternbildes  an.  Das  gesamte  Sternbild  blinkt. 

Es  besteht  auch  die  Möglichkeit,  einen  Stern,  ein  Sternbild 
oder  einen  Planeten  nach  dem  Namen  suchen  zu  lassen.  Dazu 
gibt  man  einfach  mit  der  Tastatur  den  Namen  oder  einen  Teil 
des  Namens  des  gesuchten  Objekts  ein  und  schließt  die  Ein¬ 
gabe  mit  der  RETURN-Taste  ab.  Der  Computer  positioniert  das 
Kreuz  auf  dieses  Objekt  und  gibt  den  vollständigen  Namen 
aus.  Ist  das  gesuchte  Objekt  nicht  gespeichert  oder  zum  Be¬ 
obachtungszeitpunkt  am  Beobachtungsort  nicht  zu  sehen,  er¬ 
hält  man  eine  entsprechende  Fehlermeldung. 

Will  man  die  Sternkarte  für  einen  anderen  Beobachtungsort 
oder  einen  anderen  Beobachtungszeitpunkt  erstellen  lassen, 
drückt  man  die  Funktionstaste  F7. 

Mit  F5  wird  die  Sternkarte  auf  einen  MPS  801  gedruckt. 
Programmerläuterung 

Auf  die  Formeln,  die  den  Berechnungen  zugrunde  liegen, 
soll  verzichtet  werden.  Diese  Berechnungen  sind  (zumindest 
für  Mond-  und  Planetenpositionen)  ziemlich  kompliziert  und 
können  bei  Interesse  jedem  größeren  Werk  über  Astronomie 
entnommen  werden. 

Von  programmtechnischem  Interesse  dürften  allerdings  die 
Suchroutinen  sein.  Deren  Funktionsweise  soll  deshalb  erläu¬ 
tert  werden. 

Zum  Suchen  werden  die  folgenden  Arrays  verwendet: 

P$  Namfln  der  Planeten 

Z$  Namen  der  Sternbilder 

P  Blldschirmkoordlnaten  der  Planeten 

Z%  Bildschirmkoordinaten  der  Fixsterne 

Z  Zeiger  auf  Fixsterne 

(für  jedes  Sternbild) 

Suchen  Fixstern/Planet  (Funktionstaste  Fl) 

Zunächst  werden  die  Bildschirmkoordinaten  des  Kreuzes 

(X,Y)  mit  denen  der  Planeten  (X  mit  P(0),  P(2) . Y  mit  P(1), 

P(3),  ...)  verglichen.  Bei  Übereinstimmung  ist  XX=0  und  die 
Suche  kann  abgebrochen  werden.  In  Zeile  42090  verzweigt 
das  Programm  nach  45000,  wo  der  Name  des  Planeten  ge¬ 
schrieben  wird.  Liegt  keine  Übereinstimmung  vor,  wird  der 
Planet  mit  dem  geringsten  Abstand  gespeichert  (XP  = 
Abstand2,  ZP  =  Kennziffer  des  Planeten).  Nun  werden  die 
Fixsterne  in  gleicher  Weise  überprüft.  Der  Stern  mit  dem  ge¬ 
ringsten  Abstand  wird  gespeichert  (Z  =  Kennziffer  des 
Sterns;  Zeile  44020).  Wird  kein  Stern  mit  geringerem  Abstand 
als  der  nächste  Planet  gefunden,  wird  der  gespeicherte  Planet 
genannt  (Zeilen  44070  bis  45010).  Dabei  wird  ab  der  Zeile 
500  das  Kreuz  exakt  auf  den  Planeten  beziehungsweise 
Stern  positioniert  und  dessen  Bezeichnungen  ausgegeben. 
Der  Name  eines  Planeten  ergibt  sich  aus  dem  Array  P$  mit  - 
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Anwendung 


Programmstruktur  von  Sternenhimmel 

Zellen 

Bedeutung 

100-  120 

Berechnung  des  Stundenwinkels 

130-  140 

Berechnung  Bogenmaß 

150-  190 

Koordlnaten-T  ransformation 

200  -  240 

Berechnung  Gradmaß 

296  -  395 

Text  auf  Grafikbildschirm  überschreiben 

396  -  480 

Ausgabe  Fehlermeldungen 

496  -  520 

Kreuz  (Cursor)  bewegen 

596  -  630 

Buchstaben  auf  Graflkbildschirm  löschen 

996-  2190 

Bildschirmmaske  erstellen 

4996  -  5260 

Definition  Kreuz  als  Sprite 

9996  -  15080 

Stellung  Erde/Sonne/Mond  berechnen 

19996-20160 

Stellung  Planeten  berechnen 

24996  -  25080 

Stellung  Fixsterne  berechnen 

29996  -  30050 

Rektaszension  und  Deklination  berechnen 

39996  -  49100 

Eingabeschielfe 

49996  -  56050 

Programmbeginn  und  Funktionsdefinitionen; 

52010  -  52020 

arc  sin 

52030  -  52040 

arc  cos 

52050  -  52060 

Modulo  360 

57000-57110 

Hardcopy 

58000  -  58020 

Neustart  des  Programms 

60000  -  61240 

Daten  Fixsterne  (Rektaszension,  Deklina¬ 
tion,  Name,  Nummer  des  Sternbildes) 

62000  -  62230 

Daten  Sternbilder  (Name  lateinisch,  Name 
deutsch,  Zahl  Sterne  —1 ,  Beginn  der 
Sterndaten  DATA-Zeile  60000  +  X- 1 0) 

62500  -  62700 

Daten  Planeten  (Name,  Bahnelemente) 

dem  Index  ZP.  Der  Name  eines  Sternes  wird  durch  berechne¬ 
tes  RESET  (Zeile  44080)  aus  den  DATA-Zeilen  60000  bis 
61240  ermittelt.  Die  Schreibroutine  befindet  sich  ab  Zeile 
300.  S46B 

Suchen  Sternbild  (Funktionstaste  F3) 

Zunächst  wird  die  Suchroutine  für  Sterne  mit  Ausnahme  des 
Abschnitts  für  die  Planeten  durchlaufen.  Der  gefundene  näch¬ 
ste  Stern  bestimmt  das  Sternbild.  Die  Kennziffer  Z  des  Sterns 
wird  in  ZI,  die  letzte  Ziffer  des  gelesenen  Datensatzes  für  den 
Stern  (D;  Zeile  44090)  wird  in  Z  gespeichert.  Das  Programm 
verzweigt  nun  in  die  Blink-Routine  (Zeile  48060  bis  48250). 
Dort  werden  die  zum  Sternbild  gehörenden  Sterne  (Punkte) 
abwechselnd  gesetzt  und  gelöscht  (Zeile  48170). 

Suchen  nach  Namen 

Wird  ein  Name,  oder  ein  Teil  eines  Namens  eingegeben,  ver¬ 
zweigt  das  Programm  in  40100  nach  Zeile  47000.  Das  kom¬ 
plizierte  Löschen  des  zu  überschreibenden  Textes  (GOSUB 
340,  GOSUB  360  in  Zeile  47030)  ist  erforderlich,  da  Simons 
Basic  Text  mit  den  auf  dem  Grafik-Bildschirm  gesetzten  Punk¬ 
ten  ODER-verknüpft.  Aus  diesem  Grund  wird  der  vorige  Text 
erst  gelöscht.  Nun  wird  geprüft,  ob  ein  Planetenname  mit  der 
eingegebenen  Bezeichnung  übereinstimmt  (47060  bis 
47090).  Ist  dies  der  Fall,  werden  die  Bildschirmkoordinaten 
des  Planeten  zu  denen  des  Kreuzes  (Zeile  47120).  Ist  der  Pla¬ 
net  zur  Beobachtungszeit  nicht  sichtbar,  dann  ist  X  =  0  und 
eine  Fehlermeldung  wird  ausgegeben  (47140).  Ansonsten 
wird  das  Kreuz  auf  den  Planeten  positioniert  und  in  die  Einga¬ 
beroutine  gesprungen  (471 50).  Handelt  es  sich  bei  der  einge¬ 
gebenen  Bezeichnung  um  keinen  Planeten,  wird  die  Suchrou¬ 
tine  in  48000  fortgesetzt.  Dort  werden  zunächst  die  Namen 
der  Sternbilder  (deutsch  und  lateinisch)  auf  Übereinstimmung 
untersucht.  Wird  keine  Übereinstimmung  gefunden,  springt 
das  Programm  in  die  Zeile  49000.  Hier  werden  nun  die  Stern¬ 
bezeichnungen  eingelesen  und  mit  der  Eingabe  verglichen. 
Kommt  es  zu  keiner  Übereinstimmung,  wird  die  Fehlermel¬ 
dung  »...  nicht  gespeichert«  ausgegeben  und  das  Kreuz  in  die 
linke  obere  Ecke  des  Bildschirms  gesetzt  (Zeile  49050).  Dar¬ 
auf  kehrt  das  Programm  in  die  Eingaberoutine  (ab  Zeile 
40000)  zurück. 


0  rem  ******************************** 


1 

rem 

* 

* 

2 

rem 

* 

sternenhi mmel 

* 

3 

rem 

* 

* 

4 

rem 

* 

hörst  hinkelmann 

* 

5 

rem 

* 

* 

8 

rem 

* 

* 

9  rem  ##•**»##**•»•**•****•*•*#*«*■***####*** 

10  goto50000 

96  rem  ********************** 

97  rem  *  stern  setzen  * 

98  rem  »#•*#•»**#•***■**■****•***** 

100  rem  **  stundenwinkel  *» 

120  sw=fnmo(ai — re-1 ) 

130  rem  **  bogenmass  ** 

140  sw=sw»pl 

150  rem  **  koordinaten-transf ormation  ** 
160  h=fnas (sb*sin (de) *cb«cos (de) »cos (sw) 

> 

170  if h<0thenx=0t y=0! return 

100  a=fnac ( (sin (de) -sb*sin (h) ) / (cb*cos(h 

)  )  ) 

190  if sw<pithena=-a 
200  rem  **  gradmass  »* 

210  r=99-h»198/pi:w=-a-pi/2 
220  x=int(cos(w)*r*l. 1+159.5) 

230  y=int (sin (w)*r+99.5) 

240  plotx ,y, 1 

296  rem  »*»*■**»***•***»*■**•**•*•*•»* 

297  rem  *  text  ueberschreiben  * 

298  rem  **»**•»*»*****»***»»**#» 

300  n*=left*(n*,13) 

310  ifn3$On$thengosub340 
320  i -f n4$< >nl$thengosub360 
330  return 

340  n3t=n$: block0 , 184 , 103 ,191,0 

350  text0, 184, n*, 1 ,0,B:return 

360  n4*=nlt: blocke, 192, 119, 199,0 

370  black216, 192,319, 199,0 

3t!i£i  text0, 192, nl*, 1,0, 8 

390  text319— 8*len(n2*> , 192, n2* , 1 ,0,8 

395  return 

396  rem  *********************** 

397  rem  *  fehl ermel düngen  * 

398  rem  ■»«■»******«**»*****»*»** 

400  nl*=lef t*(nl*,9> 

410  text0, 192, nl*+"  nicht", 1,0, 8 
420  text232, 192, "sichtbar", 1,0,8 
430  goto41000 
450  nt=leftt(n*,9) 

460  texte, 192, n*+"  nicht", 1,0, B 
470  text232, 192, "gespeichert" ,1,0,8 
480  goto41000 

496  rem  #*•»****#»***#*#******#* 

497  rem  *  kreuz  bewegen  * 

498  rem  *********************** 

500  hn=x+l9: vn=y+46 

510  mmob  1  ,h  v  ,  vv  ,  hn  ,  vn  ,  0  ,  1 00 
520  goto300 

596  rem  *#******»*»#****##*•***« 

597  rem  *  buchstaben  loeschen  * 

598  rem  *•*•»■*•**»*»*****•»******#* 

600  le=len(n*)-l 

610  blockle*8, 184, le«8+7, 199,0 
620  n*=left*(n*,le) 

630  return 

996  rem  ************************ 

997  rem  »  bildschirm  erstellen  * 

998  rem  ****■»•**********■»»***»##* 

1000  hires7 ,6 

1010  circlel60, 100, 110, 100,1 

1020  hu=0s ifb<0thenhu=200 

1030  i f b<0thencircl el60 ,hu+b/9*10 ,2,2 , 1 

1040  text 1 ,0,mid* (str* (t ) ,2) +" . ”+mid» (st 

r*(m) ,2)+". "+mid*(str*( j) ,2) ,1,0,8 

1050  text 1 ,8, "oz "+oz*, 1 ,0,8 

1060  textl , 16,"wz"+wz$, 1 ,0,8 

1070  t*=mid*(str*(int(b+.5> ) ,2,4) 

1080  sp$=right*("  " ,3-len (t$> > 


Listing  zu  Sternenhimmel.  Geben  Sie  das  Listing 
nur  dann  ein,  wenn  Sie  vorher  Simons  Basic  geladen 
und  aktiviert  haben. 
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1090  text216,0, "breite  "+sp$+t*, 1 ,0,8 
1100  t*=mid*(str*(int<l+.5>> ,2,4) 

1110  sp*=right#("  ",3-len(t*)) 

1120  b*="n”: itb<0thenb#="s" 

1130  tex t304 ,0,b$, 1,0,8 
1140  tex t216 , B , ”1 aenge  "+sp*+t* , 1 ,0,8 
1150  l*="w": itl<0thenl*="o" 

1160  text304,8,l*,l,0,B 
1170  t ex t 32, 96, "o" , 1 ,0,8 
11B0  t ex t 280, 96, "w",l,0,8 
1190  gosub2010 
1 200  gosub2 1 1 0 

1210  text2BB, 128, "+5  =",1,0,8 
1220  tex t 288, 136 , "copy " , 1 ,0 , 8 
1230  tex t288 , 1 52 , "  f  7  =",1,0,8 
1240  text256, 160, "neustart" , 1 ,0,8 
1250  return 

2000  block0, 128,39, 143,0 
2010  text0, 128, "f 1  =",1,0,8 
2020  text0, 136, "stern ",1,0,8 
2030  return 

2050  block0, 128,39, 143,0 
2060  text0, 128, "Ssucht" ,1,0,8 
2070  text0, 136, " Steter n“ , 1 ,0,8 
2080  return 

2100  block0, 152,39,159,0 
2110  block0, 160,71 , 167,0 
2120  tex t0 , 152 , "f 3  =",1,0,8 
2130  tex t0, 160, "Sternbild ",1,0,8 
2140  return 

2150  block0, 152,39, 159,0 
2160  block0, 160,71 , 167,0 
2170  text0,152,"3sucht",l,0,8 
2180  text0, 160,  "«Ssternbi  ld 
2190  return 

4996 

4997 

4998 
5000 
5020 
5030 
5040 
5050 
5060 

5070  8 . b . 

5080  8 . b . 

5090  8 . b . 

5100  @ . b . 

5110  8 . 

5120  8 . 

5130  0 . 

5140  8 . 

5150  8 . 

5160  @ . 

5170  0 . 

5180  0 . 

5190  0 . . 

5200  0 . 

5210  0 . 

522B  S . 

5230  mob  set  1,32,0,1,0 
5240  hn=179: vn=145 
5250  mmobl ,hv , vv,hn , vn ,0 ,0 
5260  return 

9996  rem  ********************* 

9997  rem  *  erde/sonne/mond  * 

9998  rem  ********************* 

10000  rem  **  erde  ** 

10100  be=f nmo (tg*. 985609121+99.  18) 

10200  el =f nmo (be+si n ( (be-102. 2) *pl ) *1 . B4 
5) 

10300  ea=l+sin( (el -192. 2) *pl ) *. 0167 
11000  rem  **  sonne  ** 

11200  ls=tnmo (el +180) 

12000  rem  **  mond  ** 

12010  lm=tg*13. 1763976+51.23 
12020  pm=tg*. 111399014+208.9 
12030  km=372. 1-tg*. 052953643 
12040  lm=tnmo(lm) 

12050  pm=+nmo(pm) 

12060  km=fnmo(km> 

12070  am=l m-pm 

12080  km=km-sin (as*pl ) *. 16 

12090  ms= (lm-ls) *2-am 

12100  am=am+si n (ms*p 1 ) *1 . 273BB889-sin (as 
*pl>*(. 18638889+.36) 


12110  1 m=l m+si n ( ms*p 1 ) * 1 . 27388889-si n ( as 
*p 1 ) * . 1 8638889+sin ( am*p 1 >  *6 . 28833333 
12120  ml=lm-ls 

12130  1 m=l m+si n (ml*2*pl ) *. 658333333 
12140  m2=lm-km 

12150  lm=lm-sin(m2*2*pl>*. 12 

12160  bm=sin  <m2*pl ) *5. 14539 

12170  m3= (lm-ls) *2-m2 

12180  bm=bm+sin(m3*pl>*. 15 

15000  ri*="sonne"  :  al=ls:  ab=0s  gosub30000 

15010  ifx=0goto 15040 

15020  circlex ,y ,4,3, 1 

15030  paintx+l,y,l 

15040  n*="mond" : al =1 m: ab=bms  gosub30000 

15050  ifx=0goto 15080 

15060  pl otx , y ,0 

15070  circl ex ,y ,4,3, 1 

15080  return 

19996  rem  ********************* 

19997  rem  *  plansten  * 

19998  rem  ********************* 

20000  reset62500 

20010  -f  orz=0to5 

20020  readn* , tb , ep , ph , mp , e , kn , i , ae 
20030  p*(z)=n* 

20040  ml =f nmo ( tb*tg+ep ) 

20050  wl=ml+sin ( (ml-ph) *pl ) *mp 
20060  sp=ae+si n ( (wl-ph-90) *pl ) *e*ae 
20070  ws=f nmo (c+el-wl ) *pl s  si=sin  <ws) 
20080  f l=ea/sp-cos(ws) 

20090  we=atn <si/f 1 ) *p2 

20100  al=-fnmo  (el+we-180*  (f  1  >=0)  ) 

20110  wt=sin ( (wl-kn) *p 1 ) *i 
20120  ab=atn (tan (wt*pl >  *abs (sin (we*pl ) /s 


25000  reset60000 
25010  f ors=ltoi 1 
25020  readre,de,ni,a 
25030  de=de*pl 

25040  nl*=z*(a,l)  .- n2*=z*  <a, 0) 

25050  gosubl00 

25060  z'/.  (s)=x:z7.  (s+i2)=y 

25070  next 

25080  return 

29996  rem  ********************* 

29997  rem  *  rektas. /dekl i n.  * 

29998  rem  ********************* 

30000  sn=sin (ab*pl ) : cs=cos (ab*pl ) 

30010  sl=sin (al*pl> : cl=cos (al*pl ) 

30020  de=-f  nas  (ec*sn+es*cs*sl ) 

30030  r e=2*atn ( ( ec*cs*sl -es*sn ) / ( cos ( de ) 
+cs*cl ) ) 

30040  re=-fnmo(re*p2> 

30050  goto 100 

39996  rem  ********************* 

39997  rem  *  eingaben  * 

39998  rem  ********************* 

40000  getg* : if g*=" "thenv=l : goto40000 
40010  p=asc(g*) 

40020  i tp=17thenvn=vn+v: goto41000 
40030  i f p= 1 45t hen vn= vn-v : got  o4 1 000 
40040  i f p=29thenhn=hn+v: goto4 1000 
40050  i  -f  p=157thenhn=hn-vs  goto4 1000 
40060  i f p= 133thengosub2050: goto42000 
40070  i f p=134thengosub2150i goto42000 
40080  ifp=135goto57000 
40090  i-fp=136goto5B000 
40100  ifp>64andp<91goto47000 
40110  goto40000 
41000  v=v+. 5 

41010  mmobl ,hn,vn,hn, vn, 0,0 
41020  goto40000 

42000  x=int (hn-19) s y=int (vn-46) 

42010  xm=200000 
42020  i tp=l 34got 044000 
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1,0,8 

rem  ********************** 
rem  *  hires  kreuz  * 

rem  ********************** 
design  0,32*64+49152 

8. .... b . 

© . b . 

8 . b . . 

8 . b . 

©b.b.b.b.b.b . 


6*en  onur> 


i > ) *p2 
20130  gosub 30000 
20140  p(2*z)=x:p(2*z+l)=y 
20150  next 
20160  return 

24996  rem  ********************* 
' 4997  rem  *  fixsterne  * 

24998  rem  ********************* 
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42030  f ora=0tol0step2 

50040  input "Monat m* 

42035  f  =p ( a ) -x : h=p ( a+ 1  >  — y 

50050  inpuf'Tag  " ; t* 

42040  xx=f*f+h*h 

50060  a*=t*+"  .  "+m*+"  .  "+j* 

42050  ifxx<xmthenxm=xx:zp=a 

50070  f ora=ltolen (a*> 

42060  ifxx=0thena=12 

50080  poke900+a,asc (mid* (a*,a, 1 ) ) 

42070  next 

50090  poke900,a 

42080  n*=p*(zp/2) snl*="  ":n2*="  " 

50100  next 

42090  ifxx=0goto45000 

50110  t*=lef t*(ti*,4> 

44000  xp=xm 

50120  prinfäSUhrzeit  HHMM" 

44010  fora=0toil 

50130  printtab (8)t* 

44015  f=z7.(a)-x:h=z7.(a+i2)-y 

50140  print"M"tab (6) ; : inputtl*: 

44020  xx=f*f+h*h 

50150  i  f  t*<  >t ltthenti *=r i qht* ( "0"+t l*+"0 

44030  if xx<xmthenxm=xx : z=a 

0"  ,6) 

44040  ifxx=0thena=i2 

50160  a*=" “ 

44050  next 

50170  f ora=0topeek (900) 

44060  x=p (zp) : y=p (zp+1 > 

50180  a$=at+chr* (peek (900+a) ) 

44070  if xp=xmgoto45000 

50190  next 

440B0  x=z'/.(z)  :  y=z7.  <z+i  2) 

50200  i l=124s i2=125i i3=22tf=l 

44090  reset60000+z*10 

50210  pi =Ks  p 1 =pi / 180t  p2=180/pi : c=360 

44100  readre,de,n$,d 

50220  dimz*(i3,l)  ,z(i3,l>  ,p(ll)  ,z7.(2*i2> 

44110  nl*=z* (d , 1 ) t n2*=z* (d ,0) 

50300  print"B" 

44120  if p=134thenz l=z : z=d : gosub2100: goto 

50301  printtab  (11 )  "'S  1 - 1  " 

48060 

50302  printtab  (11)  "TS  1  Sternenhimmel  1  " 

45000  gosub2000 

50304  printtab  (1 1  1 '"D  1  1  " 

45010  hv=hn: vv=vn: gosub500: goto40000 

50310  prinfällBreite  90  (noerdl)  bis  -9 

47000  n*=g*snl*= . n2*="  " 

0  (suedl . > " 

47010  gosub340: gosub360 

50320  print "Laenge  1B0  (westl . )  bis  -180 

47020  getg*: i f g*=" "goto47020 

(oestl . ) ” 

47030  if asc (g*) =20thengosub600: goto47020 

50330  pri nt "ElVor gegeben  sind  die  Werte  v 

47040  ifasc(g*)=13goto47060 

on  Hamm  und  die  heutige  Zeit. SCI" 

47050  n*=n*+g*:gosub350:goto47020 

50340  print"Breite  "52s  print "JR"tab  ( 1 

47060  p=0: z=— 1 

0) ; : inputb 

47070  f ors=0to5 

50350  if abs (b) >=90then50340 

47080  if place (n*,p* (s) ) thenz=s: s=5 

50360  print"Laenge  "  ; -8:  print  "i!l"tab 

47090  next 

( 10) ; : inputl 

47100  if z<0goto48000 

50370  if abs (1 ) >180then50360 

47110  hv=hn:vv=vn 

50380  sb=sin (b*pl ) s cb=cos (b*p 1 ) 

47120  x=p(2*z) :y=p(2*z+l> 

50390  print"Jahr  "right* (a*, 4) 

47130  ni*=p*<z> sn2$="  " 

47140  i -f x=0goto400 

50400  print“W"tab ( 10) ; s input j 

47150  gosub500:goto40000 

504<_0  m=int  ( val  (mid#  (a*,  len  (str*  <t ) )  +2,2 

48000  fors=0toi3 

) )  ) 

48010  i f pl ace (n* ,  z* (s,0) ) thenz=ss  s=i3 

50430  print"Monat  "m 

48020  ifplace(n*,z* <s,l> ) thenz=ss s=i3 

50440  print":«)"tab  ( 10)  ;  :  inputm 

48030  next 

50450  if m>12orm< lthen50440 

48040  ifz<0goto49000 

50460  print "Tag  "jt 

48050  zl=-l 

50470  print "W’tab ( 10) ; s i nputt 

48060  al=z  <z ,1) :  a2=a 1 +z  <z,0) 

50480  if t< lort>31then50470 

48070  i f  z 1 >=0goto4B 1 20 

50490  wz =i nt (val (ti *) / 100) -100 

48080  fora=altoa2 

50495  if wz< 100thenwz=wz+2400 

48090  ifz7.(a)thenzl=a:a=a2 

50500  print " Wel tzei t  hhmm" 

48100  next 

50505  printtab ( 12) r i ght* (str* ( wz ) ,4) 

48110  if z l<0thennl*=z* (z , 1 >  s goto400 

50510  print"W"tab ( 10) s  s inputwz*: wz=val (w 

4B120  f =0! hv=hns vv-vn 

z*> /100 

48130  nl*=z*  (z  ,  1 )  :n2*=z*  (z  ,0) 

50520  ifwz<0orwz>24goto50510 

48140  x=z7.(zl>  :y=z7.(zl+i2>  :gosub500 

50530  zt=i nt (wz ) +fr ac ( wz )/. 6 

48150  f ora=altoa2 

50600  i=m<3 

48160  x=z7.  (a) 

50610  k=t+i nt  (  ( 153*m-l l*i -162) /5) +i nt ( <1 

40170  if«thenplotM,27.<a<12)  ,f 

4<b  1  * J 1  )  /4)  +  (j>=0)*3öö 

4B1B0  next 

50620  if k>577736thenk=k-int ( (int ( ( j+i ) /I 

48190  f=l-f 

00)  *3-5)  /4> 

48200  iff=lgoto4B150 

50630  ta=k-693596: tg=k-71 lB5B+zt/24s i=ta 

48210  getg*:p=asc(g*+chr*(0) ) 

/36525 

48220  i f pgoto40020 

50640  e=23 . 452294-i *.01 3 125-i *i * 1 . 639e-6 

48240  f ora=ltol000*f +  10s  next 

+i*i*i*5.02Be-7 

48250  goto4B150 

50650  es=sin (e*pl ) sec=cos (e*pl ) 

49000  reset60000 

52000  rem  **  funktionen  definieren  ** 

49010  f ors=ltoi 1 

52010  rem  **  arcsin  ** 

49020  readre,de,st,a 

52020  deffnas(x)=atn(x/sqr (l-x*x) ) 

49030  ifplace(n*,s*)thenz=s:s=i2 

52030  rem  **  arccos  ** 

49040  next 

52040  deffnac(x)=pi/2-atn(x/sqr (l-x*x) ) 

49050  i f z<0thenhn=x+19: vn=y+46: goto450 

52050  rem  **  modulo  ** 

49060  if  z7.  (z  )  =0thennl*=s*s  goto400 

52060  def f nmo (x ) =x-int (x/c) *c 

49070  hv=hmvv=vn 

54000  rem  **  zeit  ** 

49080  x=z7.(z)  :y=z7.(z+i2) 

54010  wz*=mid* (str* (int (f rac (wz ) *100+.  5) 

49090  n*=s*snl»=z*(a, 1) sn2*=z*(a,0) 

)  ,2) 

49100  gosub500: goto40000 

54020  wz*=right*("0"+wz*,2> 

49996  rem  ******************** 

54030  wz*=right* ( "  "+str* (i nt (wz ) ) .3) +" : 

49997  rem  *  programmbeginn  * 

"+WZ* 

49998  rem  ******************** 

54040  1 o=int (1/15)*15 

50000  csetl 

50010  i f peek  <900) >0andpeek (900) < 1 lthen50 

50020  print"ifcHeutiges  Datum" 

50030  inpuf'SUahr  ";j* 

50035  j*=" 19"+r i ght* ( j* ,  2) 
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54050  oz=fnmo(zt*15-lo>/15 

60250  data305. 6 , 40. 3, schedi r , 4 

54060  oz*=right*("  "+str * ( int (oz ) ) ,3) +ri 

60260  data296. 2,45.1,cyg4,4 

ght*(wz*,3) 

60270  data292.7,2B.0,albireo,4 

54200  rem  aries 

60280  data302. B,-0. 8, aql 1 ,5 

54210  ar  =z  t*360. 9B5647/24-*-f  rac  <  ta/  1461 )  * 

60290  data297. 7 , 08. 9,atair,5 

1440. 02509 

60300  data296.6,10.6,aql3,5 

54220  ar=ar+int (ta/ 1461 >*.0307572+99. 201 

60310  data292. 0 , 03.5 , aql 4 , 5 

0973 

60320  data286. 6, -4. 9, aq 15, 5 

54230  ar=fnmo(ar) 

60330  data2B6. 4, 13. 9, aq 16, 5 

54300  rem  daten  Sternbilder 

60340  data284. 7 , 32.7 , 1 yr 1 ,6 

54310  reset62000 

60350  data283. 0 , 37. 0 , X yr2,6 

54320  f ora=0toi 3 

60360  data282. 5,33.4 , 1 yr 3, 6 

54330  readzi (a,0> ,z*<a,l),z(a,0),z(a,l> 

60370  data280. 2 , 38.8 , 1 yr 4 , 6 

54340  next 

60380  data279. 2 , 3B. 8 , wega ,6 

54350  i f whgoto56000 

60390  data265. 6,-39. 0,scol ,7 

55000  rem  *»  anlei tung  ** 

60400  da ta264. 3,-43. 0,sco2,7 

55010  print"~fc1Dieses  Programm  zeichnet  e 

60410  data263. 4,-37. 1 ,sco3,7 

ine  Sternen-" 

60420  data262. 7 ,—37 . 3 , sco4 , 7 

55020  print "karte  mit  der  Sonne,  dem  Mon 

60430  data252 . 5 , —34 . 3 , sco5 , 7 

d,  den" 

60440  data249. 0, -28. 2,sco6,7 

55030  print "Planeten  und  den  Fixsternen. 

60450  data247 .3,-26. 4 .antares, 7 

": print 

60460  data241 .4,— 19.8,acrab,7 

55040  print"Die  Namen  der  Sterne  oder  de 

60470  data240. 1 ,-22. 6,sco9,7 

ren  " 

604B0  data239. 7 ,—26. 1 , scol 0 , 7 

55050  pri nt "Standorte  koennen  wie  folgt 

60490  data228. 9 ,33. 3 , bool ,8 

gesucht" 

60500  data225. 0 ,41. 0 ,boo2,8 

55060  pri nt "werden: print 

60510  data221 .2,27.1 ,boo3,8 

55080  print"Mit  den  Cursoi — Tasten  das  Kr 

60520  data218. 0 , 38. 3 ,boo4 , B 

euz  aut " 

60530  data218. 0 , 30. 5,boo5 ,8 

55090  prinf'oder  in  die  Naehe  des  Sterne 

60540  data213. 9 ,19.2, ar ktur , 8 

s  fuehren" 

60550  data201.3,-11.2,spika,9 

55100  print"und  -fl  druecken.  "  :  pr  i  nt 

60560  datal98. 0,  -7.5,vir2,9 

55110  print "Wenn  das  ganze  Sternzeichen 

60570  datal 95. 5 ,  11.0,vir3,9 

gesucht " 

60580  data 193. 9,  3.4,vir4,9 

55120  print"wird,  dann  f3  druecken.  ":  pri 

60590  datal90. 0,  -1.0,vir5,9 

nt 

60600  datalB5.0,  0.0,vir6,9 

55130  print"Wenn  der  Name  oder  ein  Teil 

60610  datal77 . 0 ,  2.0,vir7,9 

des  Namens" 

60620  datal91.9, —59. 7, er ul ,10 

55140  print"eines  Sterns  oder  Sternbilde 

60630  datal 87 . B ,— 57. 1 ,cru2 ,10 

s  eingegeben";  64CR  Ofl 

60640  datalB6. 7 ,-63. 1 ,cru3, 10 

55150  print"wird,  geht  das  Kreuz  alleine 

60650  datal83. 8,-58. B,cru4, 10 

auf  den" : print"Stern" 

60660  datal77. 3, 14. 5,denebola, 1 1 

55160  print"Bei  einem  Sternbild  blinken 

60670  data 168. 6,15.4,1 eo2 ,11 

die  dazu-" 

60680  datal 68 . 5 , 20 .5,1 eo3 ,11 

55170  print"gehoerigen  Sterne. print 

60690  data 155. 0 , 19. 9, leo4 ,11 

55180  print"Weiter  =  Taste  druecken!"; 

60700  datal52. 1,12.0, regulus.il 

55200  pake 198 ,0: wai t 19B , 1 

60710  data 151 .8,16.8, 1 eo7 ,11 

56000  gosub  1000: rem  bildschirm 

60720  data 146. 5 ,23. 8, 1 eo6 ,11 

56010  gosub 10000: rem  sonne  mond 

60730  datal 16. 3,28. 0, pol lux , 12 

56020  gosub20000: rem  planeten 

60740  datall3.7,31. 9, kastor ,12 

56030  gosub25000: rem  fixsterne 

60750  datal01.3,12. 9 ,gem3 ,12 

56040  gosub  5000: rem  kreuz 

60760  datal01 . 0 , 25. 1 ,gem4 ,12 

56050  goto40000 

60770  data  99. 4 , 16. 4 , gem5 , 12 

57000  rem  *»  hardcopy  ** 

60780  data  95. 7 , 22. 5 ,gem6 , 12 

57100  copy 

60790  datal 1 1 . 0,-29. 3, cmal , 13 

57110  goto40000 

60800  datal07. 1 ,-26.4,cma2, 13 

5B000  rem  **  neustart  *# 

60810  data  104 . 7 , -29. 0,cma3, 13 

SB0 1 0  nrmi cn*t 1 a mob  off  liwh-1 

60820  datalBl .3,— 16. 7, sirius, 13 

58020  goto50300 

60830  data  98. 2 , -18. 0 ,cma5 , 13 

60000  rem  **  daten  fixsterne  ** 

60840  data90. 0 ,37. 2 , aur 1,14 

60010  data037.B,B9. 3, polaris, 0 

60850  data89. 9 , 45.0 , aur 2 ,14 

60020  data269. 8 ,86. 0 , umi 2,0 

60860  data79. 2 , 46. 0 ,capel 1 a , 14 

60030  data252 . 5,82.2 , umi 3,0 

60B70  data75. 5,43.8, aur 4 ,14 

60040  data246. 3 , 75. 5 , umi 4 , 0 

60880  data74. 3,33. 2, aur 5, 14 

60050  data238. 5 , 78. 0 , umi 5 , 0 

60890  data8B.B,  7. 4 ,betei geuze , 15 

60060  data230. 2 , 7 1 . 8 ,pher kad , 0 

60900  data86. 9 , -9. l,ori2,15 

60070  data222 .7,74.2, koch ab , 0 

60910  data85. 2,-2. 0,ori3, 15 

60080  data206. 9,49. 3,benetnasch , 1 

60920  dataB4. 1 , -1 . 2 , or i 4 , 15 

60090  data201.0,54.9,mizar,l 

60930  dataS3. 0,-0. 3 , or i 5 , 1 5 

60100  data  193. 5 , 56. 0,alioth,l 

60940  dataB1.3,  6. 4 ,bel 1 atr i x , 15 

60110  data  183. 9 ,57 . 0 , megr ez , 1 

60950  data78.6,-8.2,rigel , 15 

60120  datal78.5, 53. 7 , phekda , 1 

60960  data59. 5,40.0, perl , 16 

60130  data  165. 9 ,61 . 8 , dubhe , 1 

60970  data58. 5,31.9 ,per2 ,16 

60140  datal65. 5,56. 4,merak , 1 

60980  data55. 7 ,47 . 8, per 3, 16 

60150  data28. 6,63. 7 , cas 1 , 2 

60990  data51. 1 , 49. 9 , al geni b , 16 

60160  data21 . 5,60.2 , cas2 , 2 

61000  data47 . 0 , 4 1 . 0 , al gol ,16 

60170  data  1 4 . 2,60. 7 ,cas3, 2 

61010  data46. 2 ,53. 5, per6 ,16 

60180  datal0. 1 , 56.5 , schedi r , 2 

61020  data31 . 0 , 42. 0 , al amak ,17 

60190  data2. 3,59. 2,caph ,2 

61030  datal7. 4,35. 6 ,mirach , 17 

60200  data  3. 3 , 15. 2 , al qeni b , 3 

61040  data  9. 8,31 . 9 , and3, 1 7 

60210  data346.2, 15.2,markab ,3 

60220  data345. 9 , 28. 1 , scheat , 3 

60230  dataal 1 . 6,34. 0 ,cyg 1 ,4 

60240  data310. 4 , 45. 3 , deneb , 4 
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61050  data  2. 1 , 29. 1 ,si rrah , 17 
61060  data354. 8,77. 6,cepl ,  18 
61070  data342. 5,66. 0 , cep2 ,18 
61080  data322. 2 , 70.6 ,alfrik,18 
61090  data319. 6,62. 6,alderamin , 18 
61100  data269.2,51.5,dral,19 
61110  data262. 6 ,52. 3 ,dra2 ,19 
61120  data231 .2, 59. 0 ,dra3 ,19 
61130  data246.0,61.5,dra4,19 
61140  data257. 2,65.7 , dra5 , 19 
61150  data288. 1 ,67. 7 ,dra6, 19 
61160  data31 . 8,23. 5,hamal ,20 
61170  data28. 7 ,20. 8,ari2,20 
61180  data84 .4,21 . 2, taul ,21 
61190  data81 . 6 , 28. 6,elnath ,21 
61200  data69. 0 , 16. 5 , al debaran ,21 
61210  data5S. 8,12.5 , tau4 ,21 
61220  data56. 9,24. 1 ,ple jaden ,21 
61230  datall4.B,5.2,prokyon,22 
61240  datalll. 8,0.3, cmi2, 22- 
62000  rem  **  daten  Sternbilder  ** 

62010  dataursa  mi nor , kl  ei ner  wagen, 6,1 

62020  dataursa  mai ar , grosser  wagen, 6, 8 

62030  datacassi opei a , kassi opei a , 4 , 15 

62040  datapegasus, pegasus, 2, 20 

62050  datacygnus,schwan,4,23 

62060  dataaqui 1 1 a , adl er ,5,28 

62070  datal yra , leier ,4,34 

62080  datascorpius,skorpion,9,39 

62090  databootes,bootes,5,49 

62100  datavirgio, Jungfrau, 6, 55 

62110  datacrux , kreuz  sueden,3,62 

62120  dataleo,loewe,6,66 

62130  datagemini ,zwi 1 1 inge ,5 ,73 

62140  datacanis  mai or .grosser  hund,4,79 

62150  dataauriga,fuhrmann,4,84 


62160  dataorion,orion,6,89 

62170  dataperseus, perseus, 5, 96 

62180  dataandromeda,andromeda,3, 102 

62190  datacepheus,kepheus,3, 106 

62200  datadraco,drache,5, 1 10 

62210  dataari es , Widder , 1 , 1 16 

62220  datataurus , stier ,4, 1 18 

62230  datacanis  minor , kleiner  hund, 1,123 

62500  rem  **  daten  planeten  ** 

62510  datamer kur ,4.0923,  31.19,  76.987 
62520  data23.00, .2056,  47.826,7.004,  0.3 
871 

62530  datavenus  ,1.6021,  80.85,131.149 
62540  data  0.76, .0068,  76.410,3.394,  0.7 

233 

62550  datamars  ,0.5240,144.14,335.507 
62560  datal 1 . 00 , . 0934 ,  49. 326, 1 . B50 ,  1.5 

237 

62570  data Jupi ter , . 0831 ,316. 19,  13.839 
62580  data  5. 30 , . 0485 , 100. 1 46, 1 . 305 ,  5.2 
028 

62590  datasaturn ,0. 0335 , 1 58. 36 ,  92.460 
62600  data  5. 50 , . 0557 , 1 13. 51 1 , 2. 486 ,  9.5 
810 

62610  datauranus , 0. 01 17 ,  9B. 38, 170. 173 
62620  data  5.70, .0472,  73.847,0.773,19.1 
823 

62700  rem  **  e  n  d  e  ** 
ready. 
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KREUZWORTRÄTSEL 
SELBER  MACHEN 

Kreuzworträtsel  sind  bei  jung  und  alt  beliebt.  Das  beweisen  die  vielen 
Rätselzeitschriften.  Aber  ein  Kreuzworträtselprogramm  zu  schreiben 
ist  etwas  ganz  anderes,  als  ein  Rätsel  zu  lösen. 


Das  Programm  läßt  kaum  Wünsche  offen.  Der  Bildschirmauf¬ 
bau  ist  genauso  gut  gelöst  wie  die  Druckerausgabe.  Auch  den 
Bedienungskomfort  kann  man  sich  kaum  besser  vorstellen. 

Ein  Kreuzworträtselprogramm  zu  schreiben  ist  eine  knifflige 
Aufgabe.  Nicht  nur  die  für  den  Betrachter  eines  Rätsels  selbst¬ 
verständlichen  Regeln,  wie  das  Kreuzen  von  Worten  senk¬ 
recht  zueinander  und  die  dichte  Vernetzung  von  Wörtern, 
auch  die  Geschwindigkeit  und  der  Komfort  des  Programmes 
spielen  eine  große  Rolle.  Damit  blieb  in  diesem  Falle  nur  der 
Einsatz  von  Maschinensprache  übrig.  Das  Kreuzworträtsel¬ 
programm  besteht  aus  zwei  Teilen.  Einem  Rahmenprogramm 
in  Basic,  sowie  einer  Maschinenroutine,  die  im  Bereich  ab 
$C000/49152  geladen  wird  und  die  die  Schwerarbeit  leistet 
(zirka  30  Wortvergleiche/Sekunde). 

Um  das  Rätselprogramm  nicht  unnötig  mit  der  Eingabe  des 
Wortschatzes  zu  belasten,  werden  die  Wörter  vorher  mit  einem 
Editor  eingegeben  und  bis  zu  255  in  einem  File  auf  Diskette 
abgelegt.  Das  eigentliche  Rätselprogramm  liest  diese  Files 
dann  ein  und  verwendet  sie  im  Rätselfeld.  Trotzdem  ist  die  Ein¬ 
gabe  von  Hand  möglich.  Denn  der  große  Wortschatz  eines 
Menschen  kann  niemals  auf  Diskette  gespeichert  werden. 
Die  Programme 

Bevor  also  die  Erzeugung  eines  Kreuzworträtsels  starten 
kann,  muß  ein  Wortschatz  mit  dem  Lexikon-Editor  eingegeben 
werden  (Listing  2).  Dieses  Programm  hat  vier  Aufgaben: 

a)  Directory  lesen.  Dabei  werden  die  bereits  auf  Diskette  vor¬ 
handenen  Wortschatzdateien  angezeigt. 

b)  Wortdatei  anlegen.  Mit  diesem  Programmteil  können  Sie 
bis  zu  255  Wörter  und  die  zugehörigen  Fragestellungen  ein¬ 
geben  und  diese  dann  auf  Diskette  als  Wortdatei  ablegen.  Eine 
spezielle  Eingaberoutine  (Zeile  1  000  —  1  099)  sorgt  dafür, 
daß  nur  erlaubte  Zeichen  eingegeben  werden.  Es  ist  zum  Bei¬ 
spiel  unsinnig,  ein  Kreuzwort  einzugeben,  das  aus  mehreren 
Teilen  besteht,  wie  etwa  »Level  II  Basic«,  oder  eine  Mischung 
aus  Zahlen  und  Buchstaben,  wie  »C  64«. 

So  können  Sie  sich  also  im  Laufe  der  Zeit  eine  ganze  Biblio¬ 
thek  von  Wortschätzen  aufbauen,  die  beliebig  während  der 
Rätselerzeugung  einzusetzen  sind. 

Eine  Besonderheit  ist  die  Verkettung  von  Dateien.  Sie  kön¬ 
nen  Nachfolgedateien  benennen,  die  im  Rätselprogramm  au¬ 
tomatisch  nachgeladen  werden,  sobald  der  Vorgängerwort¬ 
schatz  erschöpft  ist.  Beispiel:  Sie  wollen  ein  Rätsel  zum  The¬ 
ma  »Computer«  basteln.  Geben  Sie  jetzt  mit  Hilfe  des  Lexikon- 
Editors  den  ersten  Teil  des  geplanten  Wortschatzes  ein  und 
benennen  ihn  mit  »Computer.1«.  Der  Folgewortschatz  soll 
»Computer.2«  sein.  Nachdem  Sie  den  1.  Teil  abgespeichert 
haben,  geben  Sie  den  2.  Teil  ein  und  benennen  den  Nachfol¬ 
ger  mit  »Computer.3«  und  so  weiter.  Wollen  Sie  diese  Kette 
beenden,  wird  einfach  ein  »q«  (Quit)  für  den  Nachfolger  ange¬ 
geben.  Das  Rätselprogramm  bricht  dann  später  an  dieser  Stel¬ 
le  mit  dem  automatischen  Nachladen  ab. 

Bei  dieser  Methode  hängt  die  Qualität  des  Rätsels  entschei¬ 
dend  von  der  Staffelung  der  Dateien  ab,  das  heißt  im  ersten 
File  sollten  lange  Wörter  stehen  und  mit  jedem  Folgefile  die 
durchschnittliche  Wortlänge  abnehmen.  Die  Erstellung  des 
Rätsels  gerät  dadurch  wesentlich  flüssiger,  denn  mit  zuneh¬ 
mender  Dichte  des  Wortfeldes  müssen  die  Wörter  natür¬ 


lich  immer  kürzer  werden,  damit  sie  noch  einzubauen  sind. 

c)  Wortdatei  ändern.  Mit  Sicherheit  tauchen  irgendwann 
falsch  eingegebene  Kreuzwörter  auf,  so  daß  eine  Datei  ver¬ 
bessert  werden  muß.  Unter  diesem  Programmpunkt  kann  da¬ 
her  die  entsprechende  Wortdatei  geladen  und  editiert  werden. 

d)  Abbrechen.  Mit  Verlassen  des  Editors  kann  das  Rätselpro¬ 
gramm  geladen  und  gestartet  werden,  so  daß  ein  fließender 
Übergang  von  der  Worteingabe  zur  Rätselerstellung  möglich 
ist. 

Nun  zum  Kreuzworträtselprogramm.  Wie  schon  gesagt,  be¬ 
steht  dieses  Programm  aus  zwei  Teilen,  einer  Maschinenrouti¬ 
ne  und  dem  Basic-Rahmenprogramm.  Dieses  Rahmenpro¬ 
gramm  (Listing  1)  will  ich  zuerst  beschreiben. 

Nach  dem  Start  beginnt  zunächst  eine  Initialisierungsphase 
(Zeilen  27—39).  In  einem  Unterprogramm  (ab  Zeile  970)  wer¬ 
den  die  Maschinenroutine  für  das  Kreuzworträtsel  und  Treiber¬ 
software  für  den  Drucker  am  User-Port  geladen.  Wenn  Sie  ei¬ 
nen  Drucker  am  lEC-Bus  betreiben,  ist  dieser  Programmteil 
(Zeilen  976+979)  natürlich  nicht  nötig  und  zu  entfernen. 

Im  folgenden  Unterprogramm  zur  Dimensionierung  der  Va¬ 
riable'  und  Definition  einiger  Konstanten  (Zeilen  915—969) 
erfolgt  der  erste  Sprung  in  die  Maschinenroutine  (Zeile  937), 
um  sie  zu  initialisieren. 

Nach  dem  Bildaufbau  (Unterprogramm  ab  Zeile  600),  ist  auf 
dem  Monitor  ein  Kreuzwortfeld  von  20x20  Zeichen  zu  sehen. 
Das  Programm  fragt  jetzt  nach  dem  Startwort,  das  als  erstes 
Wort  im  Feld  eingetragen  werden  muß,  um  der  Maschinenrou¬ 
tine  einen  Kristallisationspunkt  zu  bieten  (Zeilen  34-35).  Ge¬ 
ben  Sie  ein  möglichst  langes  Wort  ein,  das  Sie  zum  Beispiel 
unbedingt  im  Rätsel  verarbeiten  möchten.  Bei  dieser  Eingabe 
findet,  wie  schon  beim  Editor,  ein  Zeichencheck  statt,  der  es 
unmöglich  machen  soll,  unerlaubte  Zeichen  im  Rätselfeld  un¬ 
terzubringen.  Danach  müssen  Sie  sich  zwischen  einer  waage¬ 
rechten  oder  senkrechten  Eintragung  entscheiden,  und  ein 
Cursor  taucht  im  Wortfeld  auf.  Fahren  Sie  wie  gewohnt  mit  den 
Cursortasten  die  gewünschte  Wortposition  an  und  drücken 
die  RETURN-Taste.  Da  es  das  erste  Wort  ist  und  genügend 
Platz  im  Wortfeld  herrscht,  wird  Ihr  Wort  ohne  Protest  sofort 
eingetragen.  Jetzt  noch  schnell  die  zugehörige  Fragestellung 
eingetippt,  und  das  erste  Wort  ist  korrekt  eingetragen. 

Sie  können  dieses  Spiel  beliebig  fortsetzen  und  theoretisch 
das  ganze  Rätsel  auf  diese  Weise  per  Hand  erstellen.  Alle  Ein¬ 
gaben  von  Hand  sind  frei  von  dem  Zwang,  ein  Wort  mit  einem 
anderen  kreuzen  zu  müssen.  Sie  können  Ihre  Wörter  also  be¬ 
liebig  positionieren,  sollte  ein  Wort  allerdings  nicht  passen, 
wird  es  zurückgewiesen  und  der  Handeingabe-Modus  abge¬ 
brochen. 

Regulär  verlassen  Sie  die  Handeingabe,  indem  Sie  anstelle 
eines  neuen  Wortes  ein  »q«  eintippen.  Später  können  Sie  die 
automatische  Rätselerzeugung  jederzeit  unterbrechen  und 
mit  F7  wieder  in  den  Handmodus  zurückkehren. 

Im  Wortfeld  stehen  nun  ein  oder  mehrere  Wörter,  die  als 
Startpunkte  für  andere  Wörter  dienen.  Senkrechte  Eintragun¬ 
gen  sind  weiß  und  waagerechte  gelb  gefärbt. 

Bleibt  nur  die  Angabe,  welcher  auf  Diskette  gespeicherte 
Wortschatz  als  erstes  geladen  werden  soll  (Zeile  37).  Dabei 
können  Sie  sich  mit  »$«  auch  das  Inhaltsverzeichnis  der  Dis- 
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kette  ansehen,  für  den  Fall,  daß  Ihnen  der  Name  eines  Wort¬ 
schatzes  entfallen  ist. 

Nach  erfolgreichem  Laden  des  ersten  Wortschatzes  be¬ 
ginnt  nun  die  automatische  Rätselerzeugung  (Hauptschleife 
Zeile  40-99).  Zunächst  überraschend  schnell  füllt  sich  das 
Wortfeld  mit  zufällig  plazierten  und  gekreuzten  Wörtern.  Dieser 
Vorgang  wird  von  der  Maschinenroutine  gesteuert.  Auf  die  ge¬ 
naue  Arbeitsweise  dieses  Programmteiles  gehe  ich  noch  ge¬ 
sondert  ein.  Links  oben  auf  dem  Bildschirm  erscheint  die  An¬ 
zahl  der  Wörter,  die  bereits  eingetragen  sind  (maximal  255 
sind  möglich)  und  daneben  die  momentane  prozentuale  Größe 
des  noch  zur  Verfügung  stehenden  Wortschatzes  im  Spei¬ 
cher. 

Bei  jeder  Eintragung  wird  die  Liste  der  Kreuzwörter  gekürzt 
und  das  benutzte  Wort  aus  der  Liste  gestrichen.  Dies  ge¬ 
schieht  durch  Vertauschen  der  Stringvektoren  des  zu  strei¬ 
chenden  Wortes  und  des  letzten  Wortes  im  Array  (Zeile 
300—399).  Diese  Methode  wurde  gewählt,  um  die  Bildung 
von  neuen  Strings  im  Speicher  zu  vermeiden  und  der  schreck¬ 
lich  langsamen  Garbage-Collection  aus  dem  Wege  zu  gehen. 

Während  der  Rätselerzeugung  können  Sie  sich  in  Ruhe 
überlegen,  ob  Sie  ein  automatisches  Nachladen  von  Wort¬ 
schätzen  gestatten  wollen  oder  nicht.  In  der  rechten  Bildhälfte 
ist  inzwischen  die  Belegung  der  Funktionstasten  zu  sehen, 
und  mit  der  F6-Taste  schalten  Sie  die  Autolader-Option  ein 
oder  aus.  Erscheint  »Aus«  im  F6-Tastenfeld,  ist  das  Nachladen 
gesperrt. 

Die  Maschinenroutine  sucht  derweil  ständig  nach  passen¬ 
den  Stellen  im  Wortfeld.  Dieser  Vorgang  kann  im  Prinzip  endlos 
sein,  da  irgendwann  natürlich  kein  geeignetes  Wort  mehr  zu 
finden  ist.  Aus  diesem  Grund  hat  das  Programm  eine  »Geduld- 
Schwelle«,  eine  Anzahl  von  Suchversuchen,  innerhalb  derer 
ein  passendes  Wort  gefunden  werden  muß.  Ist  die  Versuchs¬ 
zahl  ohne  Erfolg  abgelaufen,  geht  das  Programm  davon  aus, 
daß  der  Wortschatz  nicht  mehr  ausreicht.  Diese  »Ge¬ 
duld-Schwelle«  können  Sie  in  Zeile  964  selbst  bestimmen. 

Bevor  allerdings  in  der  obersten  Bildzeile  die  Meldung 
»Wortschatz  ungenügend«  erscheint  (Zeile  64/Unterpro¬ 
gramm  110-158),  hebt  das  Programm  noch  die  »Blausperre« 
auf  (Zeile  66).  Dieses  Flag  hat  dem  Maschinenprogramm  bis¬ 
her  mitgeteilt,  daß  nur  dann  eine  Eintragung  erlaubt  ist,  wenn 
dabei  auch  ein  blaues,  unbesetztes  Feld  abgedeckt  wird.  Eine 
Maßnahme,  um  das  Rätsel  möglichst  dicht  zu  packen.  Ab  so¬ 
fort  ist  also  auch  das  Einpassen  eines  Wortes  nur  auf  besetz¬ 
ten  Feldern  möglich.  Läßt  sich  auch  jetzt  kein  Wort  mehr  fin¬ 
den,  erscheint  endgültig  der  Hinweis  auf  mangelnde  Wort¬ 
auswahl.  Wenn  Sie  das  »Autoladen«  zugelassen  haben,  wird 
nun  der  Folgewortschatz,  falls  vorhanden,  gelesen  und  das 
Spiel  beginnt  von  neuem.  Selbstverständlich  ist  auch  das  La¬ 
den  von  Wortdateien  vor  Ablauf  der  »Geduld-Schwelle«  mach¬ 
bar.  Dazu  dient  die  Fl-Taste.  Aber  Vorsicht,  auf  die  Gefahr,  daß 
Sie  einen  bereits  verbrauchten  Wortschatz  noch  mal  laden, 
müssen  Sie  schon  selbst  achten. 

Es  dauert  gar  nicht  so  lange,  dann  ist  das  Wortfeld  so  dicht 
gepackt,  daß  der  Maschinenroutine  keine  Eintragung  mehr 
gelingt.  Jetzt  sind  Sie  gefordert,  und  mit  der  F7-Taste  wählen 
Sie  die  Handeingabe  an.  Genau  wie  bei  der  Eintragung  der  er¬ 
sten  Startwörter  können  Sie  Ihre  »Lückenfüller«  positionieren 
und  die  Fragestellung  dazu  eingeben. 

Zufrieden  mit  Ihrer  Arbeit  (hoffentlich!)  bleibt  nur  noch  der 
Ausdruck  des  Rätsels.  Mit  F4  wird  er  gestartet.  Das  Unterpro¬ 
gramm  für  die  Druckausgabe  nimmt  im  Programm  den  weitaus 
größten  Platz  ein  (Zeile  740-914).  Es  ist  für  einen  Epson 
RX-80  ausgelegt,  der  mit  Hilfe  spezieller  Treibersoftware  auch 
CBM-Sonderzeichen  druckt.  Dazu  muß  eine  unübliche  Gerä¬ 
teadresse  (6)  angegeben  werden  (Zeile  761  und  900).  Soll¬ 
ten  Sie  also  einen  CBM-grafikfähigen  Drucker  am  lEC-Bus  be¬ 
treiben,  tauschen  Sie  diese  Adresse  gegen  die  gewohnte  »4« 
(im  Listing  schon  geändert). 


Auch  die  Druckerinitialisierung  ist  von  Drucker  zu  Drucker 
verschieden  (Zeilen  754—758).  Achten  Sie  darauf,  daß  Ihr 
Drucker  hier  folgende  Einstellung  erhält: 

—  Zeilenabstand  =  0 

—  CBM-Grafikmodus 

—  Startposition  des  Druckkopfes  =  Ir  (Linker  Rand,  kann  in 
Zeile  946  geändert  werden). 

Für  den  Ausdruck  der  Fragestellung  wird  der  RX-80  im  Eng¬ 
schriftmodus  versetzt,  um  Platz  zu  sparen  (Zeile  824—827). 
Auf  diesen  Effekt  können  Sie  natürlich  verzichten,  müssen 
dann  aber  die  Zeilenlänge  (cz,  in  Zeile  948)  ändern,  da  der 
Ausdruck  vom  Programm  mit  Randausgleich  versehen  wird 
(Zeile  847  —  889). 

Nun  wie  versprochen  zum  Maschinenprogramm,  kurz  ge¬ 
nannt  »Such— obj«  (Listing  3).  Diese  Routine  liegt  im  Bereich 
$0000/49152,  wo  sie  gut  gegen  Überschreiben  durch  Basic 
geschützt  ist.  Der  Einsprung  erfolgt  über  den  USR-Vektor  (de¬ 
finiert  in  Zeile  931  bis  932),  das  heißt  es  findet  eine 
Parameterübergabe  zwischen  Basic  und  Maschinenroutine 
statt.  Basic  übergibt  in  »dl«  die  Anzahl  der  Versuche,  die  die 
Routine  durchlaufen  sollen  (Zeile  44).  Mit  der  Rückkehr  aus 
der  Routine  wird  der  Variablen  »u«  ein  Wert  zwischen  1  und  4 
zugewiesen.  Aus  dem  Wert  von  »u«  kann  also  auf  die  Ursache 
für  den  Abbruch  der  Routine  geschlossen  werden: 

—  u  =  1;  eine  Taste  ist  betätigt  worden. 

—  u  =  2;  die  Suche  nach  einem  passenden  Kreuzwort  war 
vergeblich. 

—  u  =  3;  ein  Wort  wurde  gefunden  und  in  das  Wortfeld  einge¬ 
tragen. 

—  u  =  4;  die  maximale  Anzahl  (255)  von  eingetragenen 
Kreuzwörtern  ist  erreicht;  keine  weitere  Eintragung  möglich. 
Das  Rahmenprogramm  kann  jetzt  entsprechend  reagieren  und 
zum  Beispiel  im  Falle  u  =  3  das  benutzte  Wort  aus  der  Wortli¬ 
ste  streichen.  Im  Falle  einer  Eintragung  (von  Hand  oder  auto¬ 
matisch)  wird  das  Wort  nicht  nur  in  den  Bildspeicher  einge¬ 
setzt,  es  werden  noch  weitere  Informationen  abgelegt: 

a)  Eintragung  im  »Wortbeginn/-ende«-Speicher  (50176  bis 
50575);  hier  wird  vermerkt,  ob  ein  Rätselfeld  den  Start-  oder 
Endpunkt  eines  Kreuzwortes  repräsentiert.  Der  Speicher  ist, 
wie  die  folgenden  auch,  in  20  Zeilen  mit  je  20  Positionen 
(Speicherstellen)  aufgeteilt.  Das  linke  Halbbyte  (4  Bits)  einer 
Speicherstelle  trägt  die  Informationen  über  senkrechte,  das 
rechte  Halbbyte  über  waagerechte  Start-/Endpositionen.  Das 
1.  Bit  im  Halbbyte  wird  für  Endpunkte  gesetzt,  das  3.  Bit  für 
Startpunkte. 

Diese  Informationen  werden  später  bei  der  Ausgabe  des  Rät¬ 
sels  auf  dem  Drucker  benötigt,  um  an  den  richtigen  stellen  die 
Nummer  der  zugehörigen  Fragestellung  eintragen  zu  können. 

b)  Eintragungen  im  »Senkrecht«-Speicher  (50576  bis 
50975);  in  dieser  Speichermatrix  werden  die  Ordnungsnum¬ 
mern  der  Fragestellungen  für  senkrechte  Rätselwörter  abge¬ 
legt.  Bei  der  Druckausgabe  wird  diese  Matrix  abgefragt  (Zeile 
773  bis  777),  um  die  Nummer  der  Fragestellung  im  entspre¬ 
chenden  Startfeld  einzusetzen. 

c)  Eintragung  im  »Waagerecht«-Speicher  (50976  bis  51375), 
wie  unter  b)  Zeile  796  bis  800). 

Um  die  Speicherinhalte  vor  dem  Start  des  Rätselprogramms 
zu  löschen,  springt  man  die  Routine  mit  »sys  50016«  an  (Zeile 
937). 

Nun  zur  Arbeitsweise  der  Routine  während  der  automati¬ 
schen  Rätselerzeugung.  Zunächst  muß  das  Maschinenpro¬ 
gramm  erst  einmal  wissen,  ob  es  wegen  einer  Handeintragung 
angesprungen  wurde  oder  zur  automatischen  Wortsuche.  Da¬ 
zu  liest  die  Routine  die  Speicherstelle  26  aus.  Ist  das  Ergebnis 
Null,  wird  in  den  Automodus  verzweigt.  Andernfalls  wird  in  26 
die  Länge  des  von  Hand  eingetragenen  Wortes  übergeben 
(siehe  Zeile  662  bis  663).  Die  Routine  braucht  dann  nur  den 
Paß  des  Wortes  zu  überprüfen  und  bei  korrekter  Eintragung 
ins  Basic  zurückzukehren.  Paßt  das  Wort  allerdings  nicht,  ver- 
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fällt  die  Routine  in  den  Automodus.  Das  Maschinenprogramm 
durchläuft  im  Automodus  eine  Schleife,  die  zunächst  durch 
Auslesen  des  Rauschgenerators  im  Soundchip  . ein  Wort  aus 
dem  Wortschatz  per  Zufall  bestimmt.  Dann  erfolgt  auf  die  glei¬ 
che  Weise  die  Auswahl  eines  Startpunktes  im  Bildspeicher.  Ist 
dieser  Punkt  nicht  geeignet  für  eine  Eintragung,  wird  Zeile  für 
Zeile  des  Wortfeldes  nach  einer  Alternative  gesucht.  Im  Falle 
eines  Treffers  startet  der  Wortvergleich.  Das  gewählte  Wort 
wird  mit  dem  Inhalt  des  Bildspeichers  auf  Übereinstimmung 
geprüft.  Paßt  es  nicht,  kommt  das  nächste  Wort  aus  dem 
Wortschatz-Array  an  die  Reihe.  Bei  Erfolg  kehrt  »Such«  ins  Ba¬ 
sic  zurück,  wenn  nicht,  beginnt  die  Schleife  von  neuem. 

Damit  der  Zugriff  auf  das  Array  klappt,  muß  es  nur  als  erstes 
im  Basic- Programm  definiert  worden  sein  (Zeile  925).  »Primi¬ 
tiv«  werden  Sie  vielleicht  anmerken.  Richtig,  aber  Computer 
sind  nun  mal  (sehr)  schnelle  Idioten. 

(Gert  Büttgenbach/og) 


15 

PRINT" <CLR>"j 

<209> 

16 

PRINT"  ■ff.*.*.*.*.*.*.*.*.*.*.*.*.*.*.**.*.*.*.*.*.*.*.*.**.*.*'? 

<081  > 

17 

PRINT"d<REUZWORTRAETSEL  VERSION  1 . Ac; 

<221  > 

18 

PRINT"^{28SPACE>= 

<033> 

19 

PRINT"— (C)  BUETTGENBACH {2SPACEIHH , 30. 5. 

84  — 

<  173> 

20 

PRINT"  y.*.*.*.*.*.*.*.*.*.*.*.*.*******.*.*.*******v 

<066> 

22 

1 

<254> 

23 

s 

<255> 

24 

REM"  ********  HAUPTPROGRAMM  ******** 

<066> 

25 

REM"  ******************************* 

<011> 

26 

: 

<  002  > 

27 

REM"  .*.*.*.*.*.*.*.  VORBEREITUNGEN  .*_*_**_*_*_*_* 

<004  > 

2B 

CLR 

<  142> 

29 

GOSUB  970  : REM"  ROUTINEN  LADEN 

<100> 

30 

GOSUB  915  : REM"  VORBEREITUNGEN 

<049> 

32 

GOSUB  600  : REM"  BILD  AUFBAUEN 

<  187> 

33 

: 

<009> 

34 

T*="£T ARTWORT”  : REM"  1 . WORT 

<251  >C 

35 

NR=1 3  GOSUB  654  sREM"  EINTRÄGE''! 

<253> 

36 

: 

<012> 

37 

GOSUB  700  : REM"  WORTSCHATZ  EINL;  SEN 

< 088  > 

38 

POKE  532B0 , 0 : POKE  53281,0 

<  166> 

39 

: 

<015> 

40 

REM"  ********  HAUPTSCHLEIFE  ******** 

<  009  > 

42 

: 

<01B> 

44 

POKE  142.BS: POKE  26 , 0: U=USR < DL) 

<  127> 

46 

: 

<022> 

47 

ON  U  GOTO  50,64,70,80 

<052  > 

48 

: 

<024> 

49 

REM"  *«.».»_».  TASTE  WAR  GEDRUECKT  .*.«».».». 

<  197> 

50 

GET  F* 

<044  > 

51 

IF  F*=  "  {F7  ) " THEN  GOSUB  650: GOTO  59 

<  161  > 

52 

IF  F*="{F4)"THEN  GOSUB  740:GOTD  59 

<  155> 

53 

IF  F*=" {F1J "THEN  GOSUB  700:GOTO  60 

<  200  > 

54 

IF  F*=“{F6)"THEN  GOSUB  450.-GOTO  60 

<  004  > 

33 

IF  F*— {FB)"THEN  BÜSUB  M92:UUIU  59 

<2*/> 

56 

IF  F*="  {F2VTHEN  GOSUB  0B7:GOTO  59 

<  006  > 

57 

IF  FG>0  THEN  44 

<  1 90  > 

58 

GOTO  50 

<012> 

59 

PRINT " {HOME 1 " ; LL*; LL* 

<069> 

60 

POKE  53280,0 : POKE  53281 , 0: GOSUB  337 

<050> 

61 

IF  FG>0  THEN  44 

<  1 94  > 

62 

GOTO  50 

<016> 

63 

c 

<039> 

64 

REM"  ***_»  SUCHE  WAR  VERGEBLICH  .*.*.*.** 

<  044  > 

65 

IF  BS=0  THEN  GOSUB  110 

<031  > 

66 

BS=0: GOTO  44 

<004> 

69 

K 

<045> 

70 

REM"  £*Jt  EIN  WORT  WURDE  GEFUNDEN  »-»-* 

<  103> 

71 

W=PEEK (25) 

<1B5> 

72 

FS*(NR)=STR*( (PEEK ( 140) =0) >+FW*(W) 

<079> 

73 

GOSUB  300 : NR=NR+ 1 : I F  FG>0  THEN  44 

<  163> 

75 

s 

<051  > 

76 

PRINT" {HOME  > " ; LL* ; " {HOME  > ” ; T AB  < 1 7  > ; 

<237> 

77 

PRINT" {CYAN , RVSONJÜORTSCHATZ  ERSCHOEPFT 

!  " 

<163> 

78 

GOSUB  337: GOTO  50 

<029> 

79 

: 

<055> 

B0 

REM"  ±*±  MAX.  ORDN. ZAHL  ERREICHT  Ä£Ä 

<044> 

81 

PRINT" {HOME) " ; LL*; " {HOME, CYAN, RVSONJÄAE 

TSEL  FERTIG: {RVOFF)"; 

<012> 

82 

PR I NT " {2SPACE )flUSDRUCKEN  M I T {SPACE , RVSO 

N)AE_TUXM{RVOFF)" 

<229> 

83 

WA IT  203 , 64: WA IT  203,63 

<002> 

*******  UNTERPROGRAMME  ******* 
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B4  PRINT" {HOME)“ ; LL$; LL$: GOSUR  740 

85  GOTO  95 

86  : 

B7  REM"  .«■»-»-«■»■*.  RAETSEL  LOESCHEN  ******* 

88  F*="£AETSEL  LOESCHEN" : GOSUB  4000 

89  IF  F*< >" J "THEN  RETURN 

90  RUN  30 

91  ! 

92  REM"  .*-*.*-*■*.  PROGRAMM  ABBRECHEN  ■*_*.*-»_*_*. 

93  F*="flBBRECHEN"s GOSUB  4000 

94  IF  F*<  >" J "THEN  RETURN 

95  GOSUB  500: REM"  PROGRAMM-ENDE 

96  : 

97  END 

98  s 

99  : 

100  REM 
102  REM 
104  : 

106  I 

110  REM 
112  REM 

114  : 

115  PRINT" {HOME , CYAN > " 5  LL*  J " <HDME > " | T AB ( 1 8 

>; 

116  PRINT" {RVSONJHDRTSCHATZ  UNGENUEGEND" 

117  GOSUB  337 

118  IF  RIGHT* (NF*, 1)="Q"THEN  154 
120  s 

122  DL=INT (DM/3) 

124  s 

125  IF  AV=0  THEN  AV=lsGOTO  154 

126  IF  LS=0  THEN  154 

127  : 

128  REM"  .*.*.*  FOLGE-WORTSCHATZ  LADEN  .*.*.* 

130  POKE  53280 , 2 :  POKE  53281,2 

132  PR I NT " {HOME  > " 5  LL* j " {HOME , CYAN  JÜDRTSCHA 
TZ  "i 

133  PR I NT " {R VSON  > " ; NF*  5 " {RVOFF , SPACE  >W I RD 
GELADEN" 

136  F*=NF*: GOSUB  713 
13“  ''OKE  53280,0: POKE  53281,0 
13B  3 

154  RETURN 
156  : 

158  : 

300  REM"  WORTLISTE  KUERZEN 
304  3 

307  SA=PEEK  (  47 )  +PEEK  ( 48 )  *256+7 
30B  3 

315  GOSUB  350  3  REM"  WOERTER  KUERZEN 

316  3 

320  SA=SA+772 

322  GOSUB  350  : REM"  FRAGEN  KUERZEN 
324  : 

334  FG=FG-1 3 POKE  2,FGsREM“  FELD  KUERZEN 

336  : 

337  PRINT"  {HOME.WHITEVjNRs  INT  (FG/OG*100>  s 
" {LEFT , SPACE  >% {2SPACE  > " 

338  : 

341  RETURN 

342  : 

344  3 

349  REM"  WORTVEKTOREN  VERTAUSCHEN 

350  X=SA+FB*3: Y=SA+W*3 
354  POKE  Y , PEEK  <  X  > 

356  POKE  Y+l ,PEEK (X+l ) 

358  POKE  Y+2,PEEK(X+2> 

360  : 

397  RETURN 

398  s 

399  3 

450  REM"  AUTOLADEN  EIN/AUS 
452  REM“  -»«»«* «»  «-»«»«»»» «  «  « «*  *  *  » «»«»*.. 

454  : 

456  IF  LS=0  THEN  LS=l:GOTO  461 
458  IF  LS=1  THEN  LS=0 

460  : 

461  POKE  214, 13: POKE  21 1,30s  SYS  5B732 

462  : 

463  PRINT" {RED)"; 

464  IF  LS=1  THEN  PRINT" {RVSON)£IN {RVOFF )" 5 
466  IF  LS=0  THEN  PR INT "BUS "5 
472  s 

498  ?ETURN  Listing  1.  »Raetsel«.  Beachten  Sie 

499  ;  die  Eingabehinweise  auf  Seite  16. 


<017> 

<  151  > 
<062> 
<106> 
<240> 
<142> 
<032> 
<067> 

<  127> 
<043> 

<  147> 
<239> 
<072> 
<099> 
<074> 
<075> 
<1B6> 

<  176> 
<0B0> 
<082> 
<026> 

<  174> 
<090> 

<010> 

<090> 

<093> 

<  185> 
<096  > 

<  1B3> 
<100> 

<  125> 
<227> 
<103> 

<  1 15> 
<014> 

<  1 56  > 

<238> 

<070> 

<009> 

<  1 14> 
<212> 

<  132> 

<  134> 
<167> 
<110> 
<026> 
<075> 
<030> 

<  150> 
<03B> 
<064  > 
<045> 
<046> 
<134> 

<  05B  > 

<070> 

<060> 

<  145> 
<064> 
<066> 
<056> 

<  191  > 
<005> 

<  103> 
<145> 
<082> 
<201  > 

<  120> 
<121  > 
<059  > 
<004> 

<  176> 
<054> 
<067> 
<1B2> 
<130> 

<  184> 
<027  > 

<  172> 

<  163> 

<  194> 
<045> 
<220> 
<221  > 


42 


Listing  1.  »Raetsel«. 

Beachten  Sie  die  Einaahehinweise  auf  Seite  IR 


C  64 


Anwendung 


500  REM"  PROGRAMM-ENDE 
502  REM" 

504  : 

505  PRINT"  {CLR,LIG.  BLUE  J" ;  CHR#  (9)  •, 

506  POKE  53280, 14: REM"  RAHMEN  HELLBLAU 
508  POKE  53281 ,06: REM"  GRUND  BLAU 

510  : 


<241  > 

<  054  > 
<226> 
<026> 

<  152> 
<22B> 
<232> 


512  POKE  792,71t REM"  RESTORE  UND  <119> 

514  POKE  788, 49: REM"  STOP  MOEGLICH  <157> 

594  :  <062> 

596  RETURN  <146> 

59B  :  <066> 

599  n  <067> 

600  REM"  BILD  AUFBAUEN  <121> 

602  REM"  <156> 

604  :  <072> 

606  POKE  53265,11  : REM"  BILD  AUS  <0B4> 

607  :  <075> 

608  REM"  .«■»»-»-»-»-  KREUZWORTFELD  <104> 

609  PRINT" <CLR,3D0WN>"sCHR* ( 14) sCHR*(B> ;  <110> 

AS  "  ’  <132> 

612  FÜR  N=1  TO  20  <163> 

614  PRINT" {SPACE , CYAN >^{RVSON , L I G . BLUE , 20S 

PACE , RVOFF , CYAN  >3"  <191> 

616  NEXT  < 1 18> 


618  PR  I  NT  "  {SP ACE ,  CYAN 

AK  "  ;  <026> 

619  :  <087> 

620  REM"  «-«-»■»-».  TASTENBELEGUNG  «».«♦*«»»  <14B> 

621  B*="{2BRIGHT>"  <178> 

622  PRINT" {H0ME,3D0WN,RED>"i  <084> 

623  A*="H0ERTER{3SPACE>E INLESEN"  <195> 

624  F=1 : GOSUB  639  <159> 

625  A#=  " BAETSEL {3BP ACE > DRUCKEN  “  <206> 

626  F=4: GOSUB  639  <209> 

627  A*= " AUTOLADER  aUS{5SPACE}"  <054> 

628  F=6: GOSUB  639  <243> 

629  A*="VON  ÜAND{2SPACE>E INGEBEN"  <049> 

630  F=7: GOSUB  639  <005> 

631  PRINT  B*; " <DOWN,RVSONJF  2 {RVOFF, DOWN, 2 

LEFT  JiJDESCHEN"  <07 1> 

632  PRINT  B#; " (DOWN,RVSON>F  8 {RVOFF , DOWN , 2 

LEFT JfiBBRECHEN" ;  <080> 

633  :  <101> 

634  POKE  53265,27: REM"  BILD  AN  <029> 


635 

636 

637 

639 

640 

641 

642 

643 

645 

646 

648 

649 

650 

631 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 
667 
669 
680 
681 
682 
6B3 

684 

685 

698 

699 

700 

701 

702 


RETURN 
: 

PRINT  B* ; " {RVSON >F " j  F  j "  • 

REM  PR I NTB* ; " - {9SPACE } - 

PRINT  Bi; " ; LEFT* ( A* ,9) j " - 
PRINT  B*j " ; RIGHTS  < Ai ,9) j "=" 

PRINT  B*; 

RETURN 

t 

REM"  KREUZWORT  V.  HAND  EINGEBEN 

REM"  «.«..Jt.... 
t 

T *=  " JtREUZWORT  (flBBR=Q> " 

POKE  53280,2: POKE  53281,2 
PRINT" {HOME ) " ; LL# ; LL* 

L=20:M=0: GOSUB  1000: M*=F# 

IF  M*="Q"AND  NR>1  THEN  685 
L=LEN(M*):IF  L<2  THEN  656 
: 

T*=M*: GOSUB  2000  : REM"  POS.  EINGEBEN 
: 

POKE  26 , LEN ( M* ) : M#=M* : REM "  WORT 
WA IT  203,64: U=USR(0)  : REM"  EINTRÄGEN 
IF  U<  >3  THEN  685 

T*="£RAGESTELLUNG"  : REM"  FRAGE 
L=36:M=1: GOSUB  1000  : REM"  EINGEBEN 

X*=STR* (PEEK ( 140) =0)  : REM"  FRAGE 

FS*(NR)=X*+F*:NR=NR+1  : REM"  MERKEN 
AV=0:DL=DM 
GOTO  650 
: 

RETURN 

: 

REM"  KREUZWOERTER  EINLESEN 

REM"  •»*»*»»«««»»»»»*»♦»*«»«»♦♦*»«» 


<103> 
<186> 
<105> 
<003> 
<110> 
<  108> 

<  1 47  > 
<063> 

<  1 13> 

<  196> 

<  1 16> 

<  1 17> 
<088 > 

<  205 > 
<120> 
<062> 
<030> 
<157> 
<059> 
<040> 
<085> 

<  127> 
<035> 

<  129> 
<044  > 

<  179> 
<254> 

<  133> 
<118> 
<023> 

<  137> 

<  146> 
<084  > 

<  1 14> 
<223> 
<152> 
<235> 

<  166> 
<  167> 
<072> 
<255> 
<170> 


703 

POKE  53280,2: POKE  53281,2 

<079> 

704 

PR  I  NT  "  {HOME  >  "  ;  LL#  5  LL*  -, 

<  156> 

705 

T*="tiORTSCHATZ  (BBBR=Q) " 

<045> 

706 

L=14: M=1 : GDSUB  1000 

<254> 

707 

IF  F*="D"THEN  PRINT"  {HOME >",- LL*: GOTO  7 
33 

<173> 

708 

IF  F*="*"THEN  710 

<051  > 

709 

F#="±"+CHR*(20)+F*:GOTO  712 

<16B> 

710 

GOSUB  3000: IF  F#=" "THEN  704 

<  137> 

711 

s 

<179> 

712 

PRINT" {HOME  > " j  LL*  j  LL* 

<214> 

713 

OPEN  15,8,15 

<  1 0  7  > 

714 

OPEN  1,8,2,"0:"+F*+",S,R" 

<  169> 

715 

INPUT# 15, EN, EN* 

<202> 

716 

IF  EN<  >0  THEN  728 

<164> 

717 

: 

<  1B5> 

718 

INPUT# 1,FG  : REM"  FELDGROESSE  GLEICH 

<226> 

719 

POKE  2,FG  : REM"  ANZAHL  WOERTER 

<  166> 

720 

FOR  N=0  TO  FG  : REM "LESE  WOERTER/FRAGEN 

<175> 

721 

: INPUTttl , KW*  < N )  ,FW*(N) 

<  197> 

722 

NEXT 

<224> 

723 

: 

<  1 91  > 

724 

I NPUT # 1 , NF* : REM "  NAECHSTER  FILE 

<  136> 

725 

INPUT# 15, EN, EN* 

<212> 

726 

AV=0 : DL=DM : BS= 1 : OG=FG 

<150> 

727 

: 

<  195> 

728 

PR I NT “ {HOME  > " i LEFT# ( LL* , 40-LEN < EN* ) ) ; 

<029> 

729 

PRINT" {RVSON >" ; EN# 

<  191  > 

730 

: 

<  198> 

731 

CLOSE  1 : CLOSE  15 

<  135> 

732 

: 

<200> 

733 

RETURN 

<027> 

734 

3 

<202> 

735 

I 

<203> 

740 

REM"  RAETSEL  DRUCKEN 

<0B4> 

741 

REM " 

<039> 

742 

: 

<210> 

743 

POKE  53280,2: POKE  53281,2 

<119> 

744 

PR I NT " {HOME  > " ; LL* i LL* 

<246> 

745 

PRINT" {HOME, CYAN, RVSON J&AETSEL  WIRD  AU 

746 

DRUCKT  {RVOFF  >" 

<028> 
<214> 
<038  > 

747 

GOSUB  761: REM“  WORTFELD  AUSDRUCKEN 

748 

GOSUB  824: REM"  FRAGEN  AUSDRUCKEN 

<082> 

749 

GOSUB  900: REM"  LOESUNG  AUSDRUCKEN 

<003> 

750 

s 

<218> 

751 

RETURN 

<045> 

752 

: 

<220> 

753 

: 

<221  > 

754 

REM"  Äi  INIT  EPSON  RX-80  DRUCKER  AA 

<011> 

755 

OPEN  1,4: PR I NT # 1 , CHR*  ( 27 ) 5 “  ; 

<252> 

756 

PRINT#1 , CHR* (27) 5 "3" 5  CHR* (24) ■, 

<  198> 

757 

REM  PR  I  NT #  1 ,  CHR#  ( 27 )  ;  "L  "  3  CHR*  ( LR )  ; 

<  150> 

758 

PRINT#1 :  CLOSE  1: RETURN 

<  147> 

759 

: 

<227> 

760 

REM"  .«»-»-*.  WORTFELD  AUSDRUCKEN 

<252> 

761 

GOSUB  755: OPEN  l,4,10:CMD  1  1  PRINT: PRI 
NT" {RVSON >H"! 

<158> 

762 

FÜR  N=0  TO  19:  PR  INT  :  NEXT 

<  170> 

/63 

PK  INI  "B'CRVÜFFJ" 

<058> 

764 

: 

<232> 

765 

FOR  ZE=0  TO  19 

<132> 

766 

: D=ZE*20: AD=S1+D: AS=S2+D: AW=S3+D 

<221  > 

767 

: AB=S4+ZE*40 

<  126> 

768 

3 

<  238  > 

772 

: PRINT"  "j 

<242> 

773 

: FOR  SP=0  TO  19 

<236> 

774 

:  C=PEEK (AS+SP) 

<06B> 

775 

:  IF  C=0  THEN  PRINT" {3SPACEV GOTO  77 
7 

<  107> 

776 

:  PRINT  MID# (STR* (C) +" {3SPACEJ" ,2,3) ; 

<  194> 

777 

: NEXT  SP 

<074> 

779 

: GOSUB  820 

<058> 

780 

: FOR  N=1  TO  3 

<017> 

7B1 

:  PRINT" {RVSON >- {RVOFF}" j 

<  131  > 

7B2 

:  FOR  SP=0  TO  19 

<245> 

7B3 

:  A=166:B=A:C=A 

<233> 

784 

:  IF  PEEK  ( AB+SP )  =®  1 60  THEN  790 

<070> 

7B5 

:  B=32: C=B: IF  SP=19  THEN  787 

<  191  > 

786 

:  IF (PEEK (AD+SP) AND  1 ) THEN  C=167 

<  120> 

787 

:  A=165: IF  SP=0  THEN  A=32 

<061  > 

788 

:  IF (N=l ) AND  PEEK (AS+SP) THEN  A=32 

<249> 

789 

:  IF (N=3) AND  PEEK (AW+SP) THEN  A=32 

<  123> 

790 

:  PRINT  CHR# ( A ) ; CHR* ( B ) ; CHR* ( C > ; 

<04B> 

791 

:  NEXT  SP 

<0BB> 

792 

:  PRINT" {RVSON>-{RVOFF}"; : IF  N<3  THEN 
PRINT 

<100> 

793 

:  next  n  Listing  1.  »Raetsel«  (Fortsetzung) 

<255> 

Anwendung 


C  64 


794 

s 

<00B> 

795 

s GOSUB  B20 SPRINT"  "; 

<165> 

796 

sFOR  SP=0  TO  19 

<003> 

797 

s  C=PEEK  ( AW+SP ) 

<095> 

798 

799 

s  IF  C=0  THEN  PRINT" <3SPACE>" ;s GOTO  B0 

0 

:  PRINT  MID*(STR*(C)+"t3SPACE>",2,3); 

<057> 

<217> 

888 

sNEXT 

<  129> 

BB1 

s 

<015> 

B82 

s IF  ZE=19  THEN  810 

<241  > 

883 

3 GOSUB  820 SPRINT"  "5 

<173> 

BB4 

: FOR  SP=0  TO  19 

<011> 

885 

s  P=AD+SP:C= (PEEK (P> AND  16) 

<  168> 

806 

s  IF  C  THEN  PRINT"FpT") SBOTO  808 

<004> 

B07 

:  PRINT"@5@"; 

<170> 

808 

sNEXT  BP 

<  105> 

809 

| 

<023> 

810 

PRINTs NEXT  ZE 

<043> 

811 

s 

<025> 

812 

PRINT" <RVS0N>?"I 

<  164> 

813 

sFOR  N=0  TO  19: PRINT"ütÄ"! sNEXT 

<116> 

B14 

PR I NT " yCRVOFF J " 5  s  PR I NT« 1 s  CLOSE  1 

<045> 

815 

3 

<029> 

816 

RETURN 

<  1 12> 

817 

3 

<031  > 

B1B 

1 

<032> 

820 

PRINT  CHR* (141) ; s RETURN 

<B38> 

821 

822 

REM  PR I NTCHR* (141); LEFT *  <  LL* , LR ) 5  s RET 
URN  sREM  FUER  RX80 

<200> 

<036> 

823 

REM"  .*>-*.».*.  FRAGEN  AUSDRUCKEN  »♦»»»« 

<04 1  > 

824 

PRINT  CHR* ( 14) : OPEN  1,4 

<012> 

825 

PRINT#1 ,CHR* (27) ;  "0" ; 

<162> 

826 

PR I NT #  1 , CHR* ( 27 ) ; CHR* (15) ; 

<127> 

827 

PRINTttl ,CHR* (27) ; "L" ; CHR* (LR*1 . 7) ; 

<042> 

828 

: 

<042> 

829 

CMD  1  SPRINT  CHR* ( 14) ; "SENKRECHT: " 

<018> 

830 

SW=0: GOSUB  B3B sPRINT 

<184> 

831 

3 

<045> 

B32 

PRINT  CHR* (  1 4 )  -,  " HAAGERECHT :  " 

<006> 

833 

SW=-1: GOSUB  83B: PR INT# 1 s CLOSE  1 

<002> 

834 

<048> 

835 

RETURN 

<  131  > 

836 

<050> 

837 

: 

<051  > 

838 

MZ=8: ZL=0s  F=0: NA=1 

<  135> 

B39 

FOR  N=1  TO  NR— 1 

<21 1  > 

840 

: IF  VAL (FS* (N) ) =SW  THEN  GOSUB  847 

<064> 

841 

NEXT  N 

<203> 

B42 

M=0:MR=0:BZ=0: GOSUB  B81 sPRINT 

<076> 

843 

! 

<057> 

B44 

RETURN 

<140> 

845 

; 

<059> 

846 

: 

<060> 

847 

NL=LEN (STR* (N> ) +2 

<  160> 

B4B 

L=ZL+NL+LEN (FS* (N) ) 

<059> 

849 

IF  L<CZ  THEN  ZL=L:GOTO  861 

<063> 

850 

3 

<064> 

851 

PA=1 

<245> 

□32 

FOR  P-3  TO  LEN(F8*(N))-2 

<215> 

853 

s IF  MID* (FS* (N) ,P,1)<>"  "THEN  855 

<073> 

854 

:L=ZL+NL+P-2: IF  L<CZ  THEN  PA=P 

<248> 

855 

NEXT  P 

<233> 

B56 

e 

<070> 

857 

IF  PA=1  THEN  MZ=MZ-lsL=ZL 

<204> 

B5B 

IF  PA>1  THEN  L=ZL+NL+PA-2 

<225> 

B59 

GOSUB  866: MZ=0 

<052> 

860 

: 

<074> 

861 

MZ=MZ+1 

<090> 

862 

s 

<076> 

863 

RETURN 

<  159> 

864 

l 

<078> 

B65 

: 

<079> 

866 

BZ=INT(  (CZ-D/MZ)  :  MR=CZ- (L+BZ*MZ ) 

<209> 

B67 

M=- ( MR >0 ): GOSUB  881 

<  121  > 

868 

: 

<082  > 

869 

NA=N+1:L=LEN(FS*(N) ) : IF  PA>1  THEN  873 

<  146> 

870 

W=N  sPRINT";": GOSUB  892 : ZL=NL+L+3 

<  008  > 

871 

PRINT  MID* (FS* (N)  , 3 ,L  > ; : GOTO  878 

<  145> 

872 

s 

<0B6> 

873 

PRINT";  " ; LEFT* (LL* , BZ ) ; 

<144> 

874 

W=Ns GOSUB  892:ZL=L— PA+2 

<  1 14> 

875 

PRINT  MID*(FS*(N> ,3, PA— 2) 

<069> 

876 

PRINT  RIGHT* (FS*(N) ,L-PA) ; 

<  171  > 

877 

: 

<091  > 

878t 

RETURN 

<  174> 

879 

t 

<093> 

880 

s 

<094> 

"H. 


881 

B82 

883 

884 

885 
8B6 

887 

888 
8B9 

898 

891 

892 

893 

894 

895 

899 
988 

981 

982 

983 

984 

985 

986 

987 

988 

989 

918 

911 

912 

913 

914 

915 

916 

917 

919 
928 

921 

922 

923 
■>a 


926 

927 

928 

929 
938 

931 

932 

933 

934 

935 

936 

937 

938 

948 
942 

944 

945 

9**6 

94B 

949 
958 
952 

954 

955 

956 
958 

968 

962 

963 

964 

965 

966 

967 

969 
978 

971 

972 

975 

976 

977 

978 

979 
9BB 
9B7 

997 

998 


FÜR  P=NA  TO  IM-1 

:  IF  VAL(FS*(P>X>SW  THEN  887 

sIF  F  THEN  PRINT"!  " ! LEFT* (LL*,BZ+M> ; 

i IF  F  THEN  MR=MR+ (MR>0) : M=- (MR>0) 

; F= 1 ! W=P : GOSUB  892 

SPRINT  RIGHT* (FS* (P) ,LEN (FS* (P) ) -2) s 
NEXT  P 

RETURN 

s 

: 

NL=LEN  <  STR* ( W  > ) - 1 s  PR I NT " ( " ; 

PRINT  RIGHT*(STR*(W) ,  NL ) ; ">  "; 

RETURN 

3 

REM"  ■»»_*■»«  LOESUNB  AUSDRUCKEN  .«JE».«.». 
GOSUB  755s PRINT  CHR* ( 14) : OPEN  1,4,18:0 
MD  1 

PR I  NT  s  PR I NT  s  PR I NT  s  PR I NT " iDESUNG  s " 
PRINT" 

FOR  N=S4  TO  S4+76B  STEP  48 
s  PR INT "3" ; s  FÜR  P=N  TO  N+19 
SPRINT  CHR* (PEEK (P) ) 5 
sNEXT  Ps  PRINT"—" 

NEXT  N 

print"  ;mwAm*AWAw.r 
PR  I  NT  #  1 :  CLOSE  1 
s 

RETURN 


REM"  VORBEREITUNGEN 
REM" 

POKE  53288, 2s  REM"  RAHMEN  GRAU 
POKE  5328 1,2: REM"  HINTERGRUND  BRAU 

REM  P0KE792, 193: REM"  RESTORE  UND 
REM  P0KE78B , 52  : REM"  STOP  VERRIEGELN 

DIM  KW* (254) : REM"  KREUZWOERTER 
DIM  FW* (254) s REM"  FRAGEN  DAZU 
DIM  FS* (255) : REM"  FRAGESTELLUNG 
FG=1:0G=FG  :REM"  FELDGROESSE 
POKE  2,FG  : REM"  UEBERGEBEN 

POKE  785,8  : REM"  USR-VEKTOR 

POKE  786,192  sREM"  SETZEN 

LS=8: REM"  AUTOLADER  AUS 
BS=1 : REM"  S_AUSPERRE  £IN 

SYS  5881 6s REM"  MATRIX  LOESCHEN 
s 

REM  SYS  51859  sREM"  INIT.  DRUCKTREIBER 
: 

REM"  KONSTANTEN: 

LR=1K)  :  KtM"  LINKER  RAND  DRUCK AUSB. 

CZ— INT ( 138— LR* 1 .7)  sREM"  ZEILLAENGE 
: 

FOR  N=1  TO  48  sREM"  LEERSTRING  FUER 
:LL*=LL*+"  "  : REM"  FORMATIERTE 
NEXT  sREM"  AUSGABE 

S 1=58 176  sREM"  ADRESSEN  DER 
S2=5B576  sREM"  WORTFELD- 
S3=5B976  sREM"  SPEICHER 
S4=l 186 

DM= 1 8888 sREM"  MAX.  ANZ.  LAEUFE 
RETURN 

3 

S 

REM"  ROUTINEN  LADEN 
s 

FOR  N=B  TO  3s S1=S1+PEEK (49152+N) sNEXT 
FOR  N=B  TO  3: S2=S2+PEEK (51 B57+N  >  s  NEXT 
s 

IF  S10483  THEN  LOAD  "SUCH.  OBJ  "  ,  B,  1 
REM  I FS2< >494THENL0AD " DRUCK . OB J " , 8 , 1 


RETURN 
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<254> 
<B44> 
<162> 
<245> 
<251  > 

<  134> 
<889  > 

<  1B2> 
<185> 
<104> 
<185> 
<252> 
<287> 

<  19B> 

<  189> 
<B6B> 

<1B2> 

<  1 15> 
<B45> 
<8B8> 
<853> 
<891  > 

<  168> 

<  1 13> 
<814> 
<B75> 

<  138> 

<  125> 
<208> 
<127> 

<  12B> 
<857  > 
<216> 

<  131  > 
<8B3> 
<219> 

<  135> 

<  137> 

<  155> 
<13B> 
<289> 
<B22> 

<  137> 
<282 > 

<  179> 

<  144> 
<887> 
<21B> 

<  147> 
<887> 
<227> 

<  15B> 
<B89> 

<  152> 
<B87> 

<  156> 
<B5B> 

<  159> 
<17B> 
<891  > 
<163> 
<831  > 
<886> 
<029> 
<169> 
<224> 

<  184> 

<  173> 
<165> 

<  177> 
<003> 

<  179> 
<886> 

<  181  > 

<  1B3> 
<805> 
<015> 
<1B6> 
<237> 
<204> 

<  191  > 
<153> 
<845> 

<  194> 
<027> 
<21 1  > 
<212> 
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999  s 

<213> 

1000 

REM"  INPUTFORM  ROUTINE 

<235> 

1001 

REM "  ******************************* 

<172> 

1002 

s 

<216> 

1003 

X*=CHR$ (13); YS=CHRS ( 20 ) 

<066> 

1004 

ZS=CHR*(34> 

<200> 

1005 

: 

<219> 

1006 

PR I NT " {HOME , CY AN , RVSON  > " S  TS ; " ? {RVOFF , 

2SPACE  > " ; : POKE  198,0 

<  129> 

1007 

s 

<221  > 

1008 

FS="  '• 

<039> 

1009 

FOR  N=1  TO  L+i 

<027> 

1010 

: PRINT" <LEFT>"SF*!"e"; 

<  141  > 

1011 

: WAIT  1 98 , 1 : GET  FStPOKE  198,0 

<016> 

1012 

;  IF  FS=XSTHEN  1024 

<095> 

1013 

; IF  FS=YSAND  N>1  THEN  N=N-l:GOTO  1010 

<  135> 

1014 

: IF  N>L  THEN  1011 

<030> 

1015 

sIF  M=0  THEN  1021 

<044> 

1016 

sIF  FS=","OR  FS=ZSTHEN  1011 

<240> 

1017 

s IF  FS>="  "AND  FS<="9"THEN  1022 

<052> 

1018 

s IF  FS>="fl"AND  F*<=“X"THEN  1022 

<  034  > 

1021 

s IF  FS<"A"OR  FS>"Z"THEN  1011 

<193> 

1022 

NEXT 

<014> 

1023 

: 

<237> 

1024 

PR I NT " {LEFT , SPACE , LEFT , HOME , RVSON  >" ; T 

*; 

<  149> 

1026 

POKE  631, 13: POKE  198, li INPUT  FS 

<095> 

1029 

IF  F*=XSTHEN  1005 

<202> 

1030 

: 

<246> 

1097 

RETURN 

<139> 

1098 

: 

<058> 

1099 

■ 

<059> 

2000 

REM"  WORT  POSITIONIEREN 

<096> 

2001 

REM  "  ***  *  *_*  *  *  ******  »j*  *  *  *  ********** 

<  156> 

2002 

<200> 

2004 

PRINT" (HOME , DOWN , L I G . BLUE , RVSON , SPACE 

} ( fl)  ENKRECHT {3SPACE >ODER " ; 

<229> 

2005 

PRINT" <3SPACE> (fl)  AAGERECHT <2SPACE>? 

" 

<177> 

2006 

WAIT  203,63: GET  FS 

<239> 

2007 

IF  FS<  >"S"  AND  FSO"W"THEN  2006 

<  150> 

2008 

: 

<206> 

2009 

PRINT" (HOME , DOWN , RVOFF } " ; LLS ; 

<062> 

2010 

PRINT" (HOME , DOWN , RVSON >21 TTE  £0S I T I ON 

ANFAHREN ! " 

<221  > 

2011 

PR I NT " (HOME , 3D0WN , 3RIGHT , RVOFF  > " 5 

<103> 

2012 

: 

<210> 

2013 

FA= 1 1 86 1 P=F A : F=PEEK ( F A ) 

<  198> 

2014 

X=0: Y=0:S=(FS="S"> s POKE  140,ABS(S) 

<15B> 

2015 

MX=20+L* ( S=0>  +  ( S=— 1 ) 

<  146> 

2016 

MY=20+L« (S=-l ) + (S=0) 

<034> 

2017 

: 

<215> 

2018 

FOR  N=0  TO  9999 

<237> 

2019 

POKE  P,F:P=FA+X+Y*40 

<  195> 

2020 

F=PEEK (P ) : POKE  P,94:WAIT  198,1 

<  107> 

2021 

GET  FS: IF  FS=CHRS ( 13) THEN  2028 

<21 1  > 

2022 

IF  FS= " {DOWN ) " THEN  Y=Y-1* <Y<MY) s NEXT 

<  174> 

2023 

IF  FS= " {R I GHT > " THEN  X=X-1* (X<MX ) ; NEXT 

<  143> 

2024 

IF  F*-''  (UP>"THFN  V-Y+l  *  <  Y>0>  ■  NEXT 

<207> 

2025 

IF  FS=" {LEFT >" THEN  X=X+1* (X>0> : NEXT 

<  192> 

2026 

NEXT 

<002> 

2027 

s 

<225> 

2028 

POKE  P,F 

<100> 

2029 

PR I NT " {HOME  > " f  LLS  j  LLS ; 

<21 1  > 

2030 

8 

<22B> 

2031 

POKE  2 1 1 , X  1  REM"  CURSOR-POSITION 

<218> 

2032 

POKE  214, Y  sREM"  SETZEN 

<028> 

2033 

8 

<231  > 

2097 

RETURN 

<  123> 

2090 

1 

<042> 

2099 

a 

<043> 

3000 

3001 

REM"  DIRECTORY  LISTEN 

<170> 

<  140> 

3003 

: 

<  185> 

3004 

PRINT" {HOME>" i LLS; " {HOME .CYAN >" 5 

<  140> 

3005 

PRINT  "fl.IT  (SPACE .  RVSON >.K£Xll_KM{RVOFF ,  SP 

ACEJAUSWAEHLEN  " 

<027> 

3006 

PR  I  NT  “  (UPifll  T  (SPACE .  RVSON  >.LEUULTA5.T£{R 

VOFF , 2SPACE  >WE I TER  " 

<214> 

3007 

3 

<  189> 

3008 

OPEN  15,8, 15, "IO"; OPEN  2,8,2,"#” 

<086> 

3010 

3 

<  192> 

3012 

T=18;S=1;FS=" " 

<  1 12> 

3014 

3 

<196> 

3016 

FOR  W=0  TO  99 

<205> 

3018 

8 

<200> 

3020 

: PRINT#15, "B-R" ; 2; 0; T; S 

<  161  > 

3022 

: PRINT# 15, "B-P" ; 2; 0 

<050> 

3024 

8 

<206> 

3026 

: GET#2 , XSs  T=ASC (XS+CHRS (0) ) 

<  1B0> 

302B 

: GET#2 , XS: S=ASC (XS+CHRS (0) ) 

<  178> 

3030 

8 

<212> 

3032 

s  FOR  X=0  TO  7 

<0B2> 

3034 

s  PRINT#15,"B-P";2i X*32+5 : GET#2 , FS 

<216> 

3038 

s  IF  FSO"±"THEN  NEXT  XsGOTO  3060 

<243> 

3042 

s  FOR  Y=1  TO  15 

<016> 

3044 

:  GET#2,Xf;FS=FS+XS 

<097> 

3046 

:  IF  XS=CHRS< 160) THEN  Y=15 

<  139> 

3048 

:  NEXT  Y 

<  143> 

3050 

s  PRINT " (HOME  > " ; T AB  <  24 ) ; " (RVSON  > " j 

<06B> 

3052 

s  PRINT  RIGHTS (FS, LEN (FS) -2) ; " (RVOFF) 

" 

<19B> 

3053 

:  WAIT  203,64: WAIT  203,63:GET  XS 

<073> 

3054 

:  IF  XS+CHRS (13) THEN  3064 

<186> 

3055 

:  PR I NT " (HOME  > " ; T AB  <  24  > ; LEFT S ( LLS ,14) 

<  179> 

3056 

:  FS“" " 

<0B1> 

3057 

: NEXT  X 

<  136> 

3058 

8 

<240> 

3060 

: IF  T=0  THEN  W=99 

<049> 

3061 

NEXT  W 

<207> 

3062 

8 

<244> 

3064 

CLOSE  2: CLOSE  15 

<  190> 

3065 

PR I NT " (HOME  >" s  LLS ! LLS 

<025> 

3066 

3 

<248> 

3068 

RETURN 

<076> 

3070 

8 

<252> 

3071 

: 

<253> 

4000 

REM"  SICHERHEITSABFRAGE 

<098> 

4001 

<046> 

4002 

3 

<168> 

4003 

POKE  53280,2; POKE  53281,2 

<077> 

4004 

PRINT" <HOME> " ; LLS 

<054  > 

4006 

PR I NT " (HOME , CYAN , RVSON  > " ; FS ; " : {RVOFF , 

SPACE >äl CHER  (i/fl)  ?" 

<212> 

4008 

WAIT  203, 64: WA IT  203,63:GET  FS 

<227> 

4010 

IF  FS< >" J "THEN  PRINT" (HOME)"; LLS 

<  1 14> 

4012 

: 

<  17B> 

4014 

RETURN 

<006> 

4016 

<1B2> 

4018 

<  184> 

4020 

: 

<  1B6> 

9000 

<  135> 

9002 

REM" =(2SPACE  >ENDE {3SPACE  JRAETSELGENER 

ATOR (3SPACE>- 

<129> 

9004 

REM "  ■7**************************#*V 

<120> 

e  64 

'er 

Listing  1.  Das  Listing  zum  Kreuzworträtsel.  Beachten 

Sie  die  Hinweise  zum  Eintippen  auf  Seite  16.  Speichern 

Sie  dieses  Programm  unter  dem  Namen  »RAETSEL« 

auf  Diskette.  Vor  dem  Starten  muß  zuerst  Listing  2 

eingegeben  und  gespeichert  werden. 

10  PRINT" {CLR>"»:T=TI+180  <051> 

11  PRINT"  x«-«»»  <076> 

12  PRINT"=  LEX  IKON  -ED I TOR !2SPflCC)HH , 30. 5. Q 

4  s  <156> 

18  PRINT" <064> 
1?  IF  TKT  THEN  19  <120> 

20  i  <232> 

22  :  <254> 

24  REM"  HAUPTPROGRAMM  <072> 

26  REM"  jL»-«AiL»JL-»».»»«*  <219> 

28  i  <004> 

30  GOSUB  9001  REM"  VORBEREITUNGEN  <129> 

32  .  < 1 16> 

34  GOSUB  6001  REM"  MENUE  <167> 

36  s  <012> 

38  M=0  <243> 

40  IF  FS="{F1>"THEN  GOSUB  3006: GOTO  34  <02B> 

42  IF  FS="  CF3VTHEN  GOSUB  0300:GOTO  34  <054> 

44  IF  FS=" {F5VTHEN  CLRt GOSUB  05001  GOTO  34  <012> 

46  IF  FS="{F7>"THEN  PRINT" {CLR>"  <087> 

47  i  <023> 

48  PRINT  "  SICHER { 1 1SPACET  <J/N>  ?"  <162> 

50  WA IT  203 , 64  s  POKE  19B,0iWAIT  203,63  <110> 

52  BET  FS:  IF  FSO“J"THEN  34  <122> 

53  s  <029> 

54  PRINT  CHRS(9>;  <106> 

60  PRINT" IDOWN, SPACE >ÄAETSEL-£ROGRAMM  <J/N 

>  ?"  < 177> 

62  WAIT  203,64t POKE  19B,0:WAIT  203,63  <122> 

63  :  Listing  2.  <039> 

64  BET  FS:IF  F*="N"THEN  90  »Editor«  <133> 
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66  IF  F*<>"J"THEN  62 

<215> 

622 

5 

<090> 

68  PRINT"<CLR>L0AD"+CHR*(34> ; 

<036> 

647 

RETURN 

<  197> 

70  PRINT" RAETSEL " j  CHR*  < 34 ) ; " , 8 " 

<  198> 

648 

s 

<  1 16> 

72  PRINT" <3D0WN>" : PRINT"RUN" 

<  1 16> 

649 

1 

<  1 17> 

74  POKE  198 ,3: PDKE  631,19 

<201  > 

650 

REM"  KREUZWOERTER  EINGEBEN 

<204> 

76  PDKE  632, 13: PDKE  633,13 

<156> 

651 

REM "  -WUMfcMUUHHUUUUMUUIJUt** 

<078> 

77  60TD  97 

<  175> 

652 

3 

<  120> 

88  : 

<064> 

653 

N*=STR* ( NR  > : N*=R I GHT* ( N* , LEN ( N*  > - 1 > 

<24B> 

90  POKE  792,71: REM"  R&STORE  UND 

<205> 

654 

T*- " {RVSON  > " +N*+ " .  iREUZWORT {RVOFF , SPA 

92  PDKE  788,49: REM"  STOP  REPARIEREN 

<  16B> 

CE> (Q=ENDE> ” 

<062> 

94  : 

<070> 

655 

L=20: M=0:F*=KW* (NR) : GOSUB  1000 

<090> 

97  END 

<099> 

656 

IF  F*="Q"THEN  697 

<065> 

98  : 

<074> 

657 

IF  LEN(F*><2  THEN  PRINT" {3UP> “ ; : GOTO  6 

99  : 

<075> 

55 

<235> 

300  REM"  DATEI  AENDERN 

<  153> 

658 

KW* <NR)=F*: PRINT 

<030> 

302  REM"  **«>«**#«**«.* 

<241  > 

659 

s 

<  127> 

304  : 

<026> 

664 

T*= " {RVSON FRAGESTELLUNG {RVOFF  > " 

<  139> 

306  GDSUB  700: REM"  SÄTE I  EINLESEN 

<247> 

666 

L=35:M=1:F*“FW*(NR) :GOSUB  1000 

<214> 

307  : 

<029> 

681 

FW* (NR) =F*: PRINT 

<033> 

308  EF=0: PRINT" {CLR>" 

<217> 

602 

s 

<150> 

309  PRINT"  ni T  <SPACE  , RVSON }.KELT_U_R_M {RVOFF  .  SP 

683 

EF=1 

<071  > 

ACE 1AUSWAEHLEN" 

<  127> 

686 

: 

<  154> 

310  PRINT"  rtIT{SPACETRVSON>{JUL£mS.X£{RVOFF 

697 

RETURN 

<247> 

,  2SPACE  >WE  I  TER  " 

<228> 

698 

: 

<  166> 

311  PRINT"  ÜIT {SPACE, RVSON >Q {RVOFF , 7SPACEJ 

699 

: 

<  167> 

ABBRECHEN" 

<220> 

700 

REM"  DATEI  EINLESEN 

<204> 

312  GOSUB  2000: REM"  SÄTE I  AUFLISTEN 

<149> 

702 

REM“ 

<004> 

313  : 

<035> 

703 

: 

<  17 1  > 

314  PRINT" {DOWN , 3SPACE , RVSON >£ERT I G  ? {RVOF 

705 

PRINT" {CLR>" 

<  185> 

F , SPACE  > ( J/N) " 

<  166> 

706 

T*= " {RVSON  JHORTSCHATZ {RVOFF , SPACE  > ( *=D 

316  WA IT  203 ,64: POKE  198,0:WAIT  203,63 

<122> 

IRECTORY) " 

<002> 

318  GET  F*:IF  F*="N"THEN  308 

<059> 

708 

L=14:M=1:F*=,,M:  GOSUB  1000 

<093> 

320  IF  F*<>"J"THEN  316 

<  1 17> 

709 

IF  F*="*"THEN  M=l: GOSUB  3000 

<060> 

322  : 

<044> 

710 

IF  F*=" "THEN  705 

<217> 

323  IF  EF=0  THEN  397 

<1B3> 

712 

- 

<  180> 

324  GOSUB  800: REM"  SATEI  AUFZEICHNEN 

<125> 

713 

AF*= " ±" +CHR* ( 20 ) +F* 

<062> 

395  : 

<  1 17> 

714 

OPEN  1,8,2,"0:"+AF*+",S,R" 

<110> 

397  RETURN 

<201  > 

716 

t 

<  184> 

398  : 

<  120> 

718 

I NPUT# 1 , FG : REM ”  FELDGROESSE 

<  085  > 

399  : 

<  121  > 

719 

: 

<  187> 

500  REM"  DATEI  EINGEBEN 

<110> 

7?0  REM"  WOERTER/FRAGEN  EINLESEN 

<  196> 

502  REM"  <05R> 

X. 

721  "OR  N=0  TO  FG 

<017> 

503  : 

<225> 

722 

: INPUTS1 ,KW* (N) ,FW*(N) 

<  198> 

504  PRINT" <CLR>"; : GOSUB  900 

<  025  > 

724 

NEXT 

<226> 

505  : 

<227> 

726 

- 

<194> 

506  T*="{RVSON>HPRTSCHATZ-HAME: " 

<245> 

728 

INPUTttl , NF*: REM"  FOLGE-WORTSCHATZ 

<071  > 

507  L=14:M=1:F*='"':  GOSUB  1000 

<146> 

730 

: 

<198> 

508  AF*="±"+CHR*(20)+F* 

<  1 1 1  > 

732 

CLOSE  1 

<235> 

510  : 

<232> 

796 

: 

<010> 

519  PRINT 

<  1 13> 

797 

RETURN 

<093> 

520  T*=" {RVBONIEOLGE-HDRTSCHATZ  (Q=KEINEN> 

798 

3 

<012> 

:  " 

<  1 19> 

799 

8 

<013> 

521  L=14:M=1:F*="": GOSUB  1000 

<  162> 

800 

REM"  DATEI  AUFZEICHNEN 

<183> 

522  NF*= " ±" +CHR* ( 20 ) +F* 

<179> 

802 

REM"  .*j*j^**^_*o^ 

<  127> 

524  : 

<248> 

B03 

3 

<017> 

525  PR I NT " {CLR  > " : NR=0 : EF=0 

<226> 

805 

PR INT" {CLR  > " 

<031  > 

527  : 

<251  > 

807 

3 

<021  > 

528  REM"  WOERTER  EINGEBEN 

<  097  > 

812 

OPEN  15,8, 15,"I":CL0SE  15 

<226> 

529  GOSUB  650 

<0B5> 

813 

s 

<ca27> 

530  : 

<  254  > 

814 

OPEN  1,B,2,"@0:"+AF*+",S,W" 

<152> 

532  IF  F*="Q"THEN  NR=NR-1 : GOTO  539 

<  167> 

816 

8 

<030> 

534  IF  NR<254  THEN  NR=NR+ 1 

<215> 

B1B 

PRINT#1,FG  : REM"  FELDGROESSE 

<011> 

536  IF  PEEK(210)=7  THEN  PRINT" <CLR>" 

<005> 

819 

- 

<033> 

537  GOTO  529 

<054> 

820 

FOR  N=0  TO  FG 

<  1 18> 

538  : 

<006  > 

822 

:PRINT#1,KW*(N> : PRINT# 1, FW* (N) 

<217> 

539  IF  EF=0  THEN  597 

<  147> 

824 

NEXT 

<072> 

540  REM"  DATEI  AUF  DISKETTE  ABLEBEN 

<077> 

826 

3 

<040> 

541  FG=NR: GOSUB  800 

<0B7> 

B28 

PRINT#1 ,NF*: REM"  NAECHSTER  FILE 

<066> 

592  : 

<060> 

830 

3 

<044> 

597  RETURN 

<147> 

832 

CLOSE  1 

<081  > 

598  : 

<066> 

896 

3 

<110> 

599  : 

<067> 

B97 

RETURN 

<  193> 

600  REM"  MENUE 

<  169> 

898 

8 

<  1 12> 

602  REM" 

<033> 

899 

3 

<  1 13> 

604  : 

<072> 

900 

REM"  VORBEREITUNGEN 

<042> 

606  PRINT" {CLR}"; :F*="" 

<204> 

902 

REM" 

<206> 

600  PR  I  NT  "  {DOWN ,  SPACE ,  RVSON  >£.1  {RVOFF  ,  2SPAC 

904 

3 

<  1 18> 

EJSIRECTORY 

<  197> 

906 

POKE  53280, 6:REM"  RAHMEN  BLAU 

<  1 17> 

610  PRINT" {DOWN , SPACE , RVSON > £3 {RVOFF , 2SP AC 

908 

POKE  5328 1,14: REM"  GRUND  HELLBLAU 

<  149> 

EISATEI  AENDERN 

<012> 

909 

PRINT  CHR*  < 1 4 >  j CHR*  ( 8  >  j  CHR* (144) 

<091  > 

612  PRINT" {DOWN , SPACE , RVSON >£5 {RVOFF , 2SPAC 

910 

8 

<124> 

E>SATEI  ANLEGEN 

<052> 

912 

POKE  792, 193: REM"  RESTORE  UND 

<03B> 

614  PRINT" {DOWN , SPACE , RVSON >£7 {RVOFF , 2SPAC 

913 

POKE  788,52: REM"  STOP  VERRIEGELN 

<222> 

ElflBBRECHEN 

<082> 

914 

: 

<12B> 

616  : 

<084> 

915 

DIM  KW* (254) :REM"  KREUZWOERTER 

<199> 

618  WA IT  203,63: GET  F* 

<  121  > 

916 

DIM  FW* (254) : REM"  FRAGEN  DAZU 

<012> 

620  IF  F*<CHR*(133)0R  F*>CHR* < 136) THEN  61E 

<142> 

986 

■ 

<  200> 

621  PRINT"  {CLRV 

<101> 

987 

return  Listing  2.  »Editor«  (Fortsetzung) 

<027> 

«4e<-op| 


46 
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9B8 

<202> 

909 

<203> 

990 

<204> 

1000 

REM"  INPUTFORM  ROUTINE 

<235> 

1001 

REM"  jtiütäitMtftltJWWWtit 

<070> 

1002 

S 

<216> 

1003 

X*=CHR*  < 13) s  Y*=CHR*  <20> 

<066> 

1004 

Z*=CHR*(34)gP0KE  198,0 

<250> 

1005 

« 

<219> 

1006 

PRINT"  "  5  T*  G PR I NT " (2D0WN , UP , SPACE }?  " 

;F*r  ", 

<031  > 

1007 

X=1gIF  F«  >" "THEN  X=LEN(F*>+1 

<177> 

100B 

1 

<222> 

1009 

F*= . .  N=X  TO  L+l 

<003> 

1010 

: PRINT" (LEFT>",F*, "B" ; 

<  141  > 

1011 

g  WA IT  19B, 1 b  BET  F*gPOKE  198,0 

<016> 

1012 

1 IF  F*-X*THEN  1025 

<  127> 

1013 

GIF  F*=Y*AND  N>1  THEN  N=N-lsBOTO 

1010 

<  135> 

1014 

:IF  N>L  THEN  1011 

<030> 

1015 

GIF  M=0  THEN  1021 

<044> 

1016 

I IF  F*=","OR  F*=Z*THEN  1011 

<240> 

1017 

GIF  F*>="  "AND  F*<="9"THEN  1022 

<052> 

1018 

GIF  F*>="fl"AND  F*<="£"THEN  1022 

<034> 

1021 

GIF  F*<"A"OR  F*>" Z "THEN  1011 

<  193> 

1022 

NEXT 

<014> 

1023 

s 

<237> 

1025 

PRINT  CHR*(20> , GPOKE  211,1 

<143> 

1026 

POKE  631 ,13g  POKE  198,1g  INPUT  F* 

<095> 

1030 

IF  F*=X*THEN  PRINT“ IUP, 4RIGHT>" ; 

GOTO 

1009 

<242> 

1036 

3 

<252> 

1097 

RETURN 

<  139> 

109B 

: 

<050> 

1099 

3 

<059> 

2000 

REM"  DATEI  AUFLISTEN 

<110> 

2002 

REM"  ***********  *  **  * 

<037> 

2004 

: 

<202> 

2010 

FOR  NR=0  TO  FG 

<013> 

2012 

g  PR I NT " (DOWN , SPACE  >— >  (R VSON  > " ; KW*  <  NR ) 

; " (RVOFF> " 

<032> 

2014 

G  PRINT“ <3SPACE>" ; FW* (NR) 

<242> 

2016 

gFOR  W=0  TO  60g NEXT 

<  157> 

2017 

G  WA IT  198, 1 G  GET  F*: PRINT" (2UP,3SPACE , 

2D0WN>" 

<200> 

2018 

GIF  F*=”Q"THEN  2029 

<052  > 

2019 

GIF  F*<>CHR*(13>THEN  2024 

<025> 

2021 

G PRINT" <CLR>" gGOSUB  650 

<046> 

2022 

G PRINT" (CLRV'gWAIT  203,64 

<  197> 

2024 

GIF  PEEK (210) =7  THEN  PRINT" <CLR> 

<180> 

2026 

NEXT 

<002> 

2028 

s 

<226> 

2029 

T *=" IRVSON  >£OLGE-HDRTSCHATZ " 

<07 1> 

2030 

PRINT“ <3SPACE>";T*s "g "gPRINT"  -> 

NF* 

<087> 

2032 

WA IT  203,64  g  POKE  198,0gWAIT  203,63 

<058> 

2034 

t 

<232> 

2036 

GET  F*gIF  F*OCHR*(13)THEN  2097 

<230> 

2037 

F*=RIGHT*(NF*,LEN(NF*>-2> 

<  173> 

2038 

T*=T*+"  <Q=KEINEN)g" 

<  1 18> 

2039 

PRINT" <CLR>" gGOSUB  1000gEF=1 

<133> 

<171> 

2096 

I 

<040> 

2097 

RETURN 

<  123> 

209B 

: 

<042> 

2099 

i 

<043> 

3000 

REM"  DIRECTORY  LISTEN 

<  170> 

3002 

REM"  ***»**».»****»**♦. 

<027> 

3003 

| 

<  185> 

3004 

PRINT" <CLR>" 

<  198> 

3005 

PRINT"  rtl T  (SPACE , RVSDN > ÄtT-UAMCRVOFF ,  S 

PACE ) AUSWAEHLEN " 

<027> 

3006 

PRINT"  HI T  (SPACE  . RVSON ».LEERTASTE (RVOF 

F , 2SPACE1WEITER" 

<  1 28  > 

3007 

PRINT 

<059> 

3008 

1 

<  190> 

3009 

OPEN  15, B, 15, "IQ"g OPEN  2,8,2,"#" 

<0B7> 

3010 

s 

<  192> 

3012 

T=18gS=1gF*="" 

<  1 12> 

3014 

: 

<  196> 

3016 

FOR  W=0  TO  99 

<205> 

3018 

3 

<  200  > 

3020 

G  PRINT#15, "B— R" ;2;0;T;S 

<  161  > 

3022 

g  PRINT# 15, "B— P" ;  2;  0 

<050> 

3024 

3 

<206> 

3026 

G  GET#2 , X*  g  T=ASC ( X*+CHR* ( 0 ) ) 

<180> 

3028 

G  GET#2 , X*  g  S=ASC ( X*+CHR* ( 0 ) ) 

<178> 

3030 

3 

<212> 

3032 

gFOR  X=0  TO  7 

<0B2> 

3034 

g  PR INT# 15 , "B— P" ;  2  , X*32+5 

<212> 

3036  G  GET#2,X* 

<  186> 

3038  G  IF  X*<  >“ ±"THEN  NEXT  XgGOTO  3060 

<020> 

3040  GET#2,X* 

<  1 90  > 

3042  g  FOR  Y=1  TO  14 

<014> 

3044  g  GET#2,X*gF*=F*+X* 

<097> 

3046  g  IF  X*=CHR*( 160) THEN  Y=15 

<  139> 

3048  G  NEXT  Y 

<  143> 

3050  g  PRINT"  —  > (SPACE , RVSON > " , F* , 

'  (RVOFF> 

" 

<  145> 

3051  g  IF  M=0  THEN  3056 

<  102> 

3053  G  WA IT  203,64g  WAIT  203,63gGET 

X* 

<073> 

3054  IF  X*=CHR*  <  13)  THEN  3064 

<  1B6> 

3055  g  PRINT" (UP, 4SPACEJ" 

<  149> 

3056  g  F*="" 

<081  > 

3057  gNEXT  X 

<  136> 

3058  g 

<240> 

3060  G IF  T=0  THEN  W=99 

<049> 

3061  NEXT  W 

<207> 

3062  g 

<244> 

3064  CLOSE  2  g  CLOSE  15 

<190> 

3065  IF  M=0  THEN  WAIT  203,63 

<  1 46  > 

3066  g 

<24B> 

3068  RETURN 

<076> 

3070  g 

<252> 

3071  g 

<253> 

3072  G 

<000> 

9000  REM "  n*************************»»»-? 

<  135> 

9002  REM"  =  ENDE (5SPACEJLEXI KON-ED I TOR (4SPA 

CE>= 

<  102> 

9004  REM  "  *7  ********  *  ****  ***********, 

<  1  "701V 

©  64'er 

Listing  2.  »Editor«  (Schluß). 

Beachten  Sie  die  Eingabehinweise  auf  Seite  16. 
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Listing  3.  »Such.obj.«.  Geben  Sie  das  Maschinen¬ 
programm  mit  dem  MSE  ein  (Seite  18). 


Anwendung 


C  64 


»Happysynth«, 
der  Traum 
eines  jeden 
Musikers 

Daß  der  Commodore  64  hervorragen¬ 
de  Musikqualitäten  besitzt,  ist  längst 
kein  Geheimnis  mehr.  Schließen  Sie 
ihn  an  Ihre  Stereoanlage  an,  und  tip¬ 
pen  Sie  unseren  Supersynthesizer  ein. 
Sie  werden  Ihren  Ohren  nicht  trauen. 

Zu  Anfang  wollen  wir  einige  Tips  zur  Hardware  geben.  Um 
den  C  64  professionell  in  einer  Band  einzusetzen,  wird  die 
schlechte  Qualität  des  Fernsehlautsprechers  kaum  ausrei¬ 
chen.  Vorteilhafter  ist  es,  den  C  64  mit  einem  Verstärker  zu  be¬ 
treiben.  Das  Tonsignal  kann  an  der  Audio/Video-Buchse  des 
Commodore  abgegriffen  werden.  Um  nun  den  Computer  an  ei¬ 
nen  Verstärker  anzuschließen,  verbindet  man  einfach  Pin  3  der 
Audio/Video-Buchse  über  ein  abgeschirmtes  Kabel  mit  dem 
Eingang  des  Verstärkers.  Weniger  bastelgeübten  Lesern  ist 
ein  handelsübliches,  fünfpoliges  Stereo-Überspielkabel  zu 
empfehlen.  Wer  seinen  C  64  mit  einem  Monitor  betreibt,  muß 
sich  einen  Zwischenstecker  für  die  Audio/Video-Buchse  ba¬ 
steln.  Sie  werden  erstaunt  sein,  wie  gut  sich  Ihr  Commodore  an 
einer  guten  Verstärkeranlage  anhört. 

Ebenso  läßt  sich  an  der  Audio/Video-Buchse  ein  Tonsignal 
einspeisen  (Pin  5).  Dieses  wird  durch  Setzen  von  Bit  3  im  Regi¬ 
ster  23  über  den  Filter  geleitet.  Dadurch  kann  der  SID-Chip 
auch  als  Effektgerät  eingesetzt  werden.  So  lassen  sich 
Phasing-ähnliche  Effekte  erzielen,  indem  im  SID  ein  Notchfilter 
(Hochpaß  und  Tiefpaß)  realisiert  wird,  dessen  Grenzfrequenz 
moduliert  wird.  Eine  Modulation  läßt  sich  mit  Stimme  3  sehr  ein¬ 
fach  erreichen.  Man  bedient  sich  des  Leseregisters,  welches 
nur  für  diesen  Oszillator  existiert. 

Als  maximale  Spannung  kann  der  C  64  volle  3  Vss  verarbei¬ 
ten.  Wer  also  ein  Mikrofon  am  C  64  betreiben  möchte,  muß  das 
Signal  mittels  eines  Vorverstärkers  dem  Computer  anpassen. 
Auch  hier  ist  unbedingt  ein  abgeschirmtes  Kabel  zu  verwen¬ 
den.  Die  Anschlußbelegung  der  Audio/Video-Buchse  können 
Sie  Ihrem  Handbuch  (Seite  142)  entnehmen. 

»Happysynth«  (Listing  1)  lädt  nach  dem  Start  erst  zwei  Ma¬ 
schinenprogramme,  sowie  die  Daten  für  Sprites  nach  (Listing 
2,  3  und  4).  Die  Maschinenprogramme  beinhalten  die  Joy¬ 
stickabfrage,  den  Modulationsteil  und  die  als  Interrupt  einge¬ 
bundene  Tastaturabfrage.  Das  heißt,  es  kann  jederzeit,  auch 
während  der  Parameteränderung,  auf  der  Tastatur  gespielt 
werden,  da  die  Soundeinstellung  ausschließlich  mit  dem  Joy¬ 
stick  gemacht  wird.  Drückt  man  nun  den  Feuerknopf,  kann  es 
losgehen. 

Man  befindet  sich  dann  auf  der  ersten  von  drei  Bildschirm¬ 
seiten.  Die  am  Bildschirm  sichtbare  Hand  läßt  sich  mit  Hilfe  des 
Joysticks  in  jede  Richtung  bewegen.  Durch  erneutes  Drücken 
des  Feuerknopfes  kann  der  jeweilige  Parameter  eingestellt, 
beziehungsweise  verändert  werden.  Soll  beispielsweise  bei 
Oszillator  1  eine  Sägezahnwelle  eingeschaltet  werden,  so 
muß  man  lediglich  die  Hand  auf  das  Sägezahn-Symbol  steuern 
und  den  Knopf  am  Joystick  drücken.  Sogleich  wird  das  Sym- 

AQ 


bol  grün,  weil  damit  der  Oszillator  auf  diese  Wellenform  umge¬ 
stellt  wurde.  Drückt  man  an  gleicher  Stelle  den  Knopf  ein  wei¬ 
teres  Mal,  leuchtet  das  Symbol  wieder  rot  als  Zeichen  dafür, 
daß  der  Oszillator  keinen  Sägezahn-Ton  mehr  erzeugt.  Diese 
Farben  wurden  im  gesamten  »Happysynth«  beibehalten:  Grün 
bedeutet  immer,  daß  irgendeine  Funktion  oder  ein  Parameter 
eingeschaltet  ist,  rot  signalisiert,  daß  die  Funktion,  bezie¬ 
hungsweise  der  Parameter  ausgeschaltet  ist.  Bei  Parametern, 
die  sich  nicht  nur  ein-  und  ausschalten  lassen,  sondern  stufen¬ 
los  reguliert  werden,  bedient  man  sich  ebenfalls  des  Joysticks. 
Will  man  zum  Beispiel  die  Pulsbreite  einer  Stimme  verändern, 
so  bewegt  man  die  Hand  zu  der  entsprechenden  Stelle  am 
Bildschirm  und  drückt  den  Feuerknopf. 

Nun  steht  im  Feld  »Joystick-Informationen«  in  welcher  Ab¬ 
stufung  sich  die  angewählten  Parameter  verändern  lassen.  Im 
Falle  der  Pulsbreite  sind  es  ±4  Prozent  in  Y-Richtung,  was  ei¬ 
ner  Grobeinstellung  entspricht,  sowie  ±1  Prozent  in  X- 
Richtung,  um  die  Pulsweite  fein  einzustellen.  Bei  der  Einstel¬ 
lung  der  Filtergrenzfrequenz  wird  nur  zwischen  Grob-  (Symbol 
auf  dem  Bildschirm:  +  +  +)  und  Feineinstellung  (Symbol:  +) 
unterschieden,  da  hier  Zahlen  wenig  sinnvoll  sind.  Hat  man  in 
der  ersten  Bildschirmseite  alle  gewünschten  Funktionen  ein¬ 
gestellt,  kann  man  auf  der  zweiten  Bildschirmseite  mit  der  Ein¬ 
stellung  des  »Synthesizers«  fortfahren.  Die  zweite  Seite  wird 
über  das  Feld  »Hüllkurve-Modulation«  angewählt.  Also:  Die 
Hand  auf  das  Feld  steuern  und  Knopf  drücken.  Nun  befinden 
Sie  sich  auf  der  zweiten  Seite.  Hier  läßt  sich  die  Hüllkurve  für 
jede  Stimme  getrennt  eingeben.  Da  bei  Attack,  Decay  und  Re¬ 
lease  die  Abstufung  logarithmisch  in  Millisekunden  erfolgt,  er¬ 
scheint  auch  bei  diesen  Parametern  im  Joystick-Feld  keine 
Zahlenangabe. 


Neben  den  ADSRs  werden  auf  dieser  Seite  die  Modulatio¬ 
nen  eingestellt.  Jeder  der  drei  Oszillatoren  läßt  sich  in  der  Fre¬ 
quenz  und  in  der  Pulsweite  modulieren.  Hierfür  stehen  ein  ei¬ 
gener,  langsam  schwingender  Oszillator  (LFO  =  Low  Fre- 
quency  Oscillator)  oder  die  dritte  Stimme  zur  Verfügung.  Die 
Wellenformen  des  LFOs  werden  wieder  mit  der  auf  dem  Bild¬ 
schirm  dargestellten  Hand  umgeschaltet.  Die  Intensität  der 
Modulation  ist  für  jeden  Oszillator  getrennt  einstellbar.  Wird 
anstatt  des  LFO  Stimme  3  für  Modulationszwecke  herangezo¬ 
gen,  so  wird  mit  der  aktuellen  Wellenform  von  DCO  3  modu¬ 
liert.  Wurde  beispielsweise  auf  Seite  1  für  DCO  3  Rauschen 
eingeschaltet,  so  werden  alle  angewählten  Parameter  durch 
Zufallswerte  beeinflußt.  Einen  weiteren  interessanten  Effekt 
bietet  die  Beeinflussung  des  Filters  mit  Hilfe  des  ADSR  (»En- 
velope  Follow«),  Wird  bei  dieser  Funktion  die  Intensität  mit  Hil¬ 
fe  des  Steuerknüppels  größer  Null  gesetzt,  so  folgt  die  Grenz¬ 
frequenz  des  Filters  dem  Hüllkurvenverlauf  von  ADSR  3.  Je 
größer  der  bei  »Envelope  Follow«  eingegebene  Wert  ist,  um  so 
stärker  folgen  die  Werte  des  Filters  dem  Hüllkurvenverlauf.  Um 
im  Modulationsteil  gute  Ergebnisse  zu  erzielen,  benötigt  man 
etwas  Übung  und  Fingerspitzengefühl.  Hat  man  einen  Sound 
gemixt,  so  will  man  ihn  natürlich  auch  speichern,  um  ihn  zu  ei¬ 
nem  späteren  Zeitpunkt  wieder  verwenden  zu  können.  Die 
Routinen  dazu  werden  auf  Seite  3  aufgerufen.  Sie  wird  über 
das  Feld  »Tastatur-Disk-Menü«  angesteuert.  Auf  dieser  Seite 
sind  alle  Aufrufe  für  die  wichtigen  Diskettenfunktionen  unter¬ 
gebracht.  Sie  werden  wie  üblich  ausgewählt. 

Sie  bewegen  die  Hand  in  diesem  Fall  also  auf  das  Feld 
»Sound  speichern«.  Sogleich  verschwindet  die  Tastatur  im  un¬ 
teren  Bildschirmbereich,  um  für  die  Eingabe  des  Soundna¬ 
mens  Platz  zu  machen.  Hier  wird  zum  ersten  Mal  die  Tastatur 
nicht  zum  Spielen,  sondern  zur  Eingabe  des  Soundnamens 
verwendet.  Die  Länge  des  Namens  ist  auf  zwölf  Zeichen  be¬ 
schränkt-längere  Namen  werden  nicht  angenommen.  Durch 
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Drücken  der  »INST-DEL«-Taste  wird  der  Name  gelöscht  um  ihn 
neu  einzugeben.  Nach  Drücken  der  »RETURN«-Taste  werden 
die  Klangparameter  abgespeichert.  Es  können  auf  einer  Dis¬ 
kette  maximal  Daten  für  33  Sounds  gespeichert  werden  — 
was  darüber  hinausgeht  wird  beim  Laden  einfach  ignoriert!  Li- 
sting  5  enthält  sechs  Demo-Sounds.  Nach  dem  Starten  mit 
»RUN«  werden  die  Sounds  in  einer  vom  Hauptprogramm  les¬ 
baren  Form  auf  Diskette  gespeichert.  Die  Leserservice-Dis¬ 
kette  enthält  neben  diesen  noch  acht  weitere  Sounds  zu  Ver¬ 
suchszwecken.  Wollen  Sie  einen  Ihrer  Klänge  wieder  hören, 
so  steuern  Sie  die  Hand  auf  das  Feld  »Sound  laden«  und 
drücken  den  Feuerknopf.  Nun  wird  eine  Liste  aller  auf  der  Dis¬ 
kette  vorhandener  Dateien  angezeigt.  Mit  Hilfe  des  Joysticks 
wählen  Sie  den  gewünschten  Klang  aus  und  drücken  wieder 
den  Feuerknopf  —  schon  werden  die  Parameter  geladen!  Falls 
Sie  die  Funktion  »Sound  laden«  ein  weiteres  Mal  anwählen, 
wird  die  Soundliste  sofort  angezeigt,  vorausgesetzt  Sie  haben 
die  Diskette  nicht  gewechselt. 

(Bernhard  Carli/Christian  Spitzner/tr) 


100  GOSUB  7080: REM  TITELBILD 

110  GOSUB  9030: REM  MPG  LADEN 

120  POKE  56 , 152: CLR 

130  GOSUB  9130: REM  INITIALISIEREN 

140  GOSUB  7430: REM  START 

150  : 

160  POKE  V+21,0:POKE  V+1,70 
170  ON  PA  GOTO  190,300,410 
180  PA=NR: GOTO  160 
190  GOSUB  8020: REM  SEITE  1 

200  POKE  V+ 16,6: POKE  V+2,36:P0KE  V+4,36:P0 
KE  V+3, 109: POKE  V+5,151 
210  POKE  V , 60: POKE  V+21,7:P0KE  V+40,2:POKE 
V+41 ,2 

220  SYS  49152 
230  NR=PEEK (40959) 

240  ON  NR  GOTO  180,180,180,220,220,220,101 
0,1020,1040,1090,1100,1120,1170,1180 
250  ON  NR  -14  GOTO  1200,220,220,1030,1260, 
1110,1330,1190,1400,220,220 
260  ON  NR— 25  GOTO  1050,1130,1210,1060,1140 
,  1220,220,220,220,1250,1320,1390 
270  ON  NR— 37  GOTO  1250,1320,1390,1310,1380 
, 1 450 , 2480 , 2950 , 2950 , 220 , 220 , 220 
280  ON  NR-49  GOTO  2510,2510,2510,2570,2570 
,220,220,220,2520,2710,2710 
290  GOTO  220 

300  GOSUB  8400: REM  SEITE  2 

310  POKE  V+21 ,7: POKE  V+40,2:POKE  V+41, 2 

320  SYS  49152 

330  NR=PEEK (40959) 

340  ON  NR  GOTO  180,180,180,320,320,320,127 
0,1270,1270,1340, 1340,1340 
350  ON  NR- 1 2  GOTO  1410,1410,1410,320,320,1 
2BB  ,  1 200  ,  1 330 , 1 330  ,1420,1420 
360  ON  NR-23  GOTO  320,320,1290,1360,1430,3 
20,320,320, 1300,1370,1440 
370  ON  NR— 34  GOTO  320,320,320,1070,1150,12 
30,1080,1160,1240,320,3170,3170 
380  ON  NR-46  GOTO  320,320,320,1460,1470,14 
80,2840, 2840 , 320 , 320 , 320 
390  ON  NR— 57  GOTO  1490,3060,3060 
400  GOTO  320 

410  GOSUB  8740: REM  SEITE  3 

420  POKE  V+21 ,7: POKE  V+40,2:POKE  V+41, 2 

430  SYS  49152 

440  NR=PEEK (40959) 

450  ON  NR  GOTO  180,  1 80,  1B0 , 4880 , 3700 , 4200 
460  IF  NR=>7  AND  NR  <=2B  TMEN  3570 
470  GOTO  430 

1000  REM  +++  SPRUNGTABELLE  +++ 

1010  S=0:P=241:GOTO  1510 
1020  S=0: P=244: GOTO  1540 
1030  S=0: P=321 : GOTO  1550 
1040  S=0 : P=247 : GOTO  1560 
1050  S=0: P=401 : GOTO  1570 
1060  S=0: P=441 : GOTO  1580 
1070  S=0:TA=9:GOTO  3470 
1080  S=0: TA=9: GOTO  3280 
1090  S=1 : P=252: GOTO  1510 
1100  S= 1 : P=255 : GOTO  1540 
1110  S=1 : P=332: GOTO  1550 


<105> 
<144> 
<101> 
<073> 
<140> 
<  126> 
<092> 
<209> 
<232> 
<244> 

<086> 

<  004  > 

<022> 

<041  > 

<080> 

<  131  > 
<0 13> 
<235> 

<  1 15> 
<004> 

<  164> 
<033> 
<124> 

<  143> 

<212> 

<069> 

<072> 

<123> 

<004  > 

<  102> 
<  122> 
<002> 

<  1 43> 
<234> 
<253> 
<226> 

<  109> 
<216> 
<015> 

<  147> 
<043> 

<  168> 
<078> 
<186> 
<077> 
<013> 
<024> 
<251> 
<  147> 
<014> 


1120 

S=1 : P=258: GOTO  1560 

<  1  B0> 

1130 

S= 1 : P=4 12: GOTO  1570 

<032> 

1140 

S=1 : p=452: GOTO  1580 

<  179> 

1150 

S=1 : TA=20: GOTO  3470 

<244> 

1160 

S= 1 : T A=20 : GOTO  3280 

<254> 

1170 

S=2s  P=263: GOTO  1510 

<097> 

1180 

S=2s  P=266: GOTO  1540 

<249> 

1190 

S=2 : P=343 : GDTO  1550 

<  1 16> 

1200 

S=2 : P=269 : GOTO  1560 

<026> 

1210 

S=2 : P=423 : GOTO  1570 

<  134> 

1220 

S=2: P=463: GOTO  1580 

<025> 

1230 

S=2: TA=31 : GOTO  3470 

<090  > 

1240 

S=2: TA=31 : GOTO  32B0 

<100> 

1250 

S=0: TA=9: GOTO  1640 

<033> 

1260 

S=0:TA=B:GOTO  1820 

<233> 

1270 

S— 0: TA=3: BOTO  1960 

<010> 

1280 

S=0: TA=3: GOTO  2070 

<069  > 

1290 

S=0: TA=9: GOTO  2180 

<  1 88  > 

1300 

S=0: TA=3: GOTO  2300 

<24B> 

1310 

S=0: TA=8: GOTO  2410 

<  108> 

1320 

S= 1 : TA=20: GOTO  1640 

<095> 

1330 

S=1 : TA=19: GOTO  1820 

<01 1> 

1340 

S= 1 : T A= 14: GOTO  1960 

<067  > 

1350 

S=1 : TA=14: GOTO  2070 

<  171  > 

1360 

S-l : TA-20: GOTO  2180 

<  1 04  > 

1370 

S=1 :  TA=14 :  GOTO  2300 

<252> 

1380 

S=1:TA=19:G0T0  2410 

<219> 

1390 

S=2: TA=31 : GOTO  1640 

<  187> 

1400 

S=2: TA=30: GOTO  1820 

<065> 

1410 

S=2: TA=25: GOTO  1960 

<  159> 

1420 

S=2: TA=25: GOTO  2070 

<007> 

1430 

S=2: TA— 31 : GOTO  2180 

<  196> 

1440 

S=2 : T A— 25 : GQTO  2300 

<0BB> 

1450 

S=2:TA=30:GOTO  2410 

<017> 

1460 

P=842:L=1:MW=1:G0T0  3400 

<081  > 

1470 

P=B45 : L= 1 : MW=0 : GOTO  3400 

<156> 

1480 

P=B48: L=1 : MW— 2: GOTO  3400 

<104> 

1490 

P=922: L=7 : MW=3: GOTO  3400 

<0B8> 

1500 

: 

<206> 

1510 

REM  +++  WELLENFORMEN/SYNC/RING  +++ 

<059> 

1530  liZ  .3 )  =  1 — DE ( S  > : L= 1 : GOTO  1590 

<226> 

<001  > 

1540 

SZ(S)=1-SZ(S) :L=1:G0T0  1590 

<213> 

1550 

RE  <S) =1— RE (S) : L=1 : GOTO  1590 

<135> 

1560 

RA ( S ) = 1 —RA ( S ) : L=2 : GOTO  1590 

<085> 

1570 

RI ( S ) = 1 -R I ( S) : L=9 : GOTO  1590 

<251  > 

1580 

SY(S)=1-SY(S) :L=9 

<101> 

1590 

GOSUB  9820 

<  022  > 

1600 

WF(S)=SY(S)*2+RI (S)*4+DE(S)*16+SZ(S>* 
32+RE ( S ) *64+RA ( S ) * 1 28 

<  1 26  > 

1610 

POKE  WF+S , WF (S) +8: POKE  WF+S,WF(S) 

<023> 

1620 

GOTO  220 

<064> 

1630 

: 

<082> 

1640 

REM  +++  OKTAVE  +++ 

<212> 

1650 

s 

<  102> 

1660 

GOSUB  9430 

<060> 

1670 

PR  I  NT  "  C HOME ,  BDOWN ,  L I G .  GREEN  >  "  T AB  ( 34 )  " 
+OKT . C3D0WN, 5LEFT } +#  C2D0WN , SPACE  >  -#  <3 
DOWN , 5LEFT  J-OKT . " 

<  124> 

1 680 

WERT=OK(S) : JO=10:GOSUB  9530 

<1I2> 

1690 

IF  JO=0  THEN  OK (S) =0K (S>  — 12 

<246> 

1700 

IF  JO=20  THEN  OK  < S ) =QK ( S ) + 1 2 

<01  1> 

1710 

IF  J0=9  THEN  OK (S>  =0K (S) -1 

<006> 

1720 

IF  J0=l'l  THEN  OK  (S)  =0K  (S)  +1 

<2ii> 

1730 

IF  OK (S) <0  OR  OK (S) >=4B  THEN  OK(S)=WE 
RT 

<21  1  > 

1740 

POKE  WF+3+S.0KT (S) 

<190> 

1750 

PRINT" CHQME , 1 3D0WN , WH I TE  > "TAB ( TA) INT< 
OKT  (S)  / 1 2) 

<22S> 

1760 

PRINT  TAB (TA) N* ( INT (OK (S) - ( INT (OKT (S) 
/12> )*12> > 

<227> 

1770 

IF  BU  THEN  1680 

<  1 26> 

1780 

PR I NT " C2UP , PURPLE  >"TAB(TA)INT(OKT(S)/ 
12) 

<  197> 

1790 

PRINT  TAB (TA) N* ( INT (OK (S) - ( INT (OKT (S) 
/12>  >*12) ) 

<001> 

1800 

GOSUB  9440: GOSUB  9460: GOTO  220 

<222> 

1810 

s 

<008> 

1820 

REM  +++  PULSE  +++ 

<013> 

1830 

: 

<028> 

1840 

GOSUB  9430 

<242> 

1850 

PR I NT " CHOME , BDOWN , LI G . GREEN  > " TAB ( 35 ) " 
+4  C3D0WN , 3LEFT >+ 1 C2D0WN , SPACE  >- 1 C3D0W 
N,3LEFTJ— 4" 

<  147> 

Listing  1.  Das  Hauptprogramm  »Happysynth«.  Bitte  mit 

dem  Checksummer  V3  auf  Seite  16  eingeben. 
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«ijä 


Ul 


*4 


1860 

1870 

1880 

1890 


1900 


1910 


1920 

1930 


19*10 

1950 

1960 

1*970 

1980 

1990 

2000 

2010 

2020 


WERT=PU ( S) / 1 6 : JO=WERT 
GOSUB  9530: PU (S) =J0*16 
P 1  =  I  NT  ( PU  ( S )  /256 ) 

PDKE  WF+49+S ,PU (S) — Pl*256: PQKE  WF+52+ 
S,P1 

POKE  SI+3+S*7,Pl:P0KE  SI+2+B*7 , PU (S) - 
PI *256 

PRINT" {HOME ,BDOWN, WHITE} "TAB (TA) RIGHT 
*(STR*(INT(PU(S>/40.95>  )  ,2)  ;  "7." 

IF  BU  THEN  1870 

PR I NT " (UP , PURPLE  > " TAB ( TA ) R I GHT* ( STR* ( 
INT  (PU  .S)  /40.951  )  ,2) ;  "7." 

GOSUB  9440: GOSUB  9460: GOTO  220 


<096> 

<120> 

<047> 


<068> 


<015> 


<  140> 

<022> 


2030 

2040 


2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 


REM  +++  ATTACK  +++ 

: 

GOSUB  9430: GOSUB  9470 
WERT=A ( S ) : J 0=WERT* 1 6 
GOSUB  9530: A <S> =INT ( JO/ 16) 

POKE  SI+5+S*7,A(S)*16+D(S) 

PR I NT " {HOME , 6D0WN , RVSON , GREEN  > " T AB  <  TA 
>AD*(A(S> ) 

IF  BU  THEN  2000 

PR 1 NT " {UP , RVOFF , L I G . BLUE  > " TAB  <  TA ) AD* ( 
A  (S)  ) 

GOSUB  9440: GOSUB  9460: GOTO  320 


<  125> 

<  106> 

<  148> 
<252> 

<  168> 
<03B> 
<245> 

<  167> 

<  193> 


<  1 16> 
<  1B5> 


REM  +++  DECAY  +++ 


2140 

2150 


2160 

2170 

2180 

2190 

2200 

2210 


GOSUB  9430: GOSUB  9470 
WERT=D (S) : J0=WERT*16 
GOSUB  9530: D (S) =INT (JO/ 16) 

POKE  S I +5+S*7 ,  A  ( S )  *  1 6+D (S ) 

PRINT" {HOME , 8D0WN , RVSON , GREEN  >" TAB ( TA 
1R*(D'(S»> 

IlF  BU  THEN  2110 

PRl NT "  f UP , RVOFF , L I G . BLUE > " T AB ( T A  >  R* ( D 
CST  t 

GOSUB  9440: GOSUB  9460: GOTO  320 


<170> 

<090> 

<004> 

<033> 

<  124> 

<  150> 
<231  > 
<026> 
<049> 


<011> 

<170> 


REM  +++  SUSTAIN  +++ 


2220 

2230 

2240 

2250 


2260 

2270 


22B0 

2290 

2300 

2310 

2320 

2330 

2340 

2350 

2360 


GOSUB  9430 

PRINT” {HOME , BDOWN , L I G . GREEN  > " TAB ( 36 ) " 
+ 1 {2LEFT , BDOWN  >— 1 " 

WERT=S (S) : J0=WERT*16 
GOSUB  9530: S (S) =INT (JO/ 16) 

POKE  SI+6+S*7,S (S) *16+R (S) 

PR I NT " {HOME , 1 0DOWN , RVSON , GREEN  > " TAB ( T 
A-6) i "VOL. :  RIGHT* (STR* <S(S> ) ,2) 

IF  BU  THEN  2230 

PRINT" {UP, RVOFF, L I G. BLUE >" TAB (TA-6) ; " 
VOL.:  " ; RIGHT* (STR* (S(S) ) ,2) 

GOSUB  9440: GOSUB  9460: GOTO  320 


<056> 
<200> 

<  1 14> 
<17B> 

<  134> 
<092> 


<090> 
<230> 
<  161  > 
<235> 


<038> 

<165> 


REM  +++  RELEASE  +++ 


2370 

2380 


2390 

2400 

2410 

2420 

2430 

2440 


GOSUB  9430: GOSUB  9470 
WERT=R(S> : J0=WERT*16 
GOSUB  9530: R (S) =INT (JO/16) 

POKE  SI+6+S*7,S(S)*16+R(S) 

PR I NT " {HOME , 1 2D0WN , RVSON , GREEN  > " T AB ( T 
A)R*(R(S) ) 

IF  BU  THEN  2340 

PR I NT " {UP , RVOFF , L I G . BLUE  > " TAB  <  T A ) R* ( R 
(S)  > 

GOSUB  9440: GOSUB  9460: GOTO  320 
: 

REM  +++  FILTER  +++ 


<  179> 
<064> 
<234> 
<125> 
<000> 

<  126> 
<214> 
<016> 
<091  > 


<218> 
<  150> 


2450 


2460 

2470 

2480 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 


FE (S) =1— FE (S) :L=2 

POKE  S I +23 , RS* 1 6+FE ( 0  >  +FE ( 1 ) *2+FE ( 2 )  * 
4 

PRINT"  {HOME ,  16D0WNVTAB  (TA)  ;  FI*  (FE  <S) 
) 

GOTO  220 


<039> 
<  176> 
<090> 
<219> 
<110> 
<249> 


<177> 


REM  +++  HOCH-  BAND-  TIEFPASS  +++ 


HP=1— HP: P=763: GOTO  2530 
BP= 1 -BP : P=043 : GOTO  2530 
TP=1— TP: P=923 
L=7: GOSUB  9B20 

POKE  S I +24 , 1 5+HP*64+BP*32+TP* 1 6 
GOTO  220 


<081  > 
<142> 
<  160> 
<074> 
<1B0> 
<241  > 

<  176> 
<097> 
<207> 

<  199> 
<232> 
<252> 


2570 

2580 

2590 

2600 


REM  +++  FILTERFREQUENZ  +++ 


2610 

2620 

2630 


2640 

2650 


2660 


GOSUB  9430 

PR I NT " {HOME , BDOWN , L I G . GREEN  > " TAB ( 35 ) “ 
+++ {3DQWN , 4LEFT >+ {2D0WN , 3SPACE  >- <3D0W 
N,4LEFT> - " 

WERT=30+CO*5. G: JO=WERT/46. 4 
GOSUB  9530: IF  J0<-65  THEN  J0=.65 
IF  JOOWERT/46.4  THEN  CO=INT ( ( J0*46. 4 
-30) /5.B) 

C1=INT (CO/8) 

POKE  S I +22 , C 1 : POKE  SI+21 ,CO— Cl*8: POKE 
WF+16,C1 

PR INT“{H0ME,21 DOWN ,WHITE}"TAB(22) 5  R I B 
HT* ( " {3SPACE > " +STR* ( I NT ( CO*5 . 8+30 ) ) , 5 


<014> 

<016> 

<230> 


<002> 

<000> 

<030> 


<  102> 
<0B9> 


<0B7> 


) 


2670 

2680 


2690 

2700 

2710 

2720 

2730 

2740 


IF  BU  THEN  2620 

PRINT" {UP , PURPLE  > " T AB ( 22 ) 5  R I GHT * ( " <3S 
PACE  >  "  +STR*  ( I  NT  ( C0*5  -  8+30 )  )  ,  5  > 

GOSUB  9440: GOSUB  9460: GOTO  220 


<241  > 
<06S> 


REM  +++  FILTERRESONANZ  +++ 


2750 

2760 

2770 

2780 


2790 


2800 

2810 


2820 

2830 

2840 

2850 

2E‘" 

2870 

2880 

2890 

2900 


GOSUB  9430 

PR I NT " {HOME , BDOWN , L I G . GREEN  > " T AB  <  36 ) " 
+  1" 

PRINT"  {7D0WNVTAB  (36)  "-1" 

WERT =RS : JO=WFRT* 1 6 
GOSUB  9530: RS=INT (JO/16) 

PRINT” {HOME, 23D0WN, WHITE > "TAB (22) ; RIG 
HT* (STR* (RS) ,2) 

POKE  S 1+23, RS* 1 6+FE (0) +FE ( 1 ) *2+FE (2) * 
4 

IF  BU  THEN  2770 

PR I NT " {UP , PURPLE  > " T AB ( 22) ; R I GHT* (STR* 
(RS) ,2) 

GOSUB  9440: GOSUB  9460: GOTO  220 


<255> 

<0947 

<  136> 
<044> 

<  156> 

<  1 1 4> 


<  1 74> 

<226> 

<002> 

<235> 


<153> 


<017> 

<075> 


REM  +++  ENVELOPE-FOLLOW  +++ 


2910 

2920 


2930 

2940 

2950 

2960 

2970 

2980 

2990 


GOSUB  9430: GOSUB  9450 
WERT =PEEK ( WF +17) : JO=WERT 
GOSUB  9530: EF=JO 
POKE  WF+17 ,EF 

PR I NT " {HOME , 2 1 DOWN , WH I TE  > " T AB ( 30 ) ; R I G 
HT  * ( "  “+STR* (EF) ,3) 

IF  BU  THEN  2880 

PR I NT ” {UP , PURPLE  > " TAB ( 30 ) ; R I GHT* ( "  "  + 
STR* ( EF ) ,3) 

GOSUB  9440: GOSUB  9460:GOTO  320 


<200> 

<226> 

<012> 

<  197> 
<032> 

<  142> 
<082> 
<024> 
<231  > 


<253> 
<061  > 


REM  +++  VERSTIMMUNG  +++ 


3000 

3a  10 


3020 

3030 


3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 

3120 


GOSUB  9430: GOSUB  9450 
WERT=VS: JO=WERT 

GOSUB  9530 : VS= J 0 : 1 F  VS>99  THEN  VS=99: 
J0=99 

POKE  WF+6,VG 

PRINT"  CHOME,  1BDQWN.WI  UTE) - TflD < 3B ) RI QM 

T* (STR* (VS) ,2) 

IF  BU  THEN  2990 

PR  I  NT  *'  {UP ,  PURPLE  >  "  TAB  ( 30 )  R I  GHT*  ( STR*  ( 
VS) ,2) 

GOSUB  9440: GOSUB  9460: GOTO  1940 


<  151  > 
<208> 
<122> 

<  175> 

<  142> 
<252> 
<020> 


<242> 

<062> 


<013> 

<044> 


REM  +++  FILTER-MODULATION  +++ 


3130 

3140 


3150 

3160 

3170 

3180 

3190 

3200 

3210 

3220 

3230 


GOSUB  9430: GOSUB  9450 
WERT=PEEK(WF+19) : JO=WERT 
GOSUB  9530: MF=JQ 
POKE  WF+19,MF 

PR I NT " {HOME , 23D0WN , WH I TE  > " T AB ( 30 ) ; R I G 
HT  * ( "  "+STR* (MF)  ,3) 

IF  BU  THEN  3100 

PRINT" {UP, PURPLE! "TAB (30) ;RIGHT*("  "+ 
STR* (MF) ,3) 

GOSUB  9440: GOSUB  9460: GOTO  320 


<  180> 

<01 2> 
<232> 
<17B> 
<252> 
<108> 
<  1 13> 
<254> 
<214> 


<063> 
<207  > 


REM  +++  MODULATION:  SPEED  +++ 


GOSUB  9430: GOSUB  9450 
WERT=PEEK (WF+34) : JO=WERT 
GOSUB  9530: SP=JO 
POKE  WF+34, SP 

PR I NT " {HOME , 1 BDOWN , WH I TE } ” T AB ( 30 ) ; R I G 
HT  * ( "  " +STR* ( SP ) , 3 ) 


<  181  > 

<  174> 
<0BB> 
<100> 
<10B> 
<218> 
<094> 

<  134> 

<  1 1 8> 


<  1 19> 


50 


r^CTsfsT 


C  64 


Anwendung 


3240 

IF  BU  THEN  3210 

<  1 9 1  > 

3930 

GOTO  3910 

<252> 

3250 

PRINT" {UP, PURPLE! "TAB (30) ;RIGHT*("  "+ 

3943 

IF  D*=" "THEN  POKE  204,1:GOTO  410 

<  137> 

STR* (SP) ,3) 

<244> 

3950 

PR INT".": POKE  204 , 1 : D*=LEFT* <  D*+ " _ 

3260 

GOSUB  9440: GOSUB  9460: GaTO  320 

<028> 

. '\12> 

<249> 

3270 

s 

<  19B> 

3960 

UE*~  "  "  :  u*-  "  ABGESPE I CHERT . " 

<096> 

3280 

REM  +++  PWM-MODULATION  +++ 

<194> 

3970 

CLOSE  1 : OPEN  1 , 8, 2,UE*+"HSY. "+D*+" , S , 

3290 

<21B> 

W": GOSUB  10820 

<227> 

3300 

GOSUB  9430: GOSUB  9450 

<072> 

3980 

IF  ER=63  THEN  4030 

’.014> 

3310 

WERT=PEEK (WF+40+S) : JO=INT (WERT/2. 5757 

3990 

IF  ER  THEN  PRINT" {2D0WN>" 

<087  > 

) 

<  189> 

4000 

IF  ER  AND  B*=" J "THEN  3970 

<251  > 

3320 

GOSUB  9530: IF  J0>99  THEN  J0=99 

<003> 

4010 

IF  ER  THEN  ER=0: CLOSE  1 : GOTO  410 

<025> 

3330 

PW (S) =INT ( J0*2. 5757) +1 

<025> 

4020 

GOTO  4080 

<  175> 

3340 

POKE  WF+40+S  ,F’W  (S) 

<12B> 

4030 

PRINT" {DOWN , R I GHT , GRE Y  3  JUEBERSCHRE I B 

3350 

PRINT"  (HOME ,  1 6D0WN , WHITEJ"TAB (TA)  ;RIG 

EN {2SPACE  >? " ; 

<217> 

HT* (STR* ( INT (PW (S) /2. 5757) ) ,2) 

<  120> 

4040 

POKE  198,0 

<  13B> 

3360 

IF  BU  THEN  3320 

<204> 

4050 

GET  A*: IF  A*<  >"N" AND  A*<>"J"AND  A*< >C 

3370 

PR INT " CUP , PURPLE  > " T AB ( T A ) ; R I GHT* ( STR* 

HR* (13) THEN  4050 

<135> 

( INT (PW (S) /2. 5757) > , 2) 

<107> 

4060 

IF  A*="N"THEN  PRINT"  NEIN" : ER=0: CLOSE 

3380 

GOSUB  9440: GOSUB  9460: GOTO  320 

<  150> 

1 : GOTO  410 

<055> 

3390 

s 

<064> 

4070 

PRINT"  JA" : UE*="@: " : U*="UEBERSCHRIEBE 

3400 

REM  +++  MODULATION-WELLENFORM  +++ 

<  167> 

<  171  > 

3410 

■ 

<084> 

s 

CD 

S 

PRINT" (DOWN, RIGHT, GREENJSOUND  WIRD  "U 

3420 

FOR  1=842  TO  849:P0KE  FR+I,2:P0KE  FR+ 

* 

<  109> 

1+80,2:  NEXT 

<064> 

4090 

FOR  1=0  TO  2: P1=INT (PU ( I ) /256) : AD ( I ) = 

3430 

FOR  1=0  TO  L: POKE  FR+P+I ,5: NEXT 

<24B> 

A(I) *16+D ( I > : SR ( I ) =S ( I ) *16+R ( I ) 

<030> 

3440 

POKE  WF+33,MW 

<227> 

4100 

PRINTttl , CHR* (WF ( I )  )  ; CHR* (OK ( I > ) 5  CHR* ( 

3450 

BOTO  320 

<124> 

PU ( I ) -PI *256) ; CHR* (PI); 

<  156> 

3460 

: 

<  134> 

4110 

PRINTttl, CHR* ( AD ( I ) ) ; CHR*  <  SR ( 1 ) > ; CHR* ( 

3470 

REM  +++  VIBRATO  +++ 

<212> 

FE(I) ) ;CHR*(PW(I) ) ; CHR*( VI «I > ) ; 

<069> 

3480 

: 

<  154> 

4120 

NEXT  I 

<  140> 

3490 

GOSUB  9430: GOSUB  9450 

<00B> 

4130 

C1=INT (CO/256) 

<007> 

3500 

WERT=PEEK (WF+64+S) : JO=WERT 

<  172> 

4140 

PRINTttl  ,CHR*(HP*4+BP*2*TPI>  ;CHR*(GQ-C1 

3510 

GOSUB  9530: VI (S)=JO:IF  VI(S>>99  THEN 

*256)  ;  CHR*  (CI ) ;  CHR*  (RS)  ;  CHR* i.VS)' ; 

<246> 

VI (S>=99: J0=99 

<217> 

4150 

PRINTttl , CHR* (EF) ;CHR*(MF) ;CHR*(MW) ;CH 

3520 

POKE  WF+64+S.VI (S) 

<005> 

R* (SP) ; CHR* (RG) 

<167> 

3530 

PR I NT " {HOME , 1 4DOWN , WH I TE  > " T AB ( T A  > ; R I G 

4160 

CLOSE  1 

<  107> 

HT* (STR* (VI (S) ) ,2) 

<000> 

4170 

C*=" " : IF  UE*=" "THEN  F=F+1 : FF* (F) =D*: I 

3540 

IF  BU  THEN  3510 

<110> 

F  F=33  THEN  F=32 

<217> 

3550 

PR I NT " <UP , PURPLE  > " T AB ( TA ) ; R I GHT* ( STR* 

4180 

GOTO  410 

<084> 

(VI  (S)  )  ,2) 

<21 1  > 

4190 

3 

<102> 

3560 

GOSUB  9440: GOSUB  9460: GOTO  320 

<074} 

4200 

REM  +++  LOAD  -  ROUTINE  +++ 

<229> 

3570 

: 

<244> 

4210 

: 

<122> 

3580 

REM  +++  ENDE  +++ 

<193> 

4220 

POKE  V+3 ,65: POKE  V+5,107:POKE  V+21, 6 

<070> 

3590 

: 

<010> 

4230 

A*="c;{GREY  3,RVS0N,SPACE>S  0  U  N  D{2S 

3600 

POKE  V+21 , 0: POKE  198,0 

<214> 

PACEJV  0  N{2SF’ACE>D  I  S  K.{2SPACE>L  A 

3610 

PRINT" CHOME, 7D0WN , R I GHT , 25SPACE > " 

<224> 

D  E  N {SPACE, RVOFF, LIG. BLUE >" 

<043> 

3620 

PR I NT " <R I GHT , L I G . GREEN , 7SPACE >S I ND  S I 

4235 

A1*="={GREY  3 , RVSON , 5SPACE >S  0  U  N  D{ 

E  SICHER  ???" 

<  199> 

5SPACEJL  ADE  N{4SPACE, RVOFF, LIG. BLU 

3630 

PR I  NT  "  {R I  GHT , 25SPACE > " 

<214> 

EJ={5SPACE>" 

<  1 18> 

3640 

GET  A*:IF  A*<>"J"AND  A*<>"N"THEN  3640 

<046> 

4240 

GOSUB  10030 

<092> 

3650 

IF  A*="N"THEN  410 

<170> 

4250 

PRINT“ {HOME, 13D0WN, RIGHT, GREENJSOUND! 

3660 

POKE  53280, 14: POKE  5328 1,6: POKE  198,0 

SPACE , LI G . RED > " D* " {SPACE , GREEN JW I RD  G 

: POKE  808,237: POKE  2,0 

<254> 

ELADEN. {3UP,LIG. BLUEJ" 

<000> 

3670 

PR INT" <CLR ,LIG.BLUE>“; 

<  154> 

4260 

CLOSE  1 : OPEN  1 ,B,2, "HSY. "+D*+" ,S,R" : G 

3680 

FOR  1=1  TO  100:  NEXT 

<106> 

OSUB  10820 

<  183> 

3690 

SYS  64767 

<002> 

4270 

IF  ER  AND  B*="J"THEN  4260 

<233> 

3700 

• 

<120> 

4280 

IF  ER  THEN  ER=0: CLOSE  l:GOTO  410 

<041  > 

3710 

REM  +++  SAVE  -  ROUTINE  +++ 

<200> 

4290 

FOR  1=0  TO  2 

<165> 

3720 

B 

<140> 

4300 

BETttl  ,A*:  GOSUB  9730:  WF  ( I )  =A7. 

<  137> 

3730 

POKE  198 , 0: POKE  V+21,0:D*="" 

<034> 

4310 

GET# 1,A*: GOSUB  9730: OK ( I ) =AX 

<  148> 

3740 

PR I NT " {HOME , 1 1 DOWN , R I GHT  >" j 

<153> 

4320 

GETttl.A*:  GOSUB  9730:  PU  ( I )  =A7. 

<041  > 

3750 

PRINT" <GREY  3,RVS0N,2SPACE>S  0  U  N  D{ 

4330 

GET#  1 ,  A* :  GOSUB  9730:  PU  ( I )  =PU  ( I )  +A7.*25 

2SPACEJS  P  E  I  C  H  E  R  N{2SPACE,RV0FF 

6 

<  199> 

, LIG. BLUE>" 

<124> 

4340 

GET#  1,A*:  GOSUB  9730:  AD  ( I )  =A7. 

<  164> 

3760 

PRINT" 

4350 

GETttl.A*:  GOSUB  9730:  SR  ( I )  =A7. 

<197> 

öH" 

<004> 

4360 

GETttl.A*:  GOSUB  9730:  FE  <  I  >  =A7. 

<062> 

3770 

FOR  1=0  TO  9 

<02B> 

4370 

GETttl.A*:  GOSUB  9730:  PW  ( I )  =A7. 

<095> 

3780 

PR I NT " {R I GHT , 32SPACE  > " 

<108> 

4380 

GETttl.A*:  GOSUB  9730:  VI  ( I )  =A7. 

<094> 

3790 

NEXT : PRINT" {9UP>"; 

<079> 

4390 

NEXT  I 

<  156> 

3800 

PRINT" {GREEN, RI GHT) NAME  DES  SOUNDS  ?{ 

4400 

GET#  1  ,A*:  GOSUB  9730:  Q=A7.:  HP=  (Q  AND  4) 

SPACE ,  RED  > . {1 2LEFT  >  " ; 

<065> 

/4:  BP=  (Gl  AND  2)/2:TP=Q  AND  1 

<  155> 

3810 

GET  C*: POKE  204,0 

<23B> 

4410 

GETttl.A*:  GOSUB  9730:CO=A7. 

<049> 

3830 

IF  C*=CHR* (20) THEN  D*="":POKE  204 , 1 : P 

4420 

GET#  1  ,A*:  GOSUB  9730:  C0=C0+A7.*256 

<  121  > 

R I NT " {UP  > " : GOTO  3800 

<221  > 

4430 

GETttl.A*:  GOSUB  9730:RS=A7. 

<209> 

3B40 

IF  C*=CHR* (13) THEN  3940 

<250> 

4440 

GET#  1  ,A*:  GOSUB  9730:VS=A7. 

<221  > 

3850 

IF  C*< "#"OR  C*>"Z"THEN  3B10 

<  1 13> 

4450 

GETttl.A*: GOSUB  9730:EF=A7. 

<0B1  > 

3855 

IF  C*= "*"OR  C*=","OR  C*=" : "OR  C*="?"0 

4460 

GETttl.A*: GOSUB  9730:MF=A7. 

<095> 

R  C*="@"THEN  3810 

<150> 

4470 

GET#  1  ,A*:  GOSUB  9730:MW=A7. 

<122> 

3860 

PRINT  C*; : POKE  204,1 

<  13B> 

4480 

GETttl.A*: GOSUB  9730:SP=A7. 

<  12B> 

3870 

D*=D*+C* 

<010> 

4490 

GETttl.A*:  GOSUB  9730:RG=A7. 

<001  > 

3880 

IF  LEN (D*) <11  THEN  3810 

<237> 

4500 

CLOSE  1: CLOSE  15 

<094> 

3890 

IF  LEN (D*) >11  THEN  3910 

<021  > 

4510 

FOR  1=0  TO  2 

<  131  > 

3900 

GOTO  3810 

<206> 

4520 

R A ( I ) = ( WF ( I ) AND  128) /128 

<241  > 

3910 

GET  C*:IF  C*=CHR* (20) THEN  D*="":POKE 

204, 1 : PRINT" {UP>": GOTO  3800 

<238> 

3920 

IF  C*=CHR* (13)  THEN  3950 

<138> 

Listing  1.  »Happysynth«  (Fortsetzung) 

Anwendung 


C  64 


4530  RE(I)  =  (WF(I> AND  64) /64 
4540  SZ ( I )  =  <WF ( I ) AND  32) /32 
4550  DE ( I )  =  ( WF ( I ) AND  16)/ 16 
4560  RI  <  I  >  =  < WF  <  I )  AND  4) /4 
4570  SY ( I ) = ( WF ( I ) AND  2) /2 
4500  A  <  I )  =  < AD ( I ) AND  2401/16 
4590  D  < I ) =AD ( I ) AND  15 
4600  S ( I )  =  <SR ( I ) AND  2401/16 
4610  R ( I ) =SR ( I ) AND  15 
4620  NEXT  I 
4630  : 

4640  REM  +++  SOUND  INITIALISIEREN  +++ 

4650  s 

4660  FOR  S=0  TO  2 
4670  POKE  WF+3+S.0KT  <3) 

4600  POKE  SI+5+S*7,AD(S) 

4690  POKE  SI+6+S*7,SR<S> 

4700  POKE  WF+40+S,PW(S> 

4710  POKE  WF+64+S.VI <S> 

4720  WF (S) =SY (S) *2+RI (S) *4+DE  <S>  *16+SZ <S) * 
32+RE  ( S )  »64+RA  ( S )  *  1 20 
4730  POKE  WF +S , WF ( S ) +0 : POKE  WF+S,WF<S> 

4740  P1=INT  CPU(S) /256) 

4750  POKE  WF+49+S , PU (S) -PI *256: POKE  WF+52+ 
S,P1 

4760  POKE  S I +3+S*7 , P 1 : POKE  SI+2+S*7 ,PU <S) - 
PI *256 
4770  NEXT  S 

4700  POKE  SI+23, RS*16+FE (0) +FE ( 1 ) *2+FE (2) * 
4 

4790  POKE  SI+24, 15+HP*64+BP*32+TP*16 
4000  C1=INT (CO/0) : POKE  SI+22 ,C1 : POKE  51+21 
, CO— C 1 *8 : POKE  WF+16,C1 
4010  POKE  WF+17.EF 
4020  POKE  WF+6.VS 
4030  POKE  WF+17,EF 
4040  POKE  WF+34 , SP 
4045  POKE  WF+19,MF 
4050  POKE  WF+33 ,  MW 
4060  GOTO  410 
4070  : 

4000  REM  +++  SOUND  LOESCHEN  +++ 

4890  : 

4900  POKE  V+3, 65: POKE  V+5, 107: POKE  V+21,6 
4910  A*="-{GREY  3,RVS0N,5SPACE}S  0  ü  N  D(4 
SPACE >L  0  E  S  C  H  E  N {5SP ACE , RVOFF , LI 
G.BLUE}" 

4915  A1*="-{GREY  3,RVS0N,2SPACE>S  0  U  N  D{ 
4SPACEJL  0  E  S  C  H  E  N {2SPACE , RVOFF ,L 
IG.BLUE>3<5SPACE>" 

4920  GOSUB  10030 

4930  PRINT" CHOME, 13D0WN, RIGHT, GREEN}SOUND{ 
SPACE , L I G . RED  } " D* " {SPACE , GREEN  JLOEBCH 
EN  ?"; 

4940  POKE  190,0 

4950  GET  Ai: IF  A*="N"THEN  410 

4960  IF  A*<>"J"AND  A*< >CHR* ( 13) THEN  4950 

4970  PRINT" {WHITE, SPACEJJA" 

+  CLDBE  X  s  OPEN  l  ,  O  ,  1  3  ,  "  S  :  HS  Y  .  "  +D*  :  GOSUB 

10020 

4990  IF  ER=1  AND  LO=l  THEN  FF* ( Z 1 > =FF* (F) : 

FF* (F) ="" : F=F- 1 : GOTO  5020 
5000  IF  ER=1  THEN  PRINT" {DOWN, RIGHTJSOUND 
GESCHUETZT  ! ":PRINT" {DOWN , R I GHT  >NOCHM 
AL  ?" ; : GOTO  4950 
5010  IF  B*=" J "THEN  4980 
5020  ER=0: CLOSE  lsGOTO  410 
7000  ==»e=====  =  *ai  =  =  ====  ===i==========e=:a= 

7010 

7020  ===  UNTERPROGRAMME  == 
7030  — mmmmmmmmm  ==  ====,== 

7040  =  =  ==‘========  ============:==tB=======* 

7050  : 

7060  REM  +++  TITELBILD  +++ 

7070  : 

7000  IF  PEEK  <2)  =  1  OR  PEEK<2)=2  THEN  RETURN 
7090  POKE  53280,0: POKE  53201,0 
7100  PRINT" £CLR,CTRL— H , GREEN >" ; CHR* (142) ; 
7110  PR  INT" 

»<***♦»»" 

7120  PRINT" {ORANGE, RVSON, SPACE}-{SPACE,RIG 
HT  }£  ? {RI GHT  ,  2SPACE }?{RI GHT  ,  2SPACE}?{ 
R I  GHT ,  SP ACE  >  -  {SPACE ,  R I  GHT  },£S?{R  I  GHT ,  S 
PACE  >=<SPACE , R I GHT  >Ü£2SPACE , R I GHT , 3SP 
ACE, RIGHT, SPACE>=  " 

7130  PRINT" £R VSON , 3SP ACE , RIGHT, SPACEJf {SPA 


<  1S0> 

<  174> 
<007> 
<021  > 

<  154> 
<201  > 
<214> 
<003> 
<059> 

<  132> 
<034> 
<004> 
<054> 

<  107> 
<072> 
<000> 

<  1 25  > 
<218> 
<101> 

<  198> 
<095> 

<  1 1 3> 

<  134> 

<081  > 
<106> 

<231  > 

<  163> 

<057> 

<  1 17> 

<  104> 

<  137  > 
<214> 

<  169> 

<  1 1 1  > 
<000> 
<020  >'~ 
<079> 
<040 > 
<244> 


<092  > 


<245> 

<010> 


<  177> 
<022  > 
<133> 
<007  > 
<001  > 

<094  > 

<056> 


<  165> 
<208> 
<253> 
<221  > 
<231  > 
<027> 
<251  > 
<005> 
<160> 

<  1 50  > 

<  188> 
<060> 
<104> 
<150> 

<  1 16> 


<079> 


CE , R I GHT , SPACE  >T<RVOFF  }£{RVSON , R I GHT , 
SPACE  >T {RVOFF  >£{R  I  GHT }?{RVSON  ,  Sf?ACE  ,  R 
VOFF  >£<RIGHT  }?{RVSON ,  SPACE  }»  {RIGHT  ,RV' 
OFF  >  ?{R VSON , SPACE , RVOFF } £{RVSQN , R IGHT 
, SP ACE }fl {SPACE , 2R I GHT , SPACE , 2R I GHt , 3S 
PACE}" 

7140  PRINT " {RVSON , SPACE}^{SPACE .RIGHT, SPAC 
E }= {SPACE , R I GHT , RVSON , SPACE , 3R I GHT , SP 
ACE , 4R I GHT , SPACE , 2R I GHT , RVOFF }?{RVSQN 
)T  £RVOFF }£{2RI GHT , RVSON, SPACE , 2RIBHT , 
2SPACE }ß {2R I GHT , SP ACE , 2R I GHT , SPACE  >3  < 
SPACE, GREEN>" 

PRINT"  .«»♦  »  »  »  « _«W  »  »  »  « 


7150 

7160 

7170 

7100 

7190 

7200 

7210 

7220 

7230 

7240 

7250 


7270 

7280 

7290 

7300 

7310 

/3  20 

7330 

7340 

7350 


7360 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 


PRINT" {RVSON , GRE Y  2,1 0SPACE , RVOFF , 4SP 
ACE.GREY  2} VERS ION  1.0" 

PRINT"  {RVSON, GRE Y  2 } fWffYYYW {RVOFF , 
4SPACE , BREY  2IYWYYYYYYYV" 

PRINT" {GREY  2I0WER {RED  }fi  {RVSON , GREY  2 
}  +'+"+'+"+'" 

PRINT"  {RVSON, GREY  2 } mVffmT" SPC  ( 2 1 
) " {RVOFF, WHITE}?" 

PR I NT " {GRE Y  2 , RVSON , 1 0SPACE } " SPC ( 20 ) " 
{RVSON, RED }£  ?" 

PRINT"  {GREY  2 , RVSON }'T't*l'T*T'T'T"TVl>" SPC  ( 20 
> " {RED , RVSON , 3SP ACE } " 

PRINT" {RVSON, GREY  2 , 1 0SPACE , GREY  2,RV 
OFF  }fi£YI15"  SPC  (15)"  {RED }?{RVSON ,  SPACE , 
RVOFF }£" 

, RVOFF , 4SPACE 1TKGREY  1 , RVSON , 5SPACE }? 
"SPC ( 10) " {GREY  3, SPACE}“ 

PRINT" £GREY  2 , RVSON , SPACE } ?{R VOFF }UUU 
£RVS0N}F{3SPACE } -{GRE Y  2 , RVOFF }££?HT{ 
5SPACE ,  GREY  1  }5f {RVSON}?" SPC  < 9 )  "  £GREY 
3, SPACE}" 

PRINT" {GREY  2, RVSON, SPACE, RVOFF }3F  IT 
{RVSON , 3SPACE}— {RVOFF , LIG. BLUE ,5SPACE 
>PORT  2 {GREY  1 }?{RVSON}?£4RIGHT,RED,R 
VOFF}-p?{RIGHT,GREY  2,RVS0N}£  ?" 

PRINT" {GREY  2, RVSON, SPACE }£{GREY  1,RV 
OFF ItTETcKGREY  2  , RVSON >V{3SPACE>-{RV0FF 
, GREY  1 , 1 2SPACE }?{RVSON }?" SPC ( 2 ) " {BRO 

PRINT" {GREY  2, RVSON, SPACE }?<GREY  1,RV 
OFF  ITfiTIKGREY  2 , RVSON }?£3SPACE }-{RVOFF 
, 1 3SPACE , GREY  1 )¥ {RVSON , 2SPACE , BROWN } 

PR INT "{GREY  2 , RVSON , SPACE , RVOFF }5F  3? 
{RVSON , 3SPACE }=" SPC  < 1 6 ) " {BROWN , RVOFF } 
?  {RVSON , 9SPACE , RVOFF }£" 

PRINT" {GREY  2,RVS0N,SPACE}?{GREY  1,RV 
OFF}OT?{GREY  2 , RVSON } V {3SP ACE } — 

PR I NT " {GREY  2 , RVSON , SPACETTKRVOFF , GRE 

Y  1>UU0<BREY  2,RVS0N}F{3SPACE}= 

PRINT" {GREY  2, RVSON, SPACE, RVOFF iW  5? 
{RVSON , 3SPACE }^£RVOFF , LI G . BLUE , 2SPACE 

PK  INI  " {BREY  2,  RVSON,  SPACE  >1?  {GREY  1,RV 
OFF }  rffff£GREY  2 , RVSON } V£3SPACE }^{RVOFF 
, L I G . BLUE , 2SPACE }={3SPACE , L I G . GREEN }H 
AF'PYSYNTH {GREY  3, SPACE}  <C>  1985{3SPAC 
E,LIG.BLUE}=" 

PRINT" {GREY  2,RVS0N,SPACE}?{RV0FF,GRE 

Y  1}UUU{GREY  2 , RVSON }? {3SPACE }- {RVOFF 
,LIG.BLUE,2SPACE}={GREY  3}CHRISTIAN  □ 
UIRIN  SPITZNER{LIG.BLUE}=" 

PRINT"  {GREY  2, RVSON, SPACE, RVOFF I'SF  7T 
{RVSON , 3SPACE }={RVOFF , L I G . BLUE , 2SPACE 
}={GREY  3,4SPACE}Sc  BERNHARD  CARLI  {5SP 
ACE,LIG.BLUE}=" 

PRINT" {GREY  2,RVS0N,SPACE}^{GREY  1,RV 
OFF } TT3? {GREY  2 , RVS0N}V<3SPACE}={RV0FF 
,  L I G .  BLUE ,  2SPACE  } 

±ÄJUUL£?{UP}" 

RETURN 

REM  +++  START  +++ 


<200> 

<  145> 

<  156> 
<074> 

<  1 19> 
<217> 

<  160> 
<090> 
<025> 

<104> 

<027> 

<212> 

<  193> 

<213> 

<  155> 

<  122> 
<014> 
<200> 

<  108> 

<061> 

<227> 

<150> 


IF  PEEK (56320) =111  THEN  7470 
PRINT " {HOME , 1 4D0WN } " TAB ( 27) T* (T 1 ) 

IF  T+40<TI  THEN  T=TI:T1=1-T1 
GOTO  7430 

PR  I  NT  "  {C L R  }  T-*-*-*-*-*-*-*-*-*-*-*-*-******-*-***-* » » 

; 

7480  FOR  1=1064  TO  1944  STEP  40: POKE  1,93: 


<092> 
<050> 
<008> 
<  124> 
<028> 
<241  > 
<093> 
<028> 
<242> 

<252> 
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Anwendung 


7490 


7500 

7510 

8000 

8010 

8020 


8030 


8040 


8050 

8060 


8070 


8080 

8090 


POKE  I+39,93:PRINT:NEXT 
PRINT" 

POKE  2023,125 
RETURN 

REM  +++  SEITE  1  +++ 

: 

PR I NT " (L I G . BLUE  J^IGREEN , RVSON  )OSZ I LLA 
TOR  CR VOFF , L I G . BLUE  > cHUELLKURVE-TASTAT 
UR  C2SPACE }=CYELLOW> JOY- (SPACE , L I G . BLU 
E>=", 

PR I NT " =(GREEN , RVSON )&  FILTER (2SPACE , R 
VOFF , L I G . BLUE )  JiODUL AT I  ONcJ)  I SK-MENUE= 
(YELLOW >ST I CK (LI G . BLUE)="  ; 

W.WW.B" ; 

PR  I  NT  •' =(WH  I TE ,  2SPACE  >DCO  1  (SPACE ,  L I G . 
BLUE , 2SPACE )=(SPACE , WHI TE , SPACE  >DCO  2 
(SPACE , L I G . BLUE , 2SPACE  ) =(SPACE , WH I TE , 
SPACE  >DCO  3 (SPACE , L I G . BLUE , 2SPACE  >=" 
PRINT"  O.W>AW.»*L*«A«*AWA^A«AW.»» 
SSU" 

FRINT";;";  ! FOR  1=0  TO  2 
PRINT  F*(DE(I)  )"Kü"F*(SZ(I)  )"  Hfl"F*(R 
T3FT(L  I G .  BLUE ,  SPACE  >3" ; : NEXT : PR 


8110 
Bl  20 


8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 


PRINT"="; :FOR  1=0  TO  2 
PRINT  F* (RE ( I >  >  "fii.(SPACE,  PURPLE  )PW:  " 
RIGHT*  (STR*  (INT  (PU  (1 1/40.95) )  ,2)  "7. (LI 
G.BLUE)^"; : NEXT: PRINT 

print"  git**.**.*.*.*^^^^ 

SSÜ" 

PRINT"c"F* (RI (0) ) "RINGMOD.  3(LIG. BLUE 
>="i 

PRINT  F*(RI (1) ) "RINGMOD.  1(LIG.BLUE>= 


PRINT  F* (RI (2) ) "RINGMOD.  2<LIG.BLUE>- 


PRINT"c"F* (SY (0) ) "SYNCHRO.  3(LIG. BLUE 
>-' 5 

PRINT  F*(SY(1) ) "SYNCHRO.  1  (LIG.  BLUE);c 


PRINT  F* (SY (2) ) "SYNCHRO.  2(LIG.  BLUE);c 


8210 

8220 


8230 

8240 


8250 

8260 


B290 


8300 

8310 

8320 


B330 

8340 


8350  PRINT" 


<  131  > 


<210> 
<009> 
<202> 
<01B> 
<  1 1 2> 


<093> 


<081  > 


<  197> 
<071  > 


<  179> 


<22B> 

<063> 


A(I)  ) 

INT 

8100  PR I NT " - ( 1 0SPACE >^( 10SPACE>=( 1 0SPACE)= 


<200> 


<120> 

<093> 


<132> 

<032> 

<217> 

<2!öfcn 


<  177> 
<013> 
<219> 

<  145> 


PRINT"  TT**,**.***.**.*^^^^ 
öB" 

PRINT"="; :FOR  1=0  TO  2 

PRINT" (PURPLE JOKT AVE:  " INT (OKT ( I ) /12) 

" (LEFT , L I G. BLUE  >n" NEXT:  PR I NT 
PRINT"="i :FOR  1=0  TO  2 
PRINT" (PURPLE)TONART :  "N* ( INT (OK ( I ) - ( 
I NT (0K(I)/12) )*12) ) " (LIG. BLUE )=";  :NEX 
T: PRINT 

Jtsxi" 

PRINT"=(LIG.RED)FILTER  "FI*(FE(0) ) " (L 
IG.BLUE>=(LIG.RED)FILTER  "FI*(FE<1> ) " 
(LIG.BLUE)=(LIG.RED)FILTER  "FI* (FE (2) 

) " <LIG.BLUE)=" 

PRINT"  (ORANGE }®±Wü3tÄiÄütt(L IG.  BLUEldt 


<147> 

<072> 


<042> 

<092> 


<221  > 
<  197> 


<  103> 
<070> 


PRINT" (ORANGE  )=(WH I TE ) F (ORANGE )  =  CBSPA 
CE,  ORANGE  );c(PURPLE)DCO  VERSTIMMUNG: (2 
SPACE)"RIGHT*  (STR*  (VS)  ,2)  "  (SPACE, LIG. 
BLUE)=“ 

PRINT" (ORANGE )=(WHITE)I CORANBE)="F* (H 
P)  "HOCHPASS  (ORANGE ?  q< 

ÜJtiB" 

PR I NT " (ORANGE  (WH I TE } L (ORANGE  >^(8SP A 

CE >3(21 SPACE >=" 

PRINT" COR ANGE }- CWH I TE } T (ORANGE }=" F* ( B 
P) "BANDPASS (ORANGE >3" 5 
PR I NT " (PURPLE  5FREQUENZ :  " J  R I GHT* ( " (3S 
PACE>"+STR*(INT(CO*5.8+30) ) ,5) ; "  HERT 
Z (ORANGE >=" 

PR I NT " (ORANGE ) =(WH I TE )E (ORANGE )^ (BSP A 
CE  >=(21  SPACE  )=" 

PRINT"  (ORANGE >^(WHI TE >R (ORANGE  )zl" F*  ( T 
P) "TIEFPASS (ORANGE )-(PURPLE I RESONANZ : 
"RIGHT* (STR* (RS) ,2) " (9SPACE,0RANGE)= 


<222> 


<  135> 

<  163> 
<081  > 


<  196> 
<255> 


<215> 


8360 

8370 

B3B0 

8390 

8400 


dt£(L  IG.  BLUE  >  F.*.».*.*.«.  (HOME  J  " 
RETURN 


REM  +++  SEITE  2  +++ 


<  133> 

<  197> 
<038> 
<007> 
<05B> 


PRINT"  (HOME , LIG.  BLUE > 


<  173> 


8410 


8420 


8430 

8440 


8450 

8460 


8470 

8480 


8490 

8500 


8510 

8520 


PRINT" (LIG. BLUE);cOSZILLATORc;  (GREEN, RV 
SON  JHUELLKURVE (RVOFF , L I G . BLUE )=T AST AT 
UR (2SPACE }=(YELLOW  > JOY- (SPACE , L I G . BLU 
E>="; 

PRINT"c*  FILTER (2SPACE)c(GREEN, RVSON) 
MODUL AT I ON (RVOFF , L I G . BLUE )=D  I SK-MENUE 
^(YELLOW  )  ST  I  CK  (L I G .  BLUE  )^" 

PRINT" 

PRINT"c;C2SPACE ,  WHITE) ADSR  1  (LIG.  BLUE, 
2SPACE )=(2SPACE , WH I TE ) ADSR  2 (L I G . BLUE 
, 2SPACE ) = (2SP ACE , WH I TE ) ADSR  3 (L I G . BLU 
E,2SPACE)=" 

ifiW" 

PR I NT " ^ (WH I TE ) A (L I G . BLUE )=" ; AD* ( A ( 0 ) ) 

;  "^(WHITE)A  (LIG.  BLUE)c;"  ;  AD*  ( A  ( 1  >  )  ;  "=C 
WHITE)A(LIG.BLUE)="; AD*(A(2) ) ;  "=" 

PR  I  NT  " 

aß" 

PRINT"=(WHITE)D(LIG.BLUE)=";R*(D(0) ) ; 
"=(WHITE)D(LIG.BLUE)=";R*(D<1) ) ; "=(WH 
ITE)D(LIG.BLUE)^";R*(D(2) ) ; "=" 

PR  I  NT"  «_»»««+  «+«»««»««»+»+«»*«-»« 

3tiW" 

PRINT"c;(WHITE)S(LIG.BLUE)c:VOL.  :  "RIGH 
T* ( STR* ( S ( 0 ) ) ,2) "=(WHITE)S(LIG.BLUE)= 
VOL.:  "RIGHT* (STR* (S(l)),2); 
PRINT"=(WHITE)S(LIG.BLUE)=VOL. :  "RIGH 
T* (STR* (S (2) ) ,2) 

PRINT"' 


8530 


8540 


8550 

8560 


8570 


PR I NT " : FOR  1=0  TO  2 
PRINT" (PURPLE )V I BRATO : " ; RIGHT* (STR* ( V 
KI) ) ,2)" (ORANGE)-"; : NEXT: PRINT 
PRINT" 
iSU" 


8580 

B590 


8600 

B610 


B*20 

8630 

8640 

8650 


PRINT"="; :FOR  1=0  TO  2 

PRINT" (PURPLE )PW. MOD. : "RIGHT* (STR* ( IN 

T (PW ( I ) /2. 5757) ) ,2) " (ORANGE )=" ; : NEXT: 

PRINT 

PRINT"  g***JL*A*.*.*.»^^ 

£±U" 

PRINTE (WHITE) MODUL AT I ON (ORANGE )=(PUR 
PLE)8ESCHWINDIGKEIT: (2SPACE ) " R I GHT* ( " 
"+STR* (SP) ,3) "(ORANGE)^' 

PRINT"i(l 0SPACE 


8660 

8670 


8680 


8700 

B710 

B720 

8730 

8740 


REM  +++  SEITE  3  +++ 


<011) 


<  167> 
<050> 


<  131  > 
<227> 


<100> 

<037) 


<  133> 
<057  > 


<  183> 
<073> 
<087> 


PRINT"— (WHITE )R (LIG.  BLUE);c" ;  R*  (R  (0) )  ; 

JHITE)R (LIG. BLUE)^" ; R* (R ( 1 ) ) ; "-{WH 
ITE)R(LIG.BLUE)=";R*(R(2) )  ;  "-" 

PRINT“ 


<163> 


<227  > 
<025> 


<  120> 


<220> 

<055> 


<208> 
<081  > 


PR I NT " - ( 1 0SP  ACE  ) 

«T 

PRINT"=(RED)"F*<4+MW> "  HfllRED) "F* (5+M 
W)"  TÜKRED)  "F*  (3+MW)  "  fli  "j 
PRINT” (ORANGE)=(PURPLE)ENVELOPE  FOLLO 
W: (2SPACE) "RIGHT* ( "  "+STR*(EF> ,3) “ (OR 
ANGE)=" 

PR INT "^(l 0SPACE )=(2 1 SPACE )=" 
PRINT"c:{RED)"F*(MW+2)  "  STIMME  3 (SPACE 
, ORANGE )c:  (PURPLE ) F I LTER  MODULATION: 
PRINT  RIGHT* ( "  "+STR* (MF) ,3) " (ORANGE) 


<019> 

<070> 

<080> 

<205> 


<058> 
<  173> 


<005> 

<032> 


8690  PRINT" 

*±(LIG. BLUE)F(HOME)" 
RETURN 


<095> 
<  120> 
<050> 
<248> 
<070> 


8750 


PRINT"  (HOME ,  L I G .  BLUE ) 

» A»  1 1  j 

PRINT" (LIG. BLUEI^OSZILLATOR^HUELLKURV 
Ec;  (GREEN ,  RVSON  )TASTATUR  C2SPACE ,  RVOFF , 
LIG. BLUE )={ YELLOW  >JQY- CSPACE , LI G . BLUE 
)="; 


<051  > 


<  197> 


Listing  1.  »Happysynth«  (Fortsetzung) 


Anwendung 
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8760  PRINT";*  FILTER{2SPACEJrJ10DULATI0N;;<G 
REEN , RVSON  >  D I SK-MENUE {RVOFF , L I G . BLUE  > 
={YELLOW  JST I CK  <L I G . BLUE  > -" ;  <  067  > 

;  <029> 

8780  PRINT "  —  {WH I TE > SOUND {5SPACE , L I G . BLUE 

{WH I TE  >  SOUND {5SP ACE , L I G . BLUE  >  ^  <WH I TE  > 

SOUND C5SP ACE, L IG. BLUE >="  <146> 

8790  PR I NT " - {WH I TE  JLOESCHEN {2SPACE , L I G . BLU 
E>^{WH I TE  >SPE I CHERN {SPACE , L I G . BLUE  >^{ 

WH I TE  JLADEN {55PACE , L I G. BLUE>="  <229> 

ttU"  <006> 

8B 1 0  PRINT “={9SPACE , ORANGE , RVSON , SPACE  Jf?{R 
VOFF , 2SPACE , RVSON > fl {2SPACE , RVOFF , SPAC 
E ,  RVSON ,  2SPACE  J1T  {RVOFF ,  SPACE  ,  RVSON ,  SP 
ACE  >  II  {RVOFF , 9SPACE , L I G . BLUE  >3"  < 1 49  > 

8820  PRINT " =<9SPACE , ORANGE , RVSON , 2SPACE , RV 
OFF  >f{SPACE , RVSON , SPACE  >fl{SPACE , RVOFF 
,  SPACE  ,  RVSON  ,  SPACE  >  'S  {SPACE  ,  RVOFF  ,  SPAC 
E , RVSON , 2SPACE , RVOFF > TT {BSPACE , LI G .  BLU 
E>="  <106> 

8830  PRINT " ={9SP ACE , ORANGE , RVSON , SP ACE > TT { 

RVOFF , SPACE , RVSON , 2SPACE JtKRVQFF , SPAC 
E , RVSON , 2SPACE , RVOFF  >£{SPACE , RVSON , SP 
ACE ) TT {RVOFF , 8SPACE , L I G . BLUE  >3"  <  099  > 

8840  PRINT"  ’a».» « « «»«««« «»«»♦«««»»»»«»«_»»«»« 

üTJ  {5SPACE  >  "  <243> 

8850  PR I NT " 3 {32SPACE >3{5SPACE>"  <109> 

8860  PRINT"-{2SPACE,GREY  3, RVSON, SP ACE, RVO 
FF , SPACE , RVSON , SPACE , RVOFF , SPACE , RVSO 
N , SPACEJ-{SPACE , RVOFF , SPACE , RVSON , SPA 
CE , RVOFF , SPACE , RVSON , SPACE , RVOFF , SPAC 
E , RVSON , SPACE  >3{SPACE , RVOFF , SPACE , RVS 
ON , SPACE , RVOFF , SPACE , RVSON , SPACE>3{SP 
ACE , RVOFF , SPACE , RVSON , SPACE , RVOFF , SPA 
CE , RVSON , SP ACE , RVOFF  >C {RVSON , SP ACE , R V 
OFF , L I G . BLUE , 3SP ACE  > ={5SPACE  > "  <106> 

8870  PRINT" {L IG. BLUE >3{2SPACE,GREY  3, RVSON 
, SPACE , RVOFF  >2 {RVSON , SPACE , RVOFFJ3 {RV 
SON , SP ACE >  3TSPACE , RVOFF  >  5 {RVSON , SPACE 
, RVOFF  >6 {RVSON , SPACE , RVOFF  >7 {RVSON , SP 
ACE  >3{SPACE , RVOFF  >9  CRVSON , SPACE , RVOFF 
>0 {RVSON , SPACEJ- {SPACE , RVOFFJ- {RVSON , 

SPACE , RVOFF  >  f {RVSON , SPACE , RVOFF JL {RVS 
ON , SP ACE , RVOFF , L I G . BLUE , 3SPACE >3"  < 1 85  > 

8880  PRINT"<LIG.BLUEJ-{2SPACE,GREY  3, RVSON 
, SPACE , RVOFF , SPACE , RVSON , SPACE , RVOFF , 

SPACE , RVSON , SPACE  >- {SPACE , RVOFF , SPACE 
, RVSON , SPACE , RVOFF , SPACE , RVSON , SPACE , 

RVOFF , SPACE , RVSON , SPACE>3{SPACE , RVOFF 
, SPACE , RVSON , SPACE , RVOFF , SPACE , RVSON , 

SPACE  >3{SPACE , RVOFF , SPACE , RVSON , SPACE 
, RVOFF , SPACE , RVSON , SPACE , RVOFF  >R {RVSO 
N , SPACE , RVOFF , L I G . BLUE , 3SP ACE  J - "  <  0 1 2  > 

8890  PRINT“ {L IG. BLUE >3{2SPACE,GREY  3, RVSON 
,  SPACE  1 3  333333Zi333~  3{SPAC 
E , RVOFF , L I G . BLUE , 3SPACE  >3"  < 1 64  > 

B'yOlU  PRINT"  (LIH.DLUC)ü(2BPflCC,QREY  3 ,  RVOON 

JO;*=£=R=T^Y=U-I;ifcP-ec*=T=Z  {RVOFF , L I 
G.BLUE,3SPACE>3“  <222> 

8910  PR I NT " 3{32SPACE  >3"  <169> 

8920  PR INT “ 3{2SPACE , GREY  3, RVSON, SPACE >3{S 
PACE , RVOFF , SPACE , RVSON , SPACE , RVOFF , SP 
ACE  ,  RVSON ,  SPACE  >- {SPACE ,  RVOFF ,  SPACE  ,  R 
VSON , SPACE , RVOFF , SPACE , RVSON , SPACE , RV 
OFF , SPACE , RVSON , SPACE  >3{SPACE , RVOFF , S 
PACE , RVSON , SPACE , RVOFF , SPACE , RVSON , SP 
ACE , RVOFF , L I G . BLUE , 9SPACE >3"  < 1 8 1 > 

8930  PRINT“ {LIG.BLUE>3{2SPACE, GREY  3, RVSON 
, SPACE  >3{SPACE , RVOFF  >D {RVSON , SPACE , RV 
OFF  >F {RVSON , SPACE>3{SPACE , RVOFF  5  H {RVS 
ON , SPACE , RVOFF  > J {RVSON , SPACE , RVOFFJK { 

RVSON , SPACE  >3{SPACE , RVOFF  > :  {RVSON , SPA 
CE , RVOFF } ; {RVSON , SPACE , RVOFF , L I G . BLUE 
.9SPACEJ-"  < 164> 

8940  PRINT" {LIG.BLUE>3{2SPACE, GREY  3, RVSON 
, SPACE  >- {SPACE , RVOFF , SPACE , RVSON , SPAC 
E , RVOFF , SPACE , RVSON , SPACE  >3{SPACE , RVO 
FF  ,  SPACE ,  RVSON ,  SPACE ,  RVOFF  ,  SPACE  ,  RVSO 
N , SPACE , RVOFF , SPACE , RVSON , SPACE>3{SPA 
CE , RVOFF , SPACE , RVSON , SPACE , RVOFF , SPAC 
E ,  RVSON ,  SPACE ,  RVOFF ,  L I G .  BLUE  ,  9SPACE  >3 
"  < 158> 

8950  PRINT" {LIG.BLUE}={2SPACE, GREY  3, RVSON 
, SPACE >3  =333=33=  3 {SPACE , RVOF 


F,LIG.BLUE,9SPACE>3"  <213> 

8960  PRINT" {LIG.BLUE>3{2SPACE, BREY  3, RVSON 
>  Z3X3C=V3B^3M=,  3.  3/={SPACE ,  RVOFF ,  L I G 
. BLUE , 9SPACE  >3"  <041> 

8970  PR I NT "3{32SPACE >3"  <231> 

8980  PRINT" 

ÜTTHOMEJ";  <233> 

8990  RETURN  <15B> 

9000  s  <0B6> 

9010  REM  +++  MPG ' S  LADEN  +++  <038> 

9020  s  <106> 

9030  IF  PEEK (2) =0  THEN  POKE  2,1s  LOAD"HAPPY 

S. MPG. 1", 8,1  < 195> 

9040  IF  PEEK (2) =1  THEN  POKE  2,2s LOAD“HAPPY 

S. MPG. 2", 8,1  <254> 

9050  IF  PEEK (2) =2  THEN  POKE  2,3s LOAD "HAPPY 

S. MPG. 3", 8,1  <057> 

9060  RETURN  <22B> 

9100  :  < 1B6> 

9110  REM  +++  INITIALISIEREN  +++  <217> 

9120  :  <206> 

9130  OPEN  3,8,15  <168> 

9140  DIM  AD*(15> ,R*(15> ,N*(U> ,B<39> ,FF*(3 

5)  <239> 

9150  :  <236> 

9160  FOR  1=0  TO  15s  READ  AD*  < I ) s  NEXT  <062> 

9170  FOR  1=0  TO  15: READ  R*(I):NEXT  <031 > 

9180  FOR  1=0  TO  11: READ  N*(I):NEXT  <005> 

9190  F* (0) =CHRS (28) : F* ( 1 ) =CHR* (30) :FI*(0)= 

" {RED JAUS" : FI* ( 1 >  =" {GREENJEIN" s  F* (5)  = 

F*(l)  <247> 

9200  T*  <  0 ) = " {RED  >??«- I G . BLUE  > " s  T*  < 1 > =" {GRE 

EN  >Tp{L IG. BLUE  > "  <199> 

9210  :  <040> 

9220  V=5324B: SI=54272: FR=55296: WF=40704: PA 

=1 : MW=1  <116> 

9230  POKE  V+32,0:POKE  V+33 , 0 : POKE  V+21,0:S 

YS  49280  < 130> 

9240  FOR  1=0  TO  23: POKE  SI+I ,0: NEXT: POKE  S 

1+24,15  <066> 

92C3  POKE  2041, 14: POKE  2042,15:POKE  808,22 

5  <172> 

9260  POKE  2040, 13: POKE  V+39,8:P0KE  V+37,7: 

POKE  V+38,0:POKE  V+28,1:P0KE  V+24,21  <036> 

9270  POKE  V+23 ,6: POKE  V+29,6:P0KE  V+40,2:P 

OKE  V+41 ,2: POKE  49213,5  <1B7> 

9280  POKE  4930 1,203: POKE  49360,203  <000> 

9290  FOR  1=0  TO  66: POKE  WF+I,0:NEXT  I:POKE 

WF+33, 1 : POKE  WF+39,26  <171> 

9300  RETURN  <21 4> 

9400  :  <232> 

9410  REM  +++  SPRITES  +++  <012> 

9420  s  <252> 

9430  POKE  V+21 , 6: POKE  V+40,5:POKE  V+41,5:R 

ETURN  < 1B6> 

9440  POKE  V+21 ,7: POKE  V+40,2sPOKE  V+41,2:R 

ETURN  < 191 > 

9450  PR I NT " {HOME , 8D0WN , L I G . GREEN ) " TAB ( 35 ) " 

+ 1  E>  UDQWN  ,  4LE.F T>  +  1  C2UUWN  ,  SPACt  1-1  C3DQ 
WN, 4LEFTJ-10" : RETURN  <093> 

9460  PR I NT " {HOME , BDOWN  > " TAB <  34 )  " {5SPACE , 3D 
OWN , 5LEFT , 2SPACE , 2D0WN , 3SPACE , 3D0WN , 5 
LEFT,5SPACE>": RETURN  <166> 

9470  PR I NT " {HOME , 8D0WN > " T AB ( 34 ) " +MSEK {BDOW 

N,5LEFTJ-MSEK": RETURN  <026> 

9500  :  <078> 

9510  REM  +++  JOYSTICK-ABFRAGE  +++  <064> 

9520  :  <098 > 

9530  J=PEEK (56320) : IF  J  AND  15>=16  THEN  RE 

TURN  <247> 

9540  IF  J=123  THEN  JO=JO+l  <096> 

9550  IF  J=1 19  THEN  JO=JO-l  <109> 

9560  IF  J=126  THEN  JO=JO+10  <038> 

9570  IF  J=125  THEN  JO=JO-10  <239> 

9580  IF  JO<0  THEN  JO=0  <178> 

9590  IF  JO >255  THEN  J 0=255  <01S> 

9600  BU=J  AND  16  <170> 

9610  RETURN  <014> 

9700  :  <022> 

9710  REM  +++  A*  — >  A7.  +++  <231  > 

9720  :  <042> 

9730  A7.=ASC  ( A*+CHR*  ( 0 )  >  :  RETURN  <  03 1  > 

9800  :  <124> 

9810  REM  +++  ROT  <->  GRUEN  +++  <0B6> 

9820  s  <144> 

9830  A=PEEK(FR+P) : IF  A/2=INT (A/2) THEN  A=5: 
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GOTO  9850 
9840  A=2 

9850  FOR  1=0  TO  L:POKE  FR+P+I , A: NEXT: RETUR 
N 

10000  : 

10010  REM  +++  LADEN/LOESCHEN  +++ 

10020  s 

10030  PRINT" {HOME , 

10040  PRINT  A* 

10050  POKE  1463 , 1 15: POKE  1543, 1 15: POKE  V+4 
0,5: POKE  V+41,5 
10060  PRINT 

10070  FOR  1=0  TO  10 

1 0080  PRI NT "=( 1 2SPACE }=( 1 2SPACE }=( 1 2SPACE  > 
" : NEXT 

■»■»-».«-»-«■(HOME}" 

10100  GOSUB  10210: POKE  1463,93:P0KE  1543,9 
3 

10110  D*=FF*(Z1) :POKE  V+3,109:POKE  V+5,151 
: POKE  V+21,0 

10120  IF  ER  THEN  ER=0:GOTO  410 

10130  PRINT"  (HOME .  1 0DOWN , L I G ■  BLUE }B»-»-».«.«.*_». 

(sspace  > 

10135  PRINT  Al* 

10138  PR  I  NT  "  (L I G  ■  BLUE  }B«_««-«««««_«_«-»-»-«_»_«-»»»_« 
10140  FOR  1=2  TO  12 

10150  PRINT " 3(32SPACE >r;(5SPACE >  "  :  NEXT 

».»-«F  (HOME  >  "  : 

10170  RETURN 
10180  : 

10190  REM  +++  SOUND- AUSWAHL  +++ 

10200  : 

10210  IF  LL  THEN  10590 
10215  GOSUB  10914: ID*(1)=ID* 

10220  CLOSE  1 : OPEN  1 ,8,2, "HSY*,S,R" : GOSUB 
10820 

10225  GOSUB  10914: ID*(1)=ID* 

10230  IF  ER  AND  B*="J"THEN  10220 
10240  IF  ER  THEN  RETURN 
10250  A0=0 

10260  CLOSE  15: OPEN  15,8 , 15, " I ": GOSUB  1082 
0 

10270  IF  ER  AND  B*="J"THEN  10260 
102B0  IF  ER  THEN  RETURN 
10290  F=— 1 

10300  CLOSE  2:  OPEN  2 , 8, 2 , : GOSUB  10820 

10310  IF  ER  THEN  RETURN 

10320  IF  ER  AND  B*="J"THEN  10300 

10330  IF  ER  THEN  RETURN 

10340  TR=18: SE=1 

10350  PRINT" (HOME , 1 3D0WN .RIGHT}"; 

10360  PR INT#15,"U1";2;0;TR;SE 
10370  GET#2,X* 

J03Q0  TR-ASC(X**CHR*<0) > 


<064> 
<  121  > 

<202> 

<070> 

<043> 

<090> 

<060> 

<056> 

<  137> 

<032> 

<022> 

<132> 

<030  > 

<084> 

<153> 

<124> 

<203> 

<236> 

<  1 14> 

<  158> 
<042> 

<  141  > 
<066> 
<250> 
<095> 
<014> 
<067> 
<046> 

<  1 47  > 
<056> 
<223> 
<100> 
<017> 

<  124> 
<013> 

<  140> 
<016> 
<0B4> 

<170> 

<  185> 
<190> 
<067> 
<1B9> 
<159> 
<065> 
<067> 


THEN  A 1=0: PRINT 

10610  PRINT  TAB ( 1+A1*13) “ (GREY  2}"FF*(I);: 
NEXT  I 

10620  Z 1=0: A1=0: Z2=Z1 : A2=A1 
10630  PRINT" (HOME, 11 DOWN}" 

10640  FOR  1=0  TO  INT ( Z2/3) : PRINT : NEXT  I 
10650  PRINT  TAB <A2*1 3+1 )" CGREY  2}"FF*(Z2) 
10660  PRINT" (HOME, 11 DOWN}" 

10670  FOR  1=0  TO  INT ( Z 1 /3) : PRINT : NEXT  I 
10680  PRINT  T AB ( A 1 * 1 3+ 1 ) " (WH I TE }"FF*<Z1) 
10690  A2=A1 : Z2=Z 1 : J=PEEK (56320) 

10700  IF  J=1 19  THEN  Z1=Z1+1:IF  Z1>F  THEN  Z 
1=Z2: GOTO  10720 

10710  IF  J=1 19  THEN  A1=A1+1:IF  Al>2  THEN  A 
1 =0: GOTO  10770 

10720  IF  J=123  THEN  Z1=Z1-1:IF  Z1<0  THEN  Z 
1=Z2: GOTO  10740 

10730  IF  J=123  THEN  A1=A1-1:IF  A1<0  THEN  A 
1=2: GOTO  10770 

10740  IF  J=125  THEN  Z1=Z1+3:IF  Z1>F  THEN  Z 
1=Z2: GOTO  10750 

10750  IF  J=126  THEN  Z1=Z1-3:IF  Z1<0  THEN  Z 
1=Z2: GOTO  10770 
10760  IF  J=lll  THEN  RETURN 

10770  IF  <  J  AND  15X15  AND  Z10Z2  THEN  1063 
0 

10780  GOTO  10690 
10790  : 

10800  REM  +++  FEHLERMELDUNG  +++ 

10810  : 

1 0820  I NPUT#3 ,  ER ,  ER* ,  LO :  ER*=ER*+ "  ( 1 6SPACE} 

10830  IF  ER=0  OR  ER=63  OR  ER=1  THEN  RETURN 
10840  PRINT43, "UI" 

10850  FOR  1=1  TO  39: B(I)=PEEK< 1463+1 XNEXT 
10860  PR INT "(HOME, 11 DOWN, RIGHT, GREY  3}";LE 
FT* (ER*, 21) ; ":  NOCHMAL  ?(6SPACE}" 
10870  IF  B ( 34 ) =93  THEN  PRINT  TAB (33) " (UP ,L 
IG. BLUE}  3" 

10880  GET  BS: IF  B*<>"J"AND  B*<>"N”THEN  108 

onun 

10890  IF  B*="N"THEN  RETURN 

10900  FOR  1=1  TO  39: POKE  1463+1 , B ( I ): NEXT 

10910  RETURN 

10911  : 

10912  REM  +++  ID  ABFRAGEN  +++ 

10913  : 

10914  CLOSE  15: OPEN  15,8, 15," I” 

10915  IF  ER  AND  B*="J"THEN  10914 

10916  IF  ER  THEN  CLOSE  2:CLR  15: RETURN 

10917  CLOSE  2: OPEN  2,8,2,"#" 

10918  PRINT#15,"U1: ";2;0; 18;0 

10919  PRINT#15 , "B— P: " ; 2; 162 

10920  GET  #2, ID* ,11*: ID*=ID*+I 1* 

10930  CLOSE  2: CLOSE  15: RETURN 
11000  : 

11010  REM  +++  DATAS  +++ 

11020  : 

11030  REM  +♦-»  DATEN  EUER  ADSR  ++  + 


10390  GET#2,X*  <085 > 
10400  SE=ASC (X*+CHR* (0) >  <235> 
10410  FOR  X=0  TO  7  < 1B3> 
10420  PRINT#15, "B-P" ; 2; X*32+2  <102> 
10430  GET#2,T*: IF (ASC (T*+CHR* (0) ) AND  1 > =0 

THEN  10560  <027> 
10440  PRINT#15, "B— P"; 2; X*32+5  <146> 
10450  GET#2,X*:IF  X*<>"H"THEN  10560  <092> 
10460  GET#2,X*:IF  X*<>"S"THEN  10560  <235> 
10470  GET#2,X*: IF  X*<>"Y"THEN  10560  <24B> 
10480  GET#2,X*  < 175> 
10490  F*=" "  < 123> 
10500  FOR  Y=0  TO  11  <073> 
10510  GET#2,X*:IF  X*=""THEN  X*=CHR*(0)  <230> 
10520  F*=F*+X*  < 149> 
10530  NEXT  Y : F=F+1 : IF  F=33  THEN  F=32:G0T0 

105B0  <230> 
10535  FF* (F) =F*  <254> 
10540  PRINT  TAB (A0* 13+1) ; "(GREY  2}";F*;  <209> 
10550  A0=A0+1 : IF  A0>2  THEN  A0=0: PRINT  <249> 
10560  NEXT  X  <094> 
10570  IF  TR<  >0  THEN  10360  <086> 
10580  CLOSE  15: CLOSE  2:LL=1:G0T0  10620  <093> 
10590  GOSUB  10914: IF  ID*< >ID* ( 1 ) THEN  LL=0: 

FOR  1=0  TO  32: FF* ( I ) ="" : GOTO  10210  <027> 

10599  PRINT" (HOME, 13D0WN}";  <225> 

10600  Al=— 1: FOR  1=0  TO  32: A1=A1+1 : IF  Al>2 


11040  DATA" (4SPACE12  MS“ , " (4SPACE}8  MS","( 
3SPACE116  MS"  ,  "  (3SPACE}24  MS","(3SF'A 
CE} 38  MS“ , " (3SPACE}56  MS" 

11050  DAT A " (3SPACE }68  MS" , " (3SPACEI80  MS”, 
"  (2SPACEI100  MS"  , 11  (2SPACE1250  MS"  ,  "  ( 
2SPACE1500  MS" , " C2SPACE}800  MS" 

11060  DATA"  1000  MS","  3000  MS","  5000  MS“ 
,"  8000  MS" 

11070  DATA" (4SPACE}6  MS" , " (3SPACE}24  MS"," 
(3SPACE148  MS" , " (3SPACE}72  MS" , " (2SP 
ACE} 114  MS “ , " (2SP ACE } 1 68  MS" 

11080  DATA" (2SPACE}204  MS" , " (2SPACE}240  MS 
" , " (2SPACE}300  MS " , " (2SP ACE } 750  MS", 
"  1500  MS","  2400  MS" 

11090  DATA"  3000  MS","  9000  MS", "15000  MS" 
,"24000  MS" 

11100  REM  +++  DATEN  FUER  NOTEN  +++ 

11110  DATA"  C","#C","  D" , "#D" , "  E" , "  F","# 
F",''  G"  ,  "#G"  ,  "  A"  ,  "#A"  , "  H" 
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Listing  1.  »Happysynth«  (Schluß) 


<  1 15> 

<035> 

<228> 

<142> 

<  141  > 
<073> 

<  172> 

<  167> 

<  196> 

<  181  > 

<247> 

<203> 

<234> 

<06B> 

<100> 

<  145> 

<213> 

<  148> 

<078> 

<098  > 

<027> 

<11B> 

<034  > 
<038> 
<200> 

<  142> 

<  138> 

<21B> 

<090> 
<016> 
<124> 
<044> 
<219> 
<039> 
<221  > 
<074> 
<028> 
<254> 
<011> 
<054> 
<038> 
<0B3> 
<013> 
<052> 
<074> 
<074> 
<232> 


<20B> 


<201  > 
<222> 

<  1B5> 

<120> 

<060> 

<  1 13> 

<  195> 
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PROGRAMM  :  HAPPYS.MPB.l  C000  C491 


C000 

1 

EA 

AC 

00 

DC 

98 

29 

01 

D0 

54 

C000 

: 

07 

AE 

01 

D0 

CA 

SE 

01 

D0 

B7 

C010 

: 

98 

29 

02 

D  0 

07 

AE 

01 

D0 

63 

C010 

ES 

BE 

01 

D0 

9B 

29 

04 

D0 

26 

C020 

: 

07 

AE 

00 

D0 

CA 

BE 

00 

D0 

5B 

C028 

c 

98 

29 

0B 

D0 

07 

AE 

00 

D0 

F9 

C030 

: 

ES 

BE 

00 

D0 

98 

29 

10 

D0 

2E 

C03B 

: 

03 

4C 

4D 

CB 

A0 

BA 

A2 

00 

B2 

C040 

CA 

E0 

00 

D0 

FB 

B8 

C0 

00 

9B 

C04B 

8 

D0 

F4 

4C 

01 

C0 

A2 

00 

ES 

B9 

C050 

t 

BD 

00 

9B 

CD 

00 

D0 

10 

F7 

A4 

C058 

: 

BD 

40 

98 

CD 

00 

D0 

30 

EF 

3C 

C  060 

BD 

B0 

98 

CD 

01 

D0 

10 

E7 

E4 

C06B 

: 

BD 

C0 

98 

CD 

01 

D0 

30 

05 

C6 

C070 

: 

BE 

FF 

9F 

EA 

60 

E0 

3E 

D0 

EB 

C078 

3 

D6 

A2 

00 

4C 

70 

C0 

00 

00 

36 

C0B0 

8 

78 

A9 

111) 

BD 

14 

03 

A9 

C0 

63 

C0BB 

BD 

15 

03 

SB 

60 

48 

BA 

48 

6F 

C090 

98 

48 

08 

18 

A5 

CB 

C9 

40 

B2 

C098 

3 

D0 

1B 

AD 

00 

9F 

29 

FE 

BD 

BC 

C0A0 

X 

04 

D4 

AD 

01 

9F 

29 

FE 

BD 

F4 

C0A8 

3 

0B 

D4 

AD 

02 

9F 

29 

FE 

8D 

23 

C0EI0 

12 

D4 

4C 

BA 

C4 

AD 

00 

9F 

BA 

C0B8 

8 

09 

01 

BD 

04 

D4 

AD 

01 

9F 

24 

C0C0 

: 

09 

01 

BD 

0B 

D4 

AD 

02 

9F 

11 

C0CB 

: 

09 

01 

BD 

12 

D4 

A2 

2B 

A5 

46 

C0D0 

8 

CB 

DD 

00 

C3 

F0 

06 

CA 

D0 

0E 

C0DB 

8 

F6 

4C 

9A 

C0 

18 

BA 

A8 

AD 

B7 

C0E0 

40 

9F 

BD 

B4 

9F 

AD 

20 

9F 

0B 

C0E8 

8 

8D 

83 

9F 

20 

00 

C4 

AD 

80 

01 

C0F0 

8 

9F 

48 

A9 

80 

BD 

83 

9F 

20 

El 

C0FB 

00 

C4 

18 

9B 

6D 

03 

9F 

AA 

36 

C100 

BD 

90 

C3 

BD 

F0 

9F 

68 

7D 

50 

CI  08 

30 

C3 

48 

AD 

F0 

9F 

69 

00 

93 

C110 

68 

38 

ED 

B0 

9F 

4C 

E0 

C2 

B5 

CI  18 

3 

EA 

AD 

41 

9F 

BD 

84 

9F 

AD 

F4 

CI  20 

: 

20 

9F 

BD 

83 

9F 

20 

00 

C4 

68 

CI  28 

AD 

B0 

9F 

48 

A9 

80 

8D 

83 

E2 

CI  30 

9F 

20 

00 

C4 

18 

98 

6D 

04 

7C 

CI  36 

9F 

AA 

BD 

90 

C3 

8D 

F0 

9F 

59 

CI  40 

68 

7D 

30 

C3 

48 

AD 

F0 

9F 

E0 

CI  48 

69 

00 

8D 

F0 

9F 

18 

68 

6D 

6A 

C150 

06 

9F 

4C 

40 

C4 

EA 

AD 

42 

20 

C15B 

3 

9F 

BD 

84 

9F 

AD 

20 

9F 

8D 

4B 

CI  60 

83 

9F 

20 

00 

C4 

AD 

80 

9F 

B6 

CI  68 

3 

48 

A9 

80 

8D 

83 

9F 

20 

00 

0C 

CI  70 

C4 

18 

98 

6D 

05 

9F 

AA 

BD 

88 

CI  78 

90 

C3 

BD 

F0 

9F 

68 

7D 

30 

FF 

C1S0 

: 

C3 

48 

AD 

F0 

9F 

69 

00 

8D 

51 

CI  88 

: 

F0 

9F 

68 

4C 

60 

C4 

EA 

EA 

99 

CI  90 

EA 

EA 

EA 

AD 

IC 

D4 

BD 

84 

07 

CI  98 

3 

9F 

AD 

11 

9F 

BD 

83 

9F 

20 

FA 

C1A0 

00 

C4 

AD 

Bl 

9F 

48 

AD 

80 

92 

C1AB 

: 

9F 

48 

AD 

20 

9F 

BD 

04 

9F 

92 

C1B0 

AD 

13 

9F 

BD 

83 

9F 

20 

00 

36 

C1BB 

3 

C4 

68 

6D 

BF 

9F 

6D 

80 

9F 

94 

C1C0 

0B 

4A 

4A 

4A 

4A 

4A 

BD 

15 

21 

CI  CB 

: 

D4 

28 

68 

6D 

81 

9F 

6D 

10 

63 

C1D0 

3 

9F 

90 

02 

A9 

FF 

BD 

16 

D4 

DB 

CI  DB 

t 

EA 

EA 

EA 

AD 

22 

9F 

29 

FC 

65 

C1E0 

3 

D0 

14 

AD 

23 

9F 

6D 

22 

9F 

B7 

C1E8 

: 

8D 

23 

9F 

C9 

04 

30 

2E 

A9 

F6 

C1F0 

00 

BD 

23 

9F 

A9 

04 

4A 

4A 

EC 

C1F8 

3 

BD 

26 

9F 

AD 

24 

9F 

38 

ED 

32 

C200 

3 

26 

9F 

BD 

24 

9F 

B0 

08 

AD 

D9 

C208 

3 

25 

9F 

49 

FF 

8D 

25 

9F 

18 

00 

C210 

AD 

21 

9F 

C9 

OB 

D0 

09 

AD 

75 

C218 

: 

24 

9F 

8D 

20 

9F 

4C 

4C 

C2 

B6 

C220 

3 

C9 

01 

D0 

15 

AD 

25 

9F 

C9 

57 

C22B 

00 

F0 

OB 

38 

ED 

24 

9F 

18 

58 

C230 

3 

4C 

1A 

C2 

AD 

24 

9F 

4C 

1A 

94 

C23B 

3 

C2 

C9 

02 

D0 

B6 

AD 

25 

9F 

1B 

C240 

3 

4C 

1A 

C2 

AD 

1B 

D4 

4C 

1A 

BD 

C24B 

3 

C2 

EA 

EA 

EA 

AE 

27 

9F 

AD 

95 

C250 

3 

20 

9F 

9D 

00 

D4 

A0 

00 

AD 

55 

C25B 

20 

9F 

BD 

84 

9F 

B9 

28 

9F 

E3 

C260 

3 

BD 

83 

9F 

20 

00 

C4 

AD 

80 

79 

C26B 

3 

9F 

4A 

4A 

4A 

4A 

99 

2B 

9F 

66 

C270 

3 

1B 

AD 

81 

9F 

0A 

0A 

0A 

0A 

E0 

C27B 

3 

18 

79 

2B 

9F 

99 

2B 

9F 

0B 

BD 

C2B0 

: 

AD 

Bl 

9F 

4A 

4A 

4A 

4A 

28 

BF 

C2BB 

: 

69 

00 

99 

2E 

9F 

CB 

C0 

03 

67 

C290 

D0 

C5 

EA 

EA 

EA 

A2 

00 

A0 

60 

C298 

00 

20 

Bl 

C2 

EB 

A0 

07 

20 

5D 

C2A0 

Bl 

C2 

ES 

A0 

0E 

20 

Bl 

C2 

2F 

C2AB 

: 

28 

68 

A8 

68 

AA 

68 

4C 

31 

BD 

C2B0 

EA 

BD 

28 

9F 

D0 

10 

BD 

31 

5E 

C2B8 

9F 

99 

02 

D4 

BD 

34 

9F 

99 

6E 

C2C0 

03 

D4 

60 

00 

00 

00 

18 

BD 

21 

C2CB 

3 

31 

9F 

7D 

2B 

9F 

99 

02 

D4 

06 

C2D0 

BD 

34 

9F 

7D 

2E 

9F 

C9 

10 

66 

t2DB 

30 

02 

A9 

0F 

99 

03 

D4 

60 

1B 

C2E0 

BD 

00 

D4 

AD 

F0 

9F 

B0 

03 

2D 

C2E8 

38 

E9 

01 

BD 

01 

D4 

4C 

19 

21 

C2F0 

$ 

CI 

00 

00 

00 

00 

00 

00 

B2 

C2F8 

00 

00 

00 

00 

00 

«... 

00 

00 

F9 

C300 

00 

3E 

3B 

09 

08 

0E 

11 

10 

65 

C308 

16 

13 

19 

1B 

IE 

21 

20 

26 

A9 

C310 

23 

29 

2E 

2B 

31 

30 

36 

33 

BD 

C318 

: 

0C 

17 

12 

14 

15 

1F 

IC 

ID 

AC 

C320 

27 

22 

24 

25 

2F 

2C 

2D 

37 

7E 

C32B 

: 

32 

00 

00 

00 

00 

00 

00 

00 

5B 

C330 

: 

16 

27 

39 

4B 

5F 

74 

8A 

Al 

99 

C33B 

: 

BA 

D4 

F0 

0E 

2D 

4E 

71 

96 

92 

C340 

BE 

E7 

14 

42 

74 

A9 

E0 

1B 

BD 

C348 

s 

5A 

9C 

E2 

2D 

7B 

CF 

27 

85 

2C 

C350 

: 

E8 

51 

CI 

37 

B4 

38 

C4 

59 

0B 

C358 

: 

F7 

9E 

4E 

0A 

D0 

A2 

81 

6D 

76 

C360 

: 

67 

70 

89 

B2 

ED 

3B 

9D 

14 

0F 

C368 

A0 

45 

03 

DB 

CF 

El 

12 

65 

06 

C370 

: 

DB 

76 

3A 

27 

41 

8A 

05 

B5 

E2 

C37B 

: 

9D 

CI 

24 

C9 

B6 

ED 

73 

4E 

7D 

C3B0 

: 

82 

14 

0A 

6A 

3B 

82 

4B 

93 

EC 

C308 

: 

6B 

DA 

E7 

9C 

04 

2B 

14 

00 

C0 

C390 

: 

01 

01 

01 

01 

01 

01 

01 

01 

90 

C398 

: 

01 

01 

01 

02 

02 

02 

02 

02 

D7 

C3A0 

3 

02 

02 

03 

03 

03 

03 

03 

04 

21 

C3A8 

: 

04 

04 

04 

05 

05 

05 

06 

06 

ED 

C3B0 

: 

06 

07 

07 

08 

08 

09 

09 

0A 

FE 

C3BB 

: 

0A 

0B 

0C 

0D 

P)[) 

0E 

0F 

10 

BA 

C3C0 

: 

11 

12 

13 

14 

15 

17 

18 

1A 

C0 

C3C8 

: 

1B 

ID 

1F 

20 

22 

24 

27 

29 

70 

C3D0 

; 

2B 

2E 

31 

34 

37 

3A 

3E 

41 

A6 

C3DB 

s 

45 

49 

4E 

52 

57 

5C 

62 

68 

52 

C3E0 

: 

6E 

75 

7C 

83 

8B 

93 

9C 

A5 

AB 

C3EB 

i 

AF 

B9 

C4 

D0 

DD 

EA 

FB 

00 

DB 

C3F0 

3 

00 

00 

00 

00 

00 

00 

00 

00 

Fl 

C3FB 

E 

00 

00 

00 

00 

BB 

00 

00 

00 

F9 

C400 

: 

AD 

83 

9F 

4B 

AD 

84 

9F 

48 

6E 

C408 

A9 

00 

BD 

80 

9F 

BD 

81 

9F 

D0 

C410 

3 

BD 

B2 

9F 

A2 

m 

4E 

83 

9F 

5B 

C418 

90 

13 

AD 

80 

9F 

1B 

6D 

84 

27 

C420 

: 

9F 

BD 

80 

9F 

AD 

81 

9F 

6D 

DA 

C42B 

82 

9F 

8D 

Bl 

9F 

0E 

04 

9F 

C9 

C430 

: 

2E 

B2 

9F 

CA 

D0 

DF 

6B 

BD 

A9 

C438 

: 

B4 

9F 

68 

BD 

83 

9F 

60 

00 

0E 

C440 

: 

48 

AD 

F0 

9F 

69 

00 

BD 

F0 

3E 

C448 

: 

9F 

38 

68 

ED 

80 

9F 

8D 

07 

24 

C450 

: 

D4 

AD 

F0 

9F 

B0 

03 

38 

E9 

03 

C458 

01 

BD 

08 

D4 

4C 

56 

CI 

00 

3B 

C460 

38 

ED 

06 

9F 

48 

AD 

F0 

9F 

F9 

C46B 

80 

03 

38 

E9 

01 

BD 

F0 

9F 

65 

C470 

68 

38 

ED 

80 

9F 

8D 

0E 

D4 

ca 

C478 

: 

AD 

F0 

9F 

B0 

03 

38 

E9 

01 

37 

C430 

: 

8D 

0F 

D4 

BC 

Fl 

9F 

4C 

93 

D0 

C488 

: 

CI 

Pin 

AE 

Fl 

9F 

4C 

DC 

C0 

B4 

C490 

: 

FF 

00 

FF 

00 

FF 

00 

FF 

00 

BF 

Listing  2.  Maschinenprogramm  1. 
Wird  vom  Hauptprogramm  nach¬ 
geladen.  Zur  Eingabe  bitte  den 
MSE  (Seite  18)  verwenden. 


PROGRAMM 

:  HAPPYS 

MPG.  2 

9800  9901 

PROGRAMM 

!  HAPPYS 

MPG.  3 

033E  03FI 

100 

110 

120 

REM  ♦+♦  DEMO-SOUNDS 

FOR  I«1  ro  6 
:  READ  NA» 

•:25S> 

<  1 77> 

9800 

00 

00 

66 

BE 

00 

66 

BE 

00 

A0 

033E 

00 

00 

00 

3B 

00 

00 

3A 

00 

2E 

130 

140 

!  OPEN  1  ,0,2, NA*«*'  ,S,W 
i  FOR  T-l  10  37 

<  06 1  > 

<  090  > 

9808 

28 

3E 

66 

80 

96 

BE 

D9 

EE 

9E 

0346 

• 

00 

3A 

00 

00 

3A 

00 

00 

3A 

7C 

1 30 

:  READ  S 

<239> 

9810 

00 

80 

00 

28 

66 

B0 

BE 

D9 

6F 

034E 

00 

00 

3A 

F0 

00 

3A 

EE 

00 

87 

160 

170 

1B0 

i  PRINTH1 ,CHR»<S> j 

1  NEXT  T  ' 
i  CLOSE  1 

<122> 

9818 

: 

00 

B0 

00 

66 

BE 

00 

66 

BE 

28 

0356 

: 

3A 

EE 

38 

3A 

AE 

0E 

3A 

AA 

F6 

9820 

00 

66 

BE 

00 

66 

BE 

00 

66 

2C 

035E 

0E 

BA 

AA 

03 

AA 

AA 

03 

AA 

36 

190 

NEXT  I 

<01B> 

9828 

: 

BE 

00 

66 

BE 

00 

66 

BE 

00 

86 

0366 

: 

AA 

00 

EA 

AA 

00 

3A 

AB 

00 

95 

200 

END 

<  202  > 

9830 

66 

BE 

00 

30 

46 

66 

BE 

00 

BE 

036E 

- 

3A 

AB 

00 

FA 

AB 

00 

FE 

AD 

6E 

210 

DAIA  HSY.  ORGEL . . 

<  134> 

9038 

: 

66 

BE 

00 

66 

t<E 

00 

U0 

00 

BH 

03/6 

: 

00 

D/ 

Fb 

00 

üb 

bb 

00 

D5 

93 

230 

onm  m/,  i ,  j ,  ,32,31 ,  ,*,  ,  10/,  1 , 1 , ,  1 

9840 

t 

00 

66 

BE 

FF 

66 

BE 

FF 

28 

CF 

037E 

X 

55 

00 

00 

00 

00 

00 

00 

00 

D4 

240 

DATA  160, ,3, 1,07, ,1,14, 23 

<143> 

9848 

9850 

: 

: 

3E 

80 

66 

FF 

80 

20 

96 

66 

BE 

B0 

D9 

BE 

EE 

D9 

FF 

FF 

23 

0C 

03B6 

038E 

ob 

00 

00 

00 

00 

00 

00 

OB 

00 

00 

00 

00 

00 

00 

00 

00 

B7 

BF 

230 

260 

270 

DAIA  -HSV. BRANDUNG - - 

DATA  120,20, ,4,220,233, 1 , 1 , , 120,24 

DATA  ,4,220,233, 1 , 1 , ,120,31 , ,4,220 

<202> 
<131  > 
<053> 

9B58 

80 

FF 

66 

BE 

FF 

66 

BE 

FF 

77 

0396 

: 

10 

00 

00 

3B 

00 

00 

7C 

00 

9F 

200 

DATA  253, 1 , 1 , , 1 , 1 60 , , 13,3,07,00,1 

<  226> 

9B60 

s 

66 

BE 

FF 

66 

BE 

FF 

66 

BE 

F3 

039E 

00 

10 

00 

00 

10 

00 

00 

10 

CQ 

290 

DATA  10,23 

<  1 03  > 

986B 

s 

FF 

66 

BE 

FF 

66 

BE 

FF 

66 

73 

03A6 

: 

00 

00 

10 

00 

00 

10 

00 

00 

2B 

310 

DATA  "MBV.FLQETE . " 

DATA  16,43, ,, 1 1 ,23, ,,, 16,43, 16,0 

<001  > 
<031  > 

9870 

s 

BE 

FF 

30 

46 

66 

BE 

FF 

66 

2C 

03AE 

10 

00 

00 

10 

00 

00 

FE 

00 

BC 

320 

DA JA  1 1 ,240, , , , 16,43, , , 1 1 ,133, , , , 

<070> 

9878 

2 

BE 

FF 

66 

BE 

FF 

80 

FF 

00 

AE* 

03B6 

2 

10 

FE 

08 

30 

FE 

0C 

7F 

FF 

9C 

330 

DATA  , , , 30 , , , 1 , , 

<23«> 

9880 

: 

00 

00 

00 

00 

4D 

4D 

4D 

5F 

B4 

03BE 

s 

FE 

00 

,30 

FE 

0C 

10 

FE 

08 

F6 

340 

330 

DATA  "H3Y.  GLOCKEN . " 

DATA  20,31, , ,10, 100, , , ,20,16, , , 10 

<223> 

00 1  > 

9888 

: 

5F 

5F 

5F 

5F 

5F 

5F 

5F 

5F 

B8 

03C6 

: 

00 

FE 

00 

00 

10 

00 

00 

10 

67 

360 

DATA  100, ,,,16,39,, ,10, 100 . 

<1 13> 

9890 

X 

69 

69 

71 

71 

71 

71 

71 

71 

84 

03CE 

00 

00 

10 

00 

00 

io 

00 

00 

53 

370 

DATA  ,,,1,, 

<1B4> 

9898 

: 

7B 

7B 

80 

B0 

80 

89 

B9 

89 

BE 

03D6 

: 

10 

00 

00 

10 

00 

00 

10 

00 

29 

300 

390 

DATA  "HSY .  BASS . « 

DATA  34.19... 12,250, 1,,, 32, 31, 16,0 

<  193> 

98A0 

x 

92 

92 

92 

99 

99 

99 

Al 

Al 

B3 

03DE 

00 

7C 

00 

00 

38 

00 

00 

10 

C0 

400 

DATA  12,250, 1 , , ,32,7, , , 10,36, i , , , 1 

<07 3> 

98AB 

Al 

AD 

AD 

AD 

BD 

DD 

BD 

D2 

A7 

03E6 

: 

00 

00 

00 

00 

00 

00 

00 

00 

E7 

410 

DATA  64, 1,14, 4, 135,, 2,1, 

<  1 31  > 

9BB0 

9BB8 

s 

D2 

El 

D2 

El 

D9 

E9 

D9 

E9 

D9 

E9 

D9 

F3 

D9 

F3 

El 

00 

34 

4F 

03EE 

03F6 

: 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

EF 

F7 

420 

430 

440 

DATA  "HSY. METALL  IC...." 

DATA  20, 43,, ,10, 36,,,, 20, 12, ,,10 

DATA  56, , , ,20,43, , ,10,36, , , , ,207,2, 

<103> 

<063> 

<220> 

98C0 

00 

4D 

4D 

4D 

5F 

5F 

5F 

69 

A5 

03FE 

• 

FF 

00 

20 

10 

12 

0F 

07 

12 

El 

430 

DATA  2,130,,!,, 

<  1S4> 

98CB 

: 

69 

69 

69 

69 

69 

69 

69 

69 

C8 

9BD0 

98D8 

90E0 

71 

80 

99 

71 

80 

99 

7B 

89 

99 

7B 

89 

Al 

7B 

89 

Al 

7B 

92 

Al 

7B 

92 

AD 

7B 

92 

AD 

CI 

CB 

1A 

Listing  4. 

Maschinenprogramm  3. 

e  64"«w 

Wird  vom 

Hauptprogramm  nach- 

9BE8 

: 

AD 

BD 

BD 

BD 

D2 

D2 

D2 

D9 

5E 

geladen.  Zur  Eingabe  bitte  den 

98F0 

98F8 

D9 

E9 

D9 

E9 

El 

F3 

El 

F3 

El 

F3 

El 

FF 

El 

FF 

E9 

00 

F3 

90 

MSE  (Seite  18)  verwenden. 

Listing  5.  Demosounds  zu  »Happy- 

9900 

00 

01 

FF 

31 

00 

02 

FF 

00 

B7 

synth«.  Nach  Starten  mit  »RUN« 

Listing  3. 

Maschinenprogramm  2. 

werden  die  Sounds  automatisch 

Wird  vom  Hauptprogramm  nach- 

auf  Diskette  gespeichert. 

geladen.  Zur  Eingabe  bitte  den 

Zur  Eingabe  bitte  den  Checksum- 

MSE  (Seite  18)  verwenden. 

mer  (auf  Seite  16)  verwenden. 
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C  64 


HI-EDDI:  ein 
fantastisches 
Zeichen-  und 
Malprogramm 


HI-EDDI  ist  ein  High-Resolution-Grafik- 
Editor,  der  vieles  bietet,  was  man  bei 
teuren,  kommerziellen  Programmen 
vergeblich  sucht.  Sehen  Sie  sich  die 
Bilder  an  und  Sie  bekommen  einen 
Eindruck  von  seinen  Fähigkeiten. 


Hier  eine  Aufstellung  der  herausragenden  Eigenschaften: 

■  Wahlweise  als  »Schwarzweiß«-Zeichenprogramm  oder  als 
farbiges  Malprogramm  verwendbar,  in  jedem  Fall  mit  der  vollen 
Auflösung  von  320  x  200  Bildpunkten. 

■  7  (in  Worten:  sieben)  Schwarzweiß-Bildschirme  oder  6  farbi¬ 
ge  stehen  zur  Verfügung. 

■  Integrierter,  leistungsfähiger  Sprite-Editor  (mit  Sprite  spie¬ 
geln,  drehen...)  und  die  Fähigkeit,  Sprites  aus  dem  Grafikbild 
herauszukopieren  oder  einzupflanzen.  Damit  ist  zum  Beispiel 
Ausschnittvergrößerung  (Zoom)  ebenso  wie  das  Erstellen  von 
»Construction  Sets«  möglich. 

■  Mit  einer  Zeichentrickfilm-Funktion  sind  fast  flimmerfreie 
Bewegungsabläufe  mit  bis  zu  24  Bildern  pro  Sekunde  möglich. 

■  Befehlseingabe  wahlweise  über  Tastatur  oder  eine  selbst  zu 
gestaltende  Menütafel  (ä  la  Koalapainter). 

■  Zusammenhängender  Ausdruck  mehrerer  Bilder  möglich, 
das  ergibt  Superbilder  mit  einer  Breite  von  minimal  640  Punk¬ 
ten  und  unbegrenzter  Länge  (Bild  2). 

■  Ferner  sind  alle  »Standardbefehle«  wie  Draw,  Line,  Rectan- 
gle,  Circle,  Paint,  Move  und  Text  vorhanden. 

Natürlich  ist  klar,  daß  sowas  nur  in  Maschinensprache  geht, 
und  die  ist  mit  rund  4  700  DATAs  nicht  gerade  kurz.  Gemessen 
an  den  Möglichkeiten  des  Programms  ist  es  allerdings  auch 
nicht  viel.  Die  Bilder  auf  diesen  Seiten  lassen  die  Vielfältigkeit 
von  HI-EDDI  nur  ahnen.  Dabei  lassen  sich  nicht  nur  mit  HI-EDDI 
erzeugte  Bilder  laden  und  bearbeiten,  sondern  auch  Grafikbil¬ 
der  anderer  Programme,  wie  von  Koala  oder  Paint  Magic,  zum 
Beispiel  die  der  Dia-Show. 

Nach  dem  Start  meldet  sich  HI-EDDI  mit  der  Frage  »Be¬ 
triebsart«.  Wird  hier  0  eingegeben  (oder  einfach  RETURN), 
wird  HI-EDDI  als  »Schwarzweiß«-Programm  betrieben,  bei  128 
dagegen  als  farbiges  Malprogramm.  Weitere  mögliche  Einga¬ 
ben  werden  später  behandelt,  ebenso  die  Befehlseingabe  mit¬ 
tels  Menütafel.  Zunächst  werden  alle  Befehle,  die  im  folgen¬ 
den  zusammengestellt  sind,  durch  Tastendruck  eingegeben. 
D  Draw  —  »Freihändig«  zeichnen 
Im  Draw-Modus  kann  mit  dem  kreuzförmigen  Cursor  (der 
wird  mit  einem  Joystick  in  Port  2  gesteuert)  »freihändig«  ge¬ 
zeichnet  werden.  Bei  gedrücktem  Feuerknopf  werden  die 
überfahrenen  Punkte  gesetzt.  Um  Punkte  zu  löschen,  muß  zu¬ 
sätzlich  die  SHIFTTaste  (oder  SHIFT-LOCK  zum  Feststellen) 
gedrückt  werden. 


Kann  eine  ganze 
Menge.  Zum  Beispiel 
Chinesisch: 
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Schaltungen 
zeichnen : 
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Das  Construction-Set . . 


das  Ergehn 


Bild  i.  in  dieser  Hardcopy  wurden  zwei  Bilder  untereinander 
ausgedruckt.  Dies  geschieht  nahtlos.  Es  können  zwei  Bilder 
nebeneinader  und  unbegrenzt  viele  untereinander  gesetzt 
werden.  Siehe  dazu  auch  Bild  2. 


L  Line  —  Linien  ziehen 

Mit  dem  ersten  Knopfdruck  am  Joystick  wird  der  Anfangs¬ 
punkt  einer  Linie  festgelegt,  mit  dem  zweiten  der  Endpunkt, 
mit  dem  dritten  wieder  ein  Anfangspunkt  etc..  Der  jeweilige  An¬ 
fangspunkt  wird  auf  F7  gespeichert  (siehe  Funktionstasten), 
damit  lassen  sich  Strahlen  besonders  einfach  zeichnen. 
SHIFT  wie  bei  D. 

R  Rectangle  —  Rechtecke  zeichnen 

Wie  L  —  auch  bezüglich  SHIFT  und  F7  — ,  jedoch  wird  zwi¬ 
schen  den  zwei  markierten  Punkten  ein  Rechteck  gezeichnet. 
C  Circle  —  Kreise  zeichnen 

Der  erste  Knopfdruck  ergibt  den  Mittelpunkt  (auf  F7  gespei¬ 
chert,  damit  ist  einfaches  Zeichnen  konzentrischer  Kreise 
möglich),  der  zweite  einen  beliebigen  Randpunkt,  von  dem 
aus  HI-EDDI  im  Uhrzeigersinn  einen  Kreis  zieht.  Wird  beim  An¬ 
stoßen  an  den  Rand  abgebrochen. 

Möchte  man  einen  Ausschnitt  eines  Kreises,  der  nicht  ganz 
auf  den  Bildschirm  paßt,  zeichnen,  so  muß  der  zweite  Knopf¬ 
druck  einen  Punkt  am  Bildschirmrand  markieren,  von  dem  aus 
der  sichtbare  Kreisausschnitt  im  Uhrzeigersinn  gezeichnet 
werden  kann.  Allerdings  darf  der  Radius  maximal  256  Punkte 
betragen. 

P  Paint  —  Ausmalen  begrenzter  Flächen 

Cursor  mitten  auf  die  auszumalende  Fläche  setzen  und 
Knopf  drücken.  Sollte  durch  ein  Loch  in  der  Umrandung  der 
ganze  Bildschirm  vollzulaufen  drohen,  so  kann  der  Vorgang 
durch  nochmaligen  Knopfdruck  abgebrochen  werden  (dazu 
ist  allerdings  eine  gute  Reaktion  nötig,  denn  HI-EDDI  füllt  Flä¬ 
chen  um  einiges  schneller  als  Simons  Basic).  Zum  Löschen 
von  Flächen:  Bildschirm  mit  »I«  invertieren,  entstandenes 
»Loch«  vollaufen  lassen,  zurückinvertieren. 
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M  Move  —  Verschieben  von  Bildschirmbereichen 

Mit  den  ersten  beiden  Knopfdrücken  werden  zwei  diagona¬ 
le  Ecken  des  zu  transportierenden  Bereiches  gesetzt  (nach 
dem  zweiten  Knopfdruck  erscheint  eine  farbliche  Markierung 
dieses  Bereiches),  der  dritte  Knopfdruck  gibt  die  linke,  obere 
Ecke  des  Zielbereiches  an.  Der  Zielbereich  muß  noch  ganz 
auf  den  Bildschirm  passen  (sonst  wird  der  Knopfdruck  nicht 
akzeptiert),  er  darf  jedoch  den  Quellbereich  überlappen  oder 
in  einem  anderen  Bildschirm  liegen.  Die  Auflösung  des  Move- 
Befehls  entspricht  der  des  normalen  Textbildschirmes,  es 
kann  also  nur  im  40  x  2 5- Raster  verschoben  werden. 

Soll  ein  Bereich  mehrmals  kopiert  werden,  so  muß  er  nicht 
jedesmal  neu  markiert  werden:  Ein  Druck  auf  die  Pfeil-nach- 
oben-Taste  holt  die  letzte  Markierung  wieder  auf  den  Bild¬ 
schirm,  es  kann  danach  sofort  der  Zielbereich  bestimmt  wer¬ 
den  (funktioniert  nur,  solange  zwischenzeitlich  kein  Modus¬ 
wechsel  erfolgte). 

Hat  man  sich  beim  Markieren  vertan,  so  löscht  ein  Druck  auf 
die  Pfeil-nach-links-Taste  die  Markierung  wieder  (gilt  auch  für 
L,  R,  C). 

T  Text  —  Buchstaben  und  Grafiksymbole  einfügen 

Es  erscheint  ein  8  x  8-Pixel  großer  Rahmen,  der  sich  fast  so 
benimmt,  wie  der  Blinkcursor  im  Textbildschirm:  Drucken  von 
Buchstaben  und  Grafikzeichen,  Cursorsteuerung  mittels  Cur¬ 
sortasten,  Löschen  mittels  DEL  (rückwärts)  und  INST  (vor¬ 
wärts,  um  für  Text  Platz  zu  schaffen),  Reverse  on/off  und  Um¬ 
schaltung  der  beiden  Zeichensätze  mit  C  =  SHIFT  (es  können 
alle  512  Zeichen  der  beiden  Zeichensätze  gleichzeitig  darge¬ 
stellt  werden!). 

Daneben  bleibt  die  Cursorsteuerung  mittels  Joystick  erhal¬ 
ten,  ebenso  alle  anderen  Befehle,  die  jedoch  nur  durch  gleich¬ 
zeitiges  Drücken  derCTRL-Taste  eingegeben  werden  können. 
Durch  Anwahl  eines  anderen  Modus,  zum  Beispiel  CTRL  D  für 
Draw,  wird  der  Textmodus  verlassen  und  es  ist  wieder  »Ein- 
Hand-Eingabe«  der  Befehle  möglich. 

G  Get  Sprite  —  Sprite  aus  Bildschirm  kopieren 

In  diesem  und  den  folgenden  drei  Modi  erscheint  ein  sprite- 
großer  Rahmen  als  Cursor.  Auf  Knopfdruck  wird  der  Bild¬ 
schirmausschnitt,  auf  dem  der  Rahmen  sitzt,  in  das  Sprite  hin¬ 
einkopiert,  anschließend  geht  HI-EDDI  automatisch  in  den 
Append-Modus,  das  Sprite  kann  an  anderer  Stelle  wieder  ein¬ 
gepflanzt  oder  im  Sprite-Editor  bearbeitet  werden. 

A  Append  —  Sprite  in  Bildschirm  einfügen 

Auf  Knopfdruck  wird  der  Spriteinhalt  in  den  Bildschirm  ein¬ 
gefügt,  ohne  jedoch  den  Bildschirmausschnitt  vorher  zu  lö¬ 
schen  (Oder-Verknüpfung).  Bei  gleichzeitiger  Bewegung  wird 
das  Sprite  zum  »programmierbaren  Pinsel«. 

S  Stamp  —  Sprite  auf  Bildschirm  kleben 

Wie  A,  jedoch  wird  vor  dem  Einfügen  der  Untergrund  ge¬ 
löscht,  das  Sprite  wird  wie  eine  Briefmarke  auf  den  Bildschirm 
geklebt. 

E  Erase  —  Löschen 

Der  Rahmen  wird  zum  Radiergummi,  der  alles  löscht,  was  er 
überfährt. 

F  Foreground-Colourmode  —  Vordergrund  einfärben 
B  Background-Colourmode  —  Hintergrund  einfärben 

Diese  beiden  Modus-Befehle  sind  nur  wirksam,  wenn  HI- 
EDDI  als  farbiges  Malprogramm  betrieben  wird.  Doch  dazu  ist 
vorweg  einiges  zum  Konzept  zu  sagen: 

Im  Gegensatz  zu  den  meisten  käuflichen  Programmen,  die 
im  Multicolour-Modus  arbeiten  (mehrere  Farben,  aber  nur  hal¬ 
be  Auflösung),  ist  HI-EDDI  konsequent  als  Zeichenprogramm 
mit  maximaler  Auflösung  konzipiert.  Die  Farbfähigkeiten  sind 
nur  ein  »Nebenprodukt«  und  deshalb  nicht  so  ausgeprägt:  Pro 
8  x  8-Punkte-Feld  (entsprechend  einer  Position  im  Textbild¬ 
schirm)  stehen  nur  zwei  Farben  —  je  eine  für  Vorder-  und  Hin¬ 
tergrund  —  zur  Verfügung.  Bei  insgesamt  1  000  Feldern  und 
16  Farben  kann  das  allerdings  auch  recht  bunt  werden.  Außer¬ 
dem  ist  es  durch  die  Trennung  von  Zeichnen  und  Einfärben 
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möglich,  bestehende  »Schwarzweiß-Bilder«  leicht  nachträg¬ 
lich  zu  colorieren. 

Nun  zu  den  Befehlen  F  und  B:  Sie  schalten  einerseits  die 
Rahmenfarbe  (und  die  Farbe  des  Sprite-Inhalts  bei  A  und  S) 
weiter,  andererseits  wählen  sie  den  Fore-  beziehungsweise 
Back-Mode  an,  in  dem  auf  Knopfdruck  die  gesetzten  Pixel 
(= Vordergrund)  beziehungsweise  gelöschten  Pixel  (=  Hin¬ 
tergrund)  des  8  x  8-Feldes,  auf  dem  sich  der  Cursor  befindet, 
mit  der  Rahmenfarbe  eingefärbt  werden.  Beispiel:  Um  den  Vor¬ 
dergrund  gelb  anzumalen,  muß  die  Taste  F  so  oft  gedrückt 
werden,  bis  der  Rahmen  gelb  ist.  Dann  kann  mit  dem  Cursor 
gepinselt  werden. 

Hat  man  ein  Feld  zuviel  angepinselt,  so  kann  durch  gleichzei¬ 
tiges  Drücken  der  SHIFTTaste  (wie  bei  D,  L,  R,  C)  die  gerade 
gemalte  Farbe  gelöscht  werden.  Genauer  gesagt:  Es  er¬ 
scheint  wieder  die  Farbe,  die  beim  letzten  Bildschirmwechsel 
dort  war.  Als  Bildschirmwechsel  gelten: 

1.  Bildschirmspeicherwechsel  (1  bis  7) 

2.  Ausschalten  des  High-Resolution-Bildschirmes  (Sprite-Edi¬ 
tor,  Befehle  H,  V,  SHIFT  W,  Disk-  und  Druckerbefehle). 

3.  Move-Befehl,  auch  wenn  nur  innerhalb  eines  Bildes  »gemo- 
vet«  wurde. 

Die  Pfeil-nach-links-Taste  (Korrekturtaste)  hat  die  gleiche 
Wirkung  wie  SHIFT  +  Knopfdruck,  jedoch  für  den  ganzen 
Bildschirm:  Es  werden  alle  Farbveränderungen  seit  dem  letz¬ 
ten  Bildschirmwechsel  rückgängig  gemacht. 


Direkte  Befehle 

Alle  bisher  beschriebenen  Befehle  haben  eins  gemeinsam: 

Sie  dienen  zur  Anwahl  eines  Modus,  sie  haben  also  eine 
»Nachvyirki  ing«,  vor  allem,  was  die  Funktion  des  Feuerknopfes 
anbelangi.  Die  nun  folgenden  Befehle  ändern  den  gerade  ein¬ 
gestellten  Modus  nicht,  sie  haben  nur  eine  unmittelbare  Wir¬ 
kung. 

1  bis  7  beziehungsweise  1  bis  6:  Bildschirmspeicher-An- 
wahl 

HI-EDDI  hat  im  Schwarzweiß-Betrieb  sieben  und  im  Farbbe- 
trieb  sechs  Bildschirmspeicher,  die  durch  Eingabe  ihrer  Num¬ 
mer  auf  den  Bildschirm  geholt  werden. 

Wozu  so  viele?  Beispiele:  Abspeichern  von  verschiedenen 
Zwischenstadien  der  bearbeiteten  Werke,  bei  denen  man  wie¬ 
der  ansetzen  kann,  wenn  man  was  vermurkst  hat.  Oder  Erstel¬ 
len  von  »Construction  Sets«:  Aus  einer  Anzahl  zum  Beispiel 
von  Schaltsymbolen  kann  man  mittels  der  Sprite-Befehle  im 
Nu  Schaltpläne  aufbauen.  Für  die  Befehle  Print  und  Walk  sind 
sieben  Speicher  eigentlich  zu  wenig,  aber  Im  C  64  naben  eben 
nicht  mehr  Platz! 

I  Invertieren 

Die  Pixel  des  Bildschirmes  werden  invertiert.  In  Zusammen¬ 
hang  mit  den  Befehlen  Und,  Or,  Exor,  Append,  Stamp,  Get,  Er¬ 
ase,  Paint  und  Print  ergibt  das  eine  Vielzahl  von  Möglichkeiten. 

Un  Und-Verknüpfung 

Der  aktuelle  (=  sichtbare)  Bildschirm  und  der  Bildschirm 
Nummer  n  werden  Und-verknüpft,  das  Ergebnis  im  aktuellen 
Bildschirm  abgelegt. 

On  Oder-Verknüpfung 

Wie  U,  jedoch  Oder-Verknüpfung.  Eignet  sich  zum  Beispiel 
zum  Duplizieren  von  Bildern.  Da  die  Befehle  I,  U,  0,  X  keinen 
Einfluß  auf  die  Farbinformation  eines  Bildes  haben,  wird  sie  bei 
Farb-Betrieb  nicht  dupliziert.  Soll  dies  geschehen,  so  muß  mit 
dem  Move-Befehl  dupliziert  werden. 

Xn  Exor-(Exclusiv-Oder-)Verknüpfung 
Zweimalige  Exor-Verknüpfung  mit  demselben  Bild  bewirkt, 
daß  dieses  wieder  aus  dem  sichtbaren  Bild  »herausgefieselt« 
wird. 

F,  B  (Fore,  Back)  —  Rahmenfarbe  weiterschalten 
SHIFT  F  Total  Foreground  —  Vordergrund-Farbe 
SHIFT  B  Total  Background  —  Hintergrund-Farbe 
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4-BiT-ALU  <  Ar i  thweti c  logic  unit)  Typ  74181 

(Beispiel  für  einen  Ausdruck  Hit  640*680  Punkten) 


Bild  2.  Dieser  verkleinerte  Schaltplan  wurde  aus  insgesamt  sechs  verschiedenen  Bildern  zusammengesetzt.  Je  zwei  neben¬ 
einander  und  drei  untereinander.  Auch  ein  reverser  Ausdruck  ist  mit  einem  Tastendruck  möglich.  Die  Symbole  aus  dem 
Construction-Set  können  einzeln  in  jedes  beliebige  Bild  hineinkopiert  werden. 


Die  Befehle  F  und  B  wurden  bereits  bei  den  Modusbefehlen 
behandelt.  Im  Schwarzweiß-Betrieb  schalten  diese  Befehle 
nur  die  Rahmenfarbe  weiter,  den  aktuellen  Modus  verändern 
sie  nicht. 

SHIFT  F  und  SHIFT  B  sind  dagegen  in  beiden  Betriebsarten 
(farbig  und  schwarzweiß)  gleich:  Sie  färben  den  gesamten 
Vorder-  oder  Hintergrund  mit  der  aktuellen  Rahmenfarbe  ein. 
Sollte  man  auf  diese  Art  im  Farb-Betrieb  versehentlich  eine 
mühsam  erstellte  Colorierung  löschen:  Pfeil-nach-links-Taste 
drücken,  und  sie  ist  wieder  da. 

SHIFT  CLR  Bildschirm  löschen 
Die  Farbinformation  wird  nicht  gelöscht  und  kann  somit  iso¬ 
liert  werden. 

+  Schnelle  Cursorgeschwindigkeit  (beschleunigend) 


—  Langsame  Cursorgeschwindigkeit 

HI-EDDI  besitzt  einen  beschleunigenden  Cursor:  Er  ist  lang¬ 
sam  genug,  um  durch  Antippen  des  Joysticks  pixelweise  zu 
rangieren,  bei  größeren  Entfernungen  wird  er  jedoch  —  ohne 
lästiges  Umschalten  —  schneller.  Da  jedoch  die  Beschleuni¬ 
gung  manchmal  unerwünscht  ist,  läßt  sie  sich  durch  Drücken 
der  Minus-Taste  abschalten. 

Fl  bis  F8:  Tabulatoren 

Die  vier  Funktionstasten  dienen  als  Speicher  für  vier  Cur¬ 
sorpositionen:  Durch  gleichzeitiges  Drücken  der  SHIFTTaste 
und  einer  Funktionstaste  wird  die  momentane  Cursorposition 
gespeichert,  durch  Drücken  einer  Funktionstaste  allein 
springt  der  Cursor  wieder  genau  an  die  gespeicherte  Stelle. 
F7  wird  von  den  Befehlen  L,  R  und  C  automatisch  belegt. 
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H  —  Horizontale  Schrittweite 
V  —  Vertikale  Schrittweite 
Fl  bis  F8:  Schrittweiten  speichern 

Noch  eine  Speicherfunktion  haben  die  Funktionstasten: 
Normalerweise  bewegt  sich  der  Cursor  in  1  -Pixel-Schritten  bei 
der  Joysticksteuerung,  beziehungsweise  in  8-Pixel-Schritten 
bei  Steuerung  mittels  Cursortasten.  Diese  Schrittweiten  sind 
jedoch  —  getrennt  für  horizontale  und  vertikale  Bewegung  — 
frei  programmierbar,  vier  Schrittweitenpaare  können  auf  den 
Funktionstasten  gespeichert  werden.  Das  Anwählen  einer 
Schrittweite  erfolgt  durch  gleichzeitiges  Drücken  der  C  = 
(Commodore-)Taste  und  einer  Funktionstaste  (gilt  nur  für  die 
Cursortastensteuerung,  der  Joystick  holt  seine  Schrittweite 
immer  aus  Fl),  das  Programmieren  durch  die  Befehle  H  und 
V,  wonach  die  aktuelle  (angewählte)  Schrittweite  angezeigt 
wird  und  geändert  werden  kann. 

Im  Einschaltzustand  sind  die  Tasten  folgendermaßen  belegt: 
Fl:  H  =  1,  V  =  1,  das  ist  die  normale  Joysticksteuerung.  Durch 
Vergrößerung  auf  2  oder  3  lassen  sich  im  Draw-Modus  punk¬ 
tierte  Linien  zeichnen. 

F3  (Diese  Taste  ist  im  Einschaltzustand  angewählt):  H  =  8,  V 
=  8,  für  Textmodus.  Vergrößerung  ergibt  eine  gedehnte 
Schrift  oder  einen  größeren  Zeilenabstand. 

F5:  H  =  24,  V  =  21,  =  Spritemaße,  zur  flächendeckenden  Be¬ 
arbeitung  mittels  Sprite-Editor. 

F7:  H  =  160,  V  =  96,  zur  Einteilung  des  Bildschirmes  in  Vier¬ 
telbilder  für  Walk-Befehl. 

Weitere  Anwendungsmöglichkeiten  sind:  Maßstäbe,  Gitter¬ 
raster,  exakt  symmetrische  Zeichnungen  etc... 

Space:  Sprite-Editor 

Durch  Drücken  der  Leertaste  kommt  man  in  den  Sprite- 
Editor.  Das  Setzen  und  Löschen  von  Punkten  geht  dort  genau¬ 
so  wie  im  Draw-Modus.  Die  Befehle  des  Grafik-Editors  sind  im 
Sprite-Editor  nicht  zugänglich,  dafür  stehen  die  folgenden  zur 
Verfügung: 

M  Mirror  —  Das  Sprite  wird  zur  Senkrechten  gespiegelt. 

T  Turn  —  Drehung  um  180  Grad.  M  und  T  ergeben  eine  Spie¬ 
gelung  zur  Waagrechten. 

R  Rotate  —  Das  Sprite  wird  um  90  Grad  im  Uhrzeigersinn  ge¬ 
dreht.  Da  es  jedoch  24  Punkte  breit,  aber  nur  21  hoch  ist,  ge¬ 
hen  die  rechten  drei  Spalten  verloren.  Außerdem  ist  zweimal 
R  nicht  dasselbe  wie  T. 

G  Grid  —  Zum  besseren  Abzählen  von  Punkten  wird  ein  Gitter 
eingeblendet,  bei  nochmaliger  Eingabe  von  G  wird  es  wieder 
ausgeblendet. 

SHIFT  CLR  Sprite  löschen 

Space  Sprite-Editor  verlassen 

W  Walk  Bildfolge  ablaufen  lassen 

SHIFT  W  Bildsequenz  programmieren 

Jetzt  lernen  die  Bilder  laufen!  Mit  W  werden  die  Bildschirm¬ 
speicher  in  schneller,  programmierbarer  Folge  zyklisch  durch¬ 
geschaltet.  Da  jedoch  sechs  Bilder  für  einen  Bewegungs¬ 
ablauf  recht  wenig  sind  (Speicher  7  wird  als  »Leinwand«  be¬ 
nutzt,  sein  Inhalt  geht  verloren)  und  außerdem  die  Bildfolge- 
Geschwindigkeit  bei  der  Verschiebung  von  jedesmal  8  KByte 
nicht  gerade  hoch  ist  (maximal  7  Bilder/s),  können  die  sechs 
Bildschirme  in  24  Viertelbilder  (mit  je  160  x  96  Punkten,  die 
unterste  Zeile  bleibt  frei)  zerlegt  werden,  die  bei  Maximalge¬ 
schwindigkeit  in  einer  Sekunde  »durchgerasselt«  werden. 

Bei  der  Erstellung  solcher  Viertelbilder  ist  die  programmier¬ 
bare  Schrittweite  (160/96)  sowie  der  Move-Befehl  besonders 
nützlich.  Die  Programmierung  der  Bildfolge  geschieht  durch 
einen  Sequenz-String,  der  aus  den  Zahlen  1  bis  6  zum  Aufruf 
der  großen  Bilder  oder  aus  den  Buchstaben  A  bis  X  zum  Aufruf 
der  Viertelbilder  bestehen  kann.  Der  Bildschirmspeicher  1 
enthält  die  Viertelbilder  A  (links  oben),  B  (rechts  oben),  C  (links 
unten)  und  D  (rechts  unten).  Das  geht  so  weiter  bis  zum  Spei¬ 
cher  6,  der  die  Viertelbilder  U,  V,  W,  X  enthält.  Beispiel:  Zum 
sequentiellen  Durchschalten  aller  Viertelbilder  besteht  der  Se¬ 


quenzstring  aus  den  Buchstaben  A  bis  X  in  alphabetischer 
Reihenfolge.  Zahlen  und  Buchstaben  dürfen  mehrfach  und  so¬ 
gar  gemischt  Vorkommen. 

Mit  SHIFT  W  gelangt  man  in  den  Sequenzstring-Editor,  mit 
W  wird  die  Bewegung  gestartet.  Während  des  Laufes  kann  die 
Geschwindigkeit  mit  der  Plus-  und  Minus-Taste  geregelt  wer¬ 
den,  bei  gedrückter  SHIFT-Taste  läuft  der  Film  rückwärts. 
Durch  Druck  auf  den  Feuerknopf  wird  die  Vorführung  beendet. 

Bei  Farb-Betrieb  wird  Bildschirm  6  als  Leinwand  verwendet, 
es  stehen  nur  noch  5  große  oder  20  kleine  Bilder  zur  Verfü¬ 
gung. 

Z  Zeichensatz 

HI-EDDI  kann  auch  als  Zeichensatz-Editor  verwendet  wer¬ 
den:  Mittels  Z  wird  der  gerade  angewählte  Zeichensatz  in  die 
ersten  sieben  Zeilen  des  Grafikbildschirmes  kopiert.  Dort  kann 
er  mittels  Get,  Sprite-Editor  und  Stamp  modifiziert,  anschlie¬ 
ßend  auf  Diskette  gespeichert  und  von  anderen  Programmen, 
zum  Beispiel  Textverarbeitungsprogramme,  verwendet  wer¬ 
den. 

C=  L  LOAD  (C  =  bedeutet  Commodore-Taste) 

C=  S  SAVE 

C=  D  Directory  anzeigen 

C=  C  Commando  an  Disk  oder  (wenn  nur  RETURN)  Fehler¬ 
kanal  lesen 

Bei  LOAD  und  SAVE  hat  man  die  Wahl  zwischen  (schwarz¬ 
weißem)  Grafikbild,  Farbbild,  Zeichensatz  und  Sprite.  LOAD 
und  SAVE  beziehen  sich  immer  auf  den  aktuellen  (=  sichtba¬ 
ren)  Bildschirmspeicher  (beziehungsweise  Sprite).  Bei  SAVE 
Zeichensatz  muß  dieser  in  den  ersten  sieben  Zeilen  des  sicht¬ 
baren  Bildschirmes  stehen.  Bei  LOAD  Sprite  sollte  man  wirk¬ 
lich  nur  ein  Sprite  und  nichts  längeres  laden,  sonst  gibfs  einen 
netten  Absturz.  Es  können  auch  Diashow-Bilder  und  Files  an¬ 
derer  Graii'  Programme  gelesen  werden. 

C=  P  Print  —  Ausdrucken 

Die  Druckerroutine  HI-PRINT  wird  bei  Bedarf  in  Overlay¬ 
technik  nachgeladen,  nach  Beendigung  des  Druckvorganges 
wird  wieder  HI-EXE  geladen. 

Die  vorliegende  Druckerroutine  bietet  folgende  Möglichkei¬ 
ten: 

1.  Ausdruck  eines  Bildes,  groß  oder  klein. 

2.  Zwei  Bilder  nahtlos  nebeneinander,  was  natürlich  nur  in 
klein  geht. 

Superhardcopy 

Vor  und  nach  dem  Ausdruck  werden  keine  zusätzlichen  Zei¬ 
lenvorschübe  ausgegeben,  aufeinanderfolgende  Ausdrucke 
hängen  somit  nahtlos  aneinander  (Bild  1 ).  So  läßt  sich  zum  Bei¬ 
spiel  mit  sechs  Bildern  eine  Superhardcopy  mit  640  x  600 
Punkten  erstellen  (Bild  2),  lädt  man  zwischendurch  weitere  Bil¬ 
der  von  Diskette  nach,  kann  man  meterlange  Bilder  aus- 
drucken. 

Leider  ist  Drucker  nicht  gleich  Drucker!  Die  vorliegende 
Druckerroutine  (Listing  1)  läßt  sich  nur  für  Epson-Drucker  und 
kompatible  mit  Interface  verwenden.  Deshalb  möchte  ich  im 
folgenden  Kapitel  Hinweise  zur  Erstellung  einer  Druckerrouti¬ 
ne  für  andere  Konfigurationen  geben. 

Die  Speicherbelegung  von  HI-EDDI: 


$57-$60  und  $F9-$FE:Temporäre  Speicherzellen 


$2C0-$2FE: 

$340-$3FE: 


$801-$CFF: 

$D00-$1F4C: 

$1F80-$1FFF: 


$2000,  $4000, 
$6000  etc.: 


Residenter  Datenbereich  (Sprite-Inhalt) 

Temporärer  Datenbereich  (Kreuz-,  großes  und 

kleines  Rahmen-Sprite 

Basic-Speicher 

Maschinenprogramm 

Residenter  Datenbereich  (Betriebszustände 
etc.) 


Grafikspeicher 
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Die  Druckerroutine  wird  in  denselben  Bereich  wie  HI-EXE 
geladen,  also  ab  $D00,  nach  Beendigung  des  Druckvorgan¬ 
ges  wird  wieder  HI-EXE  geladen  (Listing  1  und  2). 

Die  vorliegende  Druckerroutine  enthält  auch  ein  Software- 
Interface,  das  den  User-Port  zur  Centronics-Schnittstelle  um¬ 
funktioniert.  Dazu  muß  ein  Kabel  mit  folgender  Pinbelegung 
verwendet  werden: 


Pin  am  User-Port 

Pin  am  Centronics-Stecker 

M 

(PA2) 

1 

(Strobe) 

C 

(PBO) 

2 

(DATA  1) 

D 

(PB1) 

3 

(DATA  2) 

E 

(PB2) 

4 

(DATA  3) 

F 

(PB3) 

5 

(DATA  4) 

H 

(PB4) 

6 

(DATA  5) 

J 

(PB5) 

7 

(DATA  6) 

K 

(PB6) 

8 

(DATA  7) 

L 

(PB7) 

9 

(DATA  8) 

B 

(FLAG2) 

10  oder  11 

(ACKNLG  oder  BUSY) 

A 

(GND) 

16 

Will  man  eine  Routine  für  andere  Drucker  schreiben,  so  darf 
diese  den  gesamten  Speicherbereich  von  $D00  bis  $1F7F 
belegen,  lediglich  die  residenten  Speicherbereiche  und  der 
Basic-Speicher  sind  tabu.  Die  Information  darüber,  wo  welcher 
Bildschirm  im  Speicher  liegt,  steht  in  den  7  Bytes  von  S1F96 
bis  $1F9C:  In  $1F96  steht  die  Nummer  des  Bildes,  das  ab 
$2  000  in  Speicher  liegt  (das  ist  das  sichtbare  Bild!),  in  Zelle 
$1F97  steht  die  Nummer  des  Bildes  ab  $4  000  und  so  weiter. 
Beispiel:  Soll  Bild  Nummer  2  ausgedruckt  werden,  so  sucht 
man  in  der  Tabelle  nach  der  2.  Steht  sie  zum  Beispiel  in  Zelle 
$1F9A,  so  liegt  Bild  2  im  Bereich  ab  $A000  (unter  dem  Basic- 
ROM).  Im  Farb-Betrieb  steht  in  Zelle  $1F97  eineO,  weil  im  Be¬ 
reich  $4000  bis  $6  000  dann  die  Farbinformationen  für  die 
sechs  Bilder  liegen  und  dieser  Bereich  für  Grafikbilder  somit 
gesperrt  sein  muß. 

Für  den  nicht  Maschinensprache-erfahrenen  Leser  sind 
dies  sicherlich  alles  spanische  Dörfer,  aber  vielleicht  sind  eini¬ 
ge  »Maschinen-Profis«  so  nett  und  schicken  Lösungen  für  an¬ 
dere  Drucker  ein. 


HI-EDDI  als  Menüprogramm 


Wem  die  Eingabe  der  Befehle  über  die  Tastatur  nicht  gefällt, 
der  kann  HI-EDDI  zu  einem  Menüprogramm  nach  dem  Vorbild 
des  Koala  Painter  umfunktionieren,  bei  dem  die  Befehle  über 
eine  bunte,  illustrierte  Menütafel  eingegeben  werden.  Ehrlich 
gesagt:  Ich  finde  die  Eingabe  über  Menütafel  alles  andere  als 
benutzerfreundlich:  Menü  holen,  Cursor  auf  das  gewünschte 
Feld  bugsieren  und  dann  Knopf  drücken  ist  eine  wesentlich 
umständlichere  Prozedur  als  ein  einfacher  Tastendruck.  Dafür 
macht  das  Entwerfen  und  Realisieren  einer  Menütafel  so  viel 
Spaß,  daß  ich  mich  entschlossen  habe,  diese  Möglichkeit  vor¬ 
zusehen. 

Doch  zunächst  zurück  zu  dem  Bytewert,  der  bei  Programm¬ 
start  auf  die  Frage  »Betriebsart«  eingegeben  werden  muß.  Er 
setzt  sich  wie  folgt  zusammen: 


Bit  7:  =0  :  Schwarzweiß-Betrieb 
=1  :  Farb-Betrieb 
Bit  6  :  =0  :  nur  Tastatureingabe 
=  1  ;  Menü-Eingabe 
Bit  5-1  :  keine  Funktion 

Bit  0  :  =0  :  Beim  Start  werden  alle  Bildschirmspeicher  gelöscht 

=1  :  Es  wird  nichts  gelöscht,  im  Speicher  befindliche  Bilder 
bleiben  erhalten 


Für  Farbe  und  Menü  zum  Beispiel  muß  192  eingegeben 
werden.  Ich  finde  die  Menü-Eingabe  nur  in  Farbe  sinnvoll,  ein 
Schwarzweiß-Menü  sieht  recht  langweilig  aus.  Ist  das  Bit  6  ge¬ 
setzt,  also  die  Menü-Betriebsart  angewählt,  so  muß  sich  auf 
der  Diskette  unter  dem  Namen  »MENUE«  die  Menütafel  befin¬ 
den,  die  beim  Start  automatisch  nachgeladen  wird.  Das  Erstel¬ 
len  einer  solchen  Menütafel  soll  nun  erklärt  werden: 

Die  Menütafel  wird  in  20  x  12,  also  insgesamt  240  Felder 
von  je  16  x  16  Punkten  eingeteilt.  20  x  16  =  320,  die  Breite 
des  Bildschirms,  aber  12x16  =  192  gibt  nicht  ganz  die  Höhe 
des  Bildschirmes:  Die  letzte  Zeile  (acht  Punkte)  bleibt,  wie  bei 
Walk,  frei.  In  dieser  Zeile  werden  die  Steuerbytes  unterge¬ 
bracht,  für  jedes  der  240  Felder  2  Bytes.  Wird  im  Menü- 
Modus  der  Cursor  auf  eines  der  Felder  gefahren  und  der  Feu¬ 
erknopf  gedrückt,  dann  holt  sich  HI-EDDI  aus  der  letzten  Zeile 
die  diesem  Feld  zugeordneten  Steuerbytes  und  entnimmt  aus 
ihnen,  welcher  Befehl  ausgeführt  werden  soll.  Die  Zuordnung 
von  Feldern  zu  Steuerbytes  geht  zeilenweise,  der  Reihe  nach: 
Die  ersten  beiden  Steuerbytes  (Adresse  $3E00  und  $3E01, 
wenn  die  Menütafel  angewählt  ist)  gehören  zum  ersten  Feld 
links  oben,  die  nächsten  beiden  Bytes  zu  dem  daneben  und 
so  weiter.  Die  Steuerbytes  zum  letzten  Feld  haben  die  Adres¬ 
sen  $3FDE  und  $3FDF,  das  liegt  bereits  im  unsichtbaren  Teil 
des  Bildschirmspeichers.  Die  nicht  gerade  ansehnlichen  Steu¬ 
erbytes  im  sichtbaren  Teil  können  durch  gleiche  Farben  für 
Vorder-  und  Hintergrund  versteckt  werden. 

Somit  ist  klar,  wie  man  Vorgehen  muß:  Zunächst  ist  ein 
Menü-Bild  zu  zeichnen,  bei  dessen  Einteilung  nur  die  20  x 
12-Feld-Rasterung  zu  berücksichtigen  ist.  Wie  man  die  Befeh¬ 
le  anordnet,  wieviele  Felder  man  für  einen  Befehl  zusammen¬ 
hängt  und  welche  Befehle  man  überhaupt  ins  Menü  aufnimmt, 
bleibt  jedem  selbst  überlassen.  Denn  keineswegs  alle  Befehle 
sind  lenüfähig«:  Die  Korrekturtaste  (Pfeil  nach  rechts)  wirkt 
nur  bis  zum  letzten  Bildschirmwechsel  zurück.  Da  jedoch  das 
Anwählen  der  Menütafel  ein  Bildschirmwechsel  ist,  verliert  die 
Korrekturtaste  dabei  ihre  Wirkung.  Dasselbe  gilt  für  die  Pfeil- 
nach-oben-Taste:  Die  Anwahl  der  Menütafel  gilt  als  Modus¬ 
wechsel!  Aus  demselben  Grund  muß  beim  MOVEn  über  zwei 
Seiten  die  Seitennummer  über  die  Tastatur  eingegeben  wer¬ 
den,  da  bei  einem  Moduswechsel  die  Markierung  eines  Quell¬ 
bereiches  gelöscht  wird. 

Aus  dem  Textmodus  kommt  man  nicht  direkt  ins  Menü  (SPA¬ 
CE  wird  als  zu  druckendes  Zeichen  interpretiert).  Es  muß  da¬ 
her  zuerst  ein  anderer  Modus  über  die  Tastatur  angewählt  wer¬ 
den  (zum  Beispiel  CTRL  D  für  Draw),  bevor  das  Menü  wieder 
zugänglich  ist. 

Dafür  bietet  die  Menütafel  auch  einige  Vorteile:  Die  Farben¬ 
wahl  erfolgt  nicht  mehr  durch  umständliches  Fortschalten, 
sondern  durch  Direktanwahl  der  Farben.  Und  die  Befehle  U,  O, 
X,  die  normalerweise  zwei  Eingaben  erfordern,  werden  jetzt 
mit  einer  Eingabe  »erschlagen«. 

Hat  man  nun  ein  Menübild  gemalt  (und  abgespeichert!),  so 
folgt  der  zweite  Teil,  das  Erstellen  der  Steuerbytes,  am  besten 
in  Form  eines  DATA-Laders  (siehe  Listing  4).  Von  den  zwei 
Steuerbytes  pro  Feld  enthält  das  zweite  den  Tastaturcode  des 
jeweiligen  Befehls.  Die  Tastaturcodes  sind  im  64’er,  Ausgabe 
5/84,  Seite  105  zusammengestellt,  sie  lassen  sich  auch  mit 
dem  folgenden  »Programm«  ermitteln: 

10  PRINT  PEEK(203):GOTO10 

Beim  ersten  Steuerbyte  muß  man  zwischen  verschiedenen 
Befehlskategorien  unterscheiden: 

1.  »Normale«  Befehle:  Bit  0  :  SHIFT-Bit,  muß  gesetzt  sein, 
wenn  für  den  entsprechenden  Befehl  die  SHIFTTaste  ge¬ 
drückt  werden  muß.  Bit  1  :  C=-Bit,  muß  bei  gedrückter 
Commodore-Taste  gesetzt  sein.  Die  Bits  2  bis  7  müssen  0 
sein.  Beispiel:  Sprite-Editor  einschalten  ergibt  die  Bytes  1 
(SHIFT,  im  Menü-Betrieb  dient  Space  zur  Anwahl  der  Menüta¬ 
fel,  der  Sprite-Editor  ist  nur  mehr  über  SHIFT-Space  erreich¬ 
bar)  und  60  (Tastaturcode  Space). 
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2.  Befehle  U,  0,  X:  Tastaturcode  der  entsprechenden  Num¬ 
merntaste.  Beispiel:  X  5  ergibt  die  Steuerbytes  16  (Tastaturco¬ 
de  »5«  und  23  (Tastaturcode  »X«). 

3.  Farbbefehle:  Bit  0  :  SHIFT-Bit.  Bit  2  bis  5:  Nummer  der  Far¬ 
be,  wie  im  Commodore-Handbuch  angegeben.  Die  Bits  1  und 
6  müssen  0  sein,  das  Bit  7  ist  1.  Beispiel:  Total  Foreground, 
Blauergibt:  128  (Bit  7)  +  4  x6  (blau)  +  1  (SHIFT)  =  153  und 
21  (»F«). 

4.  »Leerer«  Befehl  ohne  Verlassen  der  Menütafel  (zum  Bei¬ 
spiel  für  Überschrift):  1.  Byte  =  64,  2.  Byte  =  0 

5.  »Leerer«  Befehl  mit  Verlassen  des  Menüs:  1.  Byte  =  0, 
2.  Byte  =  64. 

Die  5  Byte  im  Anschluß  an  die  480  Steuerbytes  müssen  die 
Kennung  »CBM80«  enthalten.  Das  ist  eigentlich  die  ROM- 
Kennung,  ich  habe  sie  hier  als  Menütafel-Kennung  miß¬ 
braucht,  um  versehentliche  Menü-Zugriffe  auf  ein  normales 
Bild  zu  vermeiden.  Vorsicht:  Fehler  in  den  Steuerbytes  können 
zum  Programmabsturz  führen! 

Nun  braucht  man  nur  noch  Menübild  und  Steuerbytes  zu 
verknubbeln:  Dazu  HI-EDDI  (Listing  3)  laden,  Starten  (Be¬ 
triebsart  128),  Menübild  laden  und  Programm  mit  STOP/RE- 
STORE  unterbrechen.  Steuerbyte-DATA-Lader  laden  und  star¬ 
ten.  Der  Lader  muß,  wie  im  Beispiel  (Listing  4)  zu  sehen, mit 


den  Befehlen  POKE56,  32:CLR  beginnen,  um  das  im  Spei¬ 
cher  befindliche  Menübild  zu  schützen!  Dann  HI-EDDI  laden, 
starten  (Betriebsart  129,  damit  die  jetzt  bereits  fertige  Menüta¬ 
fel  im  Speicher  nicht  gelöscht  wird)  und  die  nun  sichtbare  Me¬ 
nütafel  unter  dem  Namen  »MENUE«  speichern. 

Wie  wird  der  »Menü-HI-EDDI«  nun  bedient?  Beim  Start  muß 
auf  die  Frage  Betriebsart  192  (oder  193)  eingegeben  werden. 
Auf  der  Menütafel  fährt  man  den  Cursor  auf  den  gewünschten 
Befehl  und  drückt  den  Feuerknopf.  Daraufhin  wird  das  Menü 
verlassen,  auf  den  aktuellen  Bildschirm  zurückgeschaltet  (im 
Einschaltzustand  ist  das  jetzt  2,  da  in  Speicher  1  die  Menütafel 
steckt)  und  der  Befehl  ausgeführt.  Das  Menü  wird  durch 
Drücken  der  Space-Taste  auf  den  Bildschirm  geholt.  Die  Tasta¬ 
tureingabe  bleibt  neben  dem  Menü  voll  erhalten.  Wie  schon 
erwähnt,  belegt  das  Menü  den  Speicher  1.  Dieser  Speicher 
kann  natürlich  auch  direkt  angewählt  werden,  allerdings  befin¬ 
det  man  sich  dann  nicht  im  Menü-Modus,  sondern  die  Menüta¬ 
fel  wird  wie  ein  ganz  normales  Bild  behandelt! 

Zum  Abschluß  noch  ein  Tip:  HI-EDDI  läßt  sich  mit  STOP/RE- 
STORE  unterbrechen  (nicht  während  einer  Befehlsausfüh¬ 
rung!),  ein  Warmstart  ist  mit  GOTO150  möglich,  ein  Kaltstart 
ohne  Nachladen  von  HI-EXE,  aber  mit  Betriebsart-Eingabe  mit 
RUN100.  (Hans  Haberl/ah) 


1 0  REM******************************** 

20  REM*  * 

30  REM*  HI-EDDI  * 

40  REM*  VON  HANS  HABERL  * 

50  REM*  * 

60  REM*  DATA-LADER  ZUR  ERZEUEUNG  * 

70  REM*DER  DRUCKERROUTINE  "HI-PRINT",* 

80  REM*  WIRD  AUF  DISKETTE  ABGELEGT  * 

90  REM******************************** 

100  : 

110  REM  CHECKSUMMEN,  NICHT  VERTIPPEN  ! 

1 20  DATA— 205 ,164,-457, 322 , 6B9 , -B34 , -49 , 290 
,-87,17 
130  : 

140  REM  M-CODE  PROGRAMM 

150  DATA  0,13,133,91,173,105,14,240,34,120 
, 169,255,141,3,221,173,2,221,9,4 
160  DATA  141,2,221,173,0,221,9,4,141,0,221 
,169,16,141,13,221,173,13,221,88,-1 
170  DATA  76,68,13,32,204,255,169,4,174,106 
,14,172,107,14,32,186,255,169,0 
1B0  DATA  32,189,255,32,192,255,162,4,32,20 
1,255,169,4,133,94,160,3,32,34,14,-1 
190  DATA  169,128,133,95,169,2,133,96,165,9 
1,41,192,208,4,70,95,70,96,165,91 
200  DATA  41,7,162,0,32,48,14,165,91,48,3,7 
4,74,74,41,7,162,2,32,48,14,169,-1 
210  DATA  25,133,92,165,95,48,10,160,20,169 
,32,32,71,14,136,208,250,160,8,32 
220  DATA  34,14,165,95,32,71,14,165,96,32,7 
1,14,169,40,133,93,120,169,52,133,-1 
230  DATA  1,160,7,177,87,153,125,14,136,16, 
248,169,55,133,1,88,165,87,24,105 
240  DATA  8,133,87,144,2,230,88,160,8,162,0 
,62,125,14,8,42,232,40,36,91,48,-1 
250  DATA  6,224,8,208,241,240,8,42,228,94,2 
08,234,32,71 , 14,32,71,14,136,208 
260  DATA  223,198,93,208,186,165,95,16,38,1 
62 ,1,1 B0 ,87 , 1B1 , 89 ,149, 87 , 1 48 , 89,-1 
270  DATA  202,16,245,165,94,73,12,133,94,20 
1,4,240, 15,165,91,48,3,76,151,13 
280  DATA  160,0,32,34,14,76,122,13,198,92,2 
08,244,160,0,32,34,14,160,13,32,-1 
290  DATA  34,14,32,204,255,169,4,32,195,255 
,96,185,108,14,201 ,255,240,6,32 
300  DATA  71,14,200,208,243,96,160,6,217,15 
0,31 , 240, 3, 136, 208, 24B, 169, 0,149,-1 
310  DATA  87,24,105,32,136,16,251,149,88,96 
,174,105,14,208,3,76,210,255,72 
320  DATA  141,1,221,173,0,221,41,251,141,0, 
221 ,9,4,141,0,221,173,13,221,41,-1 
330  DATA  16,240,249,104,96,-1 
340  : 


<060> 

<  069  > 

<  137> 
<158> 
<099 > 
<170> 
<043> 

<  222  > 

<  140> 
<076> 
<083> 

<239  > 

<  106> 
<012> 

<  206  > 

<  145> 
<230> 

<  1 17> 
<242> 
<055> 
<210> 
<024> 

<  139> 

<  1 12> 

<  176> 

<  1 43> 

<  171  > 

<  184> 
<067> 
<073> 
<035> 

<  158> 
<178> 
<062> 


350  REM  DIE  FOLGENDEN  DATAS  MUESSEN  AN 
360  REM  DEN  DRUCKER  ANGEPASST  WERDEN !  ! 

370  REM  (DIE  ANGEGEBENEN  WERTE  SIND 
380  REM  FUER  EINEN  EPSON  RX-80  MIT 
390  REM  DATA  BECKER  INTERFACE) 

400  : 

410  REM  0=SER .  BUS,  l=USERPORT 
420  DATA  0 

430  RF»  GERAETEADRESSE 
440  DATA  4 

450  REM  SEKUNDAERADRESSE  (DIREKTMODUS) 

460  DATA  1 

470  REM  DIE  LAENGE  DER  FOLGENDEN  DATA- 
4B0  REM  ZEILEN  DARF  NICHT  VERAENDERT 
490  REM  WERDEN,  GGF.  MIT  255  AUFFUELLEN 
500  REM  (MIND.  EIN  255  MUSS  IN  JEDER 
510  REM  ZEILE  BLEIBEN,  IST  ENDEKENNZ.) 

520  REM  CARRIAGE  RETURN  LINE  FEED 

530  DATA  13,10,255 

540  REM  ZEILENABSTAND  FUER  GRAFIK 

550  DATA  27,51,23,255,255 

560  REM  CRT-GRAFIK  (640  PUNKTE/ZEILE) 

570  REM  (OHNE  BYTE-ANZAHLEN!) 

500  DATA  27,42,4,255,255 
590  REM  NORMALER  ZEILENABSTAND 
600  DATA  27,50,255,255 
610  DAT A— 2  s  REM  DATA-ENDE 
620  : 

630  REM  CHECKSUMMENPRUEFUNG 

640  V=1 : FOR  1=0  TO  9: READ  S(I)sNEXT 

650  FOR  B=0  TO  9 

660  READ  AsIF  A>=0  THEN  S=S+A*Vi V=— Vr  GOTO 
660 

670  IF  S<  >S  (B)  THEN  PR I NT 11  DAT A-FEHLER  IN  ZE 
I  LE  "  1 50+20*B 11  ODER  "  1 60+20*B:  END 
680  S=0: NEXT : PRINT"DATAS  OK" 

690  : 

700  REM  FILE-ABLAGE 

710  RESTORE: FOR  1=0  TO  9: READ  ArNEXT 
720  OPEN  2,8,2, "HI-PRINT, P,W" 

730  READ  A: IF  A>=0  THEN  PR I NT#2 , CHR* ( A ) ; 
740  IF  A>— 2  THEN  730 
750  CLOSE  2: END 


<058> 

<039> 

<  151  > 
<246> 

<  086  > 
<122> 

<  143> 
<053> 
<076> 

<  105> 
<254> 
<101> 
<247> 
<162> 

<  136> 
<077> 
<175> 

<  156> 
<214> 

<  15B> 
<255> 

<  097  > 
<150> 

<  150> 
<235> 
<084> 

<  1  15> 
<088> 
<215> 
<079> 

<  156> 

<  183> 

<223> 

<004> 

<  15B> 
<080> 
<007> 
<027> 
<226> 
<108> 

<  184> 


6  64  'er 


Listing  1.  HI-PRINT  ist  eine  ausgezeichnete 
Druckerroutine  für  den  FX-80  und  kompatible  Drucker. 
Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  16. 
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Listing  2 

HI-EXE 

(Schluß) 

65 


Grafik 


C  64 


REM  ZEILEN  WEGLASSEN  ! ! 

3 

REM  ********************************* 


REM  * 

REM  * 

REM  * 

REM  *  VON! 

B  REM  * 

9  REM  * 

10  REM* 

11  REM* 

12  REM********************************* 


HI-EDDI 

HANS  HABERL 
BAHNHOFSTR.  3 
80 1B  GRAFING 
TEL.  08092/7152 


13  ! 

50  IF  A<2  THEN  A=A+2: LOAD "HI— EXE" , B , 1 
60  IF  A=3  THEN  150 
70  IF  A=4  THEN  650 

100  I NPUT “ BETR I EBSART " ;  C : POKE  7B0,C:POKE  5 
6,13: CLR: W*=" 1 23456" : SYS  3328 
110  IF  PEEK (8073) AND  64  THEN  A=3: LOAD"MENU 
£",8,1 

150  SYS  3337 :A=PEEK( 8064) 

160  ON  A+l  GOSUB  200,250,300,290,400,600,2 
90,290,500,510,300:GOTO  150 
200  OPEN  3,8,0, "$0" : GET#3, C*, C* 

210  GET#3,C*,C*,L*,H*: IF  C*=""THEN  CLOSE  3 
: WA IT  198,1: RETURN 

220  PR I NT  256*ASC ( H*+CHR* ( 0 ) >  +ASC ( L*+CHR* ( 
0) ) 5 : SYS  3334: GOTO  210 
250  PR I NT " <CLR , DOWN  JSEQUENZ : " : PR I NT " (DOWN , 
2SPACE > " W* : I NPUT " CHOME , 3D0WN  > " ; W* : I F  L 
EN(W*)<2  THEN  250 
290  RETURN 

300  POKE  8115,8: PR I NT “ ICLR , DOWN  >G=GRAF I KB I 
LD" : IF  PEEK <B073> >127  THEN  PRINT"F=FAR 
BBILD” 

310  PRINT" S=SPR I TE "  :  PRINT"  Z=ZEICHENSATZ"  :  P 
R I  NT  "  CDOWN  ,  SP ACE > — > "  ,- 
320  GET  C*:IF  C*<>"G“AND  C*<>"F"AND  C*<>"S 


<101> 

<234> 

<  134> 
<053> 
<1 12> 
<055> 

<  1 61  > 
<146> 
<238> 

<  1 35> 
<060> 

<  1 43> 
<245> 

<  107> 
< 027  > 

<  200  > 

<  159> 

<0B7> 

<  1 19> 

<254> 

<  154> 

<094  > 

<0ia> 


<062> 

<094> 


<036> 

<017> 


"AND  C$<>"Z" THEN  320  <240> 

G46R  OTILI 


330  PRINT  C*: POKE  780 ,ASC <C*> : H*=W*: INPUT" 

<DOWN  >F I LENAME " ; W* : S YS  333 1 : W*=H* : H* = " 

"  <046> 

340  OPEN  1,8, 15, H»:  INPUTttl  ,A,H*:  PRINT  A;  H* 

: IF  A>0  THEN  WAIT  198,1  <073> 

350  CLOSE  1: RETURN  <223> 

400  POKE  63 1,34: POKE  198,1:H*= . INPUT" CCL 

R , DOWN > " j  H* : GOTO  340  <207> 

500  A=8075: GOTO  520  <053> 

510  A=B079  < 140> 

520  D=PEEK ( 8074 ) : C=PEEK <  A+D ) : PR I NT " ICLR , DO 

WN>F"2*D+1:PRINT"SCHRITTWEITE: "C,  <055> 

530  INPUT  C: IF  C<1  OR  0160  THEN  530  <066> 

540  POKE  A+D ,C: RETURN  <189> 

600  INPUT" ICLR, DOWN>NUMMER  1 . BILD" 5 D: C= (D 

AND  7)  <087 > 

610  INPUT" IDOWNJNUMMER  2. BILD  (0=NUR  1  BIL 
D > " } D: C=C+8* (D  AND  7) : IF  D>0  THEN  C=C+ 

64  <067> 

620  IF  D=0  THEN  PRINT" IDOWN>BROSS" ; : GOSUB 

800: IF  C*="J"THEN  C=C+128  <075> 

630  PRINT" IDOWNJDRUCKEN"; : GOSUB  800: IF  C*= 

"N"THEN  660  <104> 

640  IF  A=5  THEN  A=4: LOAD "HI— PRINT" ,8,1  <144> 

650  POKE  780, C: SYS  3328: PRINT" IDOWNJNOCHMA 

L" j : GOSUB  800: IF  C*="J"THEN  600  <150> 

660  IF  A=5  THEN  RETURN  <209> 

670  A=1 : GOTO  50  <194> 

800  PRINT"  ?  ( J/N) " ;  <205> 

810  GET  C*: IF  C*<>"J"AND  C*<>"N"THEN  810  <210> 

820  PRINT  C*: RETURN  <230> 


©  G4'er 

Listing  3:  HI-EDDI  Steuerprogramm.  Bitte  beachten  Sie  die 
Einqabehinweise  auf  Seite  16. 


10  REM********************************* 

<  141  > 

240 

DATA  1,60,1,60,1,60,1,60,1,60,1,60,0,1 

20  REM*  * 

<069> 

9,19,23,19,38,19,30,0,33 

<132> 

30  REM*  HI-EDDI  * 

<  137> 

250 

DATA  128,21,132,21,136,21,140,21,144,2 

40  REM*  VON  HANS  HABERL  * 

<  158> 

1,148,21,152,21,156,21,160,21 

<082> 

50  REM*  * 

<099> 

260 

DATA  164,21,168,21,172,21,176,21,180,2 

60  REM*  DATA ’S  FUER  DIE  STEUERZEILE  * 

<19?> 

1, 184, 21, 1BB, 21, 0,4, 0,5, 0,6, 0,3 

<097> 

70  REM*  DER  BE I SP I EL-MENUETAFEL  * 

<  145> 

270 

DATA  1 28, 28, 132, 28, 136, 2B, 140, 28, 144, 2 

80  REM********************************* 

<21 1  > 

8, 1 48, 28, 152, 28, 156, 2B, 160, 28 

<111) 

90  REM  JE  ZWEI  AUFEINANDERFOLGENDE  DATA-ZE 

280 

DATA  164,28, 16B, 28, 172,28, 176,28, 180,2 

ILEN 

<254> 

8,184,2B, 188,28,1 ,4,1 ,5, 1 ,6, 1 ,3 

<  137  > 

100  REM  ERGEBEN  EINE  ZEILE  IN  DER  MENUETAF 

290 

DATA  129,21,133,21,137,21,141,21,145,2 

EL  (=20  FELDER) 

<079> 

1,149,21,153,21,157,21,161,21 

<155> 

110  DATA  64,0,64,0,64,0,64,0,64,0,64,0,64, 

300 

DATA  165,21 , 169,21 , 173,21 ,177,21 , 181 ,2 

0,64,0,64,0,64,0 

<215> 

1,185,21,189,21,2,4,2,5,2,6,2,3 

<140> 

120  DATA  64,0,64,0,64,0,64,0,64,0,64,0,64, 

310 

DATA  129,28, 1 33, 2B, 137,28, 141 ,28, 145,2 

0,64,0,64,0,64,0 

<225> 

8,149,28,153,28,157,28,161,28 

<  1B2> 

130  DATA  0,18,0,18,0,18,0,20,0,20,0,20,0,2 

320 

DATA  165,28,169,28,173,28,177,28,181,2 

2,0,22,0,22 

<  097  > 

8, 185, 28, 189, 2B, 0,29, 0,29, 0,31, 0,31 

<0B8> 

140  DATA  0,13,0,13,0,13,0,10,0,10,0,10,0,5 

330 

DATA  2,18,2,18,2,18,2,18,2,42,2,42,2,4 

6  v56| ,  ?3  ,'56 ,38,56,30,1,51 

<172> 

2,2,42,2,13,2,13,2,13,2,13 

<192> 

150  DATA  0,i:a,0, 18, 0,18, 0,20, 0,20, 0,20, 0,2 

340 

DATA  2,20,2,20,2,20,2,20,2,41,2,41,2,4 

2,0,22,0,22 

<1  17> 

1,2,41 

<21 1  > 

160  DATA  0,13, 0,13, 0,13, 0,10, 0,10, 0,10, 0,5 

350 

REM  KENNUNG  "CBMB0"  ,ALS  MENUEKENNUNG 

9, 39, 23., .59, 38, 59, 30, 1,51 

<234> 

MISSBRAUCHT 

<072> 

170  DATA  0,42,0,42,0,42,0,41,0,41,0,41,0,9 

360 

DATA  195,194,205,56,48 

<044> 

,0,9, 0,9 

<143> 

370 

: 

<092> 

180  DATA  0, 26, 0,26, 0,26, 0,14, 0,14,0, 14, 0,B 

380 

POKE  56,32: CLR: REM  IM  SPEICHER  BEFINDL 

, 8, 23, B, 38, B, 30, 1,51 

<058> 

ICHE  MENUETAFEL  SCHUETZEN 

<226> 

190  DATA  0,42,0,42,0,42,0,41,0,41,0,41,0,9 

390 

FOR  1=15872  TO  15872+484: READ  A:POKE  I 

,0,9, 0,9 

<163> 

,A:S=S+A:NEXT  I 

<02B> 

200  DATA  0,26,0,26,0,26,0,14,0,14,0,14,0,1 

400 

IF  SO 18329  THEN  PR INT "DATA— FEHLER ! " 

<099> 

1,11,23,11,38,11,30,0,33 

<246> 

210  DATA  0,17,0,17,0,17,0,36,0,36,0,36,1,9 

©  64'er 

,1,9, 1,9 

<063> 

220  DATA  1,60,1,60,1,60,1,60,1,60,1,60,0,1 
6.16. 23 .16. 3B .16. 30 . 0 . 33 

^  070  > 

Listing  4:  Ein  Beispiel  für  den  Aufbau  einer  Steuertafel  für 

230  DATA  0,17,0,17,0,17,0,36,0,36,0,36,1,9 

ein  selbsterstelltes  Menü.  Bitte  beachten  Sie  die  Eingabe- 

>1.9, 1,9 

<0B3> 

hinweise  auf  Seite  16. 
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Vier  Pseudo-VICs 
mit  32  Sprites 


Grafik 


Sie  wollen  mit  32  Sprites  und  vier 
Bildschirmbereichen  gleichzeitig  ar¬ 
beiten?  Nichts  leichter  als  das.  Mit 
Provic  64  können  simultan  hochauflö¬ 
sende  Grafik,  Text  oder  veränderte 
Zeichensätze  dargestellt  werden. 


Wir  (Jürgen,  21,  Physikstudent,  und  Stefan,  18,  Schüler)  ha¬ 
ben  uns  Mitte  1983  einen  Commodore  64  angeschafft.  Schon 
nach  kurzer  Zeit  stellte  sich  der  übliche  Frust  über  die  schlech¬ 
te  Dokumentation  und  die  schwierige  Informationsbeschaf¬ 
fung  ein,  besonders  wenn  es  um  die  speziellen  Grafikfähigkei¬ 
ten  dieses  Computers  geht.  So  saßen  wir  oft  stundenlang  vor 
dem  Bildschirm,  der  nur  undefinierbare  Zeichen  zeigte,  weil  wir 
bei  dem  Versuch,  die  Geheimnisse  des  C  64  zu  enträtseln,  in 
irgendeinen  unbekannten  Darstellungsmodus  geraten  waren. 

Dabei  entdeckten  wir,  daß  der  C  64  nicht  nur  acht,  sondern 
auch  16,  24,  32  oder  noch  mehr  Sprites  gleichzeitig  zeigen 
kann.  Zusätzlich  ergibt  sich  die  Möglichkeit,  mehrere  Bild¬ 
schirmmodi  zu  mischen. 

Nun  haben  wir  uns  entschlossen,  den  Kunstgriff,  der  dies  er¬ 
möglicht,  anderen  C  64-Fans  nicht  vorzuenthalten.  Also  ent¬ 
wickelten  wir  ein  Programm  in  Maschinensprache  und  dazu 
ein  kleines  Demonstrationsprogramm  in  Basic. 

Zum  Programm 

Durch  Aufruf  der  Initialisierungsroutine  wird  der  Interruptme¬ 
chanismus  des  C  64  verändert.  Nicht  mehr  der  Timer  der 
CIA  1,  sondern  der  VIC  6567  löst  jetzt  den  Interrupt  aus,  und 
zwar  synchron  zum  Takt  des  Bildschirmsignals.  Außerdem 
werden  vier  sogenannte  Pseudo-VICs  eingerichtet.  Alle  PO- 
KEs,  von  Spritebewegung  über  Bildschirmfarbe  bis  zur  Grafik¬ 
konfiguration,  müssen  ab  jetzt  in  diese  Pseudo-VICs  erfolgen. 
Jeder  dieser  Pseudo-VICs  ist  für  einen  der  vier  Bildschirmbe¬ 
reiche  zuständig: 

Der  Bildschirm  wird  in  vier  waagerechte  Bereiche  aufgeteilt, 
deren  Grenzlinien  fast  beliebig  nach  oben  oder  unten  verscho¬ 
ben  werden  können.  Jeder  einzelne  Bereich  kann  acht  Sprites 
darstellen  und  eine  eigene  Färb-  und  Grafikkonfiguration  auf¬ 
weisen.  So  können  zum  Beispiel  Normalschrift,  HiRes-Grafik, 
Multicolor-Grafik  und  eventuell  ein  selbstdefinierter  Zeichen¬ 
satz  gleichzeitig  auf  dem  Bildschirm  gezeigt  werden. 

Provic  64  kann  selbstverständlich  wieder  abgeschaltet  wer¬ 
den  (bei  Kassetten-  oder  Diskettenoperationen  nötig). 

Für  Maschinensprachefreaks  nun  eine  kurze  Funktionsbe¬ 
schreibung  der  Interruptroutine: 

Bei  Aufruf  der  Einschaltroutine  (SYS  52544)  wird  der  IRQ- 
Vektor  auf  die  Hauptroutine  des  Provic  64  gestellt  und  der  bis¬ 
herige  Interrupt  durch  den  Timer  A  der  CIA  1  verboten,  wäh¬ 
rend  der  Raster-IRQ  des  VIC  6567  erlaubt  wird. 

Sobald  der  Bildschirmstrahl  die  eingestellte  Rasterzeile  er¬ 
reicht,  wird  ein  Interrupt  ausgelöst  und  der  Prozessor  bearbei¬ 
tet  die  Hauptroutine  des  Provic  64.  In  dieser  wird  zunächst  an¬ 
hand  eines  Zählers  ($  CFFF)  festgestellt,  welcher  Bildschirm¬ 
bereich  an  der  Reihe  ist.  Dann  wird  die  Rasterzeile,  die  das  En¬ 
de  dieses  Bildschirms  kennzeichnet,  eingestellt. 


Anschließend  werden,  falls  ein  entsprechendes  Flag  ge¬ 
setzt  ist,  die  Sprite-  und  andere  Bildschirmparameter  in  den 
VIC  6567  übertragen.  Nach  dem  Weiterzählen  des  IR-Zählers 
($  CFFF)  wird  entweder  der  Interrupt  beendet,  oder  zur  IRQ- 
Routine  des  Betriebssystems  gesprungen  (nach  jedem  vier¬ 
ten  Interrupt).  So  werden  in  der  Sekunde  200  Interrupts  (vier 
pro  Fersehbild)  ausgelöst  und  50  mal  in  der  Sekunde  (einmal 
pro  Bild)  die  normale  IRQ-Routine  abgearbeitet.  Dadurch  zählt 
die  interne  Uhr  TI  in  50stel  Sekunden  und  TIS  wird  unbrauch¬ 
bar. 

Beim  Aufruf  der  Ausschaltroutine  wird  der  Raster-IRQ  des 
VIC  6567  vnterbunden,  der  Interrupt  des  Timers  A  in  CIA  1 
erlaubt  und  der  IRQ-Vektor  auf  die  IRQ-Routine  des  Betriebs¬ 
systems  eingestellt. 


Handhabung  der  Pseudo-VICs 


Im  Grunde  ist  jeder  der  vier  Pseudo-VICs  wie  der  echte  VIC 
zu  behandeln.  Ausnahmen  sind  hier  nur  die  Register  30 
(Sprite-Sprite-Kollision)  und  31  (Sprite-Hintergrund-Kollision), 
die  sich  auf  den  jeweils  vorausgegangenen  Bildschirmbereich 
beziehen.  Die  Register  19  und  20  (Lightpenkoordinaten),  so¬ 
wie  25  und  26  (IRQ-Flags  und  -maske)  werden  nicht  behan¬ 
delt,  da  diese  Funktionen  nur  direkt  über  den  VIC  6567  sinn¬ 
voll  gehandhabt  werden  können.  Außerdem  hat  jeder  Pseudo- 
VIC  noch  zusätzliche  Register  für  zwei  Flags  (REG  47  und 
REG  57),  acht  Sprite- Pointer  (REG  48  bis  REG  55), 


So  werden  die  Fähigkeiten  von  »Provic  64«  demonstriert 
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Die  vier  Basisadressen  der  PVICs  sind: 

PVIC  1  52992  ($  CFOO)  =  REG  0 

PVIC  2  53056  ($  CF40)  =  REG  0 

PVIC  3  53120  ($  CF80)  =  REG  0 

PVIC  4  53184  ($  CFCO)  =  REG  0 

Da  die  Pseudo-VICs  praktisch  gleichberechtigt  sind,  hier  die 
Registerbeschreibung  eines  Pseudo-VICs: 

REG  0:  X-Koordinate  des  Sprite  0 

REG  1:  Y-Koordlnate  des  Sprite  0 

Beachte:  Die  Y-Koordlnaten  sollten  im  Bereich 
des  zugehörigen  Bildschirmbereichs  liegen, 
sonst  ist  der  Sprite  nicht  zu  sehen.  Näheres  sie¬ 
he  unten. 

REG  2  bis  15:  Wie  REG  0  und  1,  aber  für  Sprites  1  -  7 

REG  16:  MSB  (höchstes  Bit)  der  X-Koordinaten 

REG  17:  Bits  0  bis  2:  Y-Abstand  der  Zeichen  vom  oberen 

Bildrand  in  Rasterzeilen  (Softscrolling ! ) 

REG  17:  Bit  3:  Umschaltung  24/25-Zeilendarstellung 

Bit  4:  Bild  an/aus:  es  hat  keinen  Sinn,  das  Bild 
teilweise  ausschalten  zu  wollen,  da  der  VIC  die¬ 
ses  Bit  nur  einmal  pro  Fernsehbild  prüft  (also  ent¬ 
weder  das  ganze  Bild  an  oder  aus) 

Bit  5:  HiRes-Grafik-Modus  an 
Bit  6:  Hintergrundmehrfarb-Modus  an 
Bit  7:  Nummer  der  Interrupt-Rasterzeile  Bit  8;  es 
hat  wenig  Sinn,  dieses  Bit  zu  setzen,  da  so  nur 
Rasterzeilen  angesprochen  werden,  die  unterhalb 
des  Bildschirms  liegen.  Ist  in  irgendeinem 
Pseudo-VIC  die  9-Bit-Zahl  für  die  Rasterzeile  grö¬ 
ßer  als  311,  so  wird  überhaupt  kein  IRQ  mehr 
ausgelöst. 

REG  18:  Nummer  der  Rasterzeile  Bits  0  —  7;  hier  ist  an¬ 

zugeben,  wann  der  nächste  Interrupt  ausgelöst 
werden  soll,  das  heißt  wo  der  Bildschirrribereich 
dieses  PVICs  zu  Ende  sein  soll.  Dabei  sollte  fol¬ 
gende  Reihenfolge  eingehalten  werden:  REG  18: 
PVIC  1  <  PVIC  2  <  PVIC  3  <PVIC  4  (Zykli¬ 
sche  Vertauschungen  möglich!) 
nicht  verwendet  (siehe  oben) 

Sprite  enable  (einschalten) 

Bits  0  bis  2:  Softscrolling  in  X-Richtung 
Bit  3:  Umschaltungen  38/40-Spaltendarstellung 
Bit  4:  Multicolor-Modus  ein 
Bit  5  bis  7:  unbenutzt 
Sprite  vergrößern  in  Y-Richtung 
Bits  1  bis  3:  Adresse  Zeichengenerator  (Bits  11 
bis  13) 

Bits  4  bis  7:  Adresse  Video-RAM  (Bits  10  bis  13) 


REG  19  und  20: 
REG  21: 

REG  22: 


REG  23: 
REG  24: 


REG  25  und  26: 
REG  27: 

REG  28 
REG  29 
REG  30 
REG  31 


REG  32: 

REG  33  bis  36: 
REG  37  und  38: 
REG  39  bis  46: 
REG  47: 


REG  48  bis  55: 


REG  56: 


REG  57: 


REG  58: 


nicht  verwendet  (siehe  oben) 

Sprite-Priorität  vor  Hintergrund 
Flags  für  Multicolor-Sprites 
Sprite  vergrößern  in  X-Richtung 
Sprite-Sprite-Kollision 
Sprite-Hintergrund-Kollislon 
Achtung:  Geben  die  Kollisionen  des  vorangegan¬ 
genen  Bildschirmbereichs  an:  Findet  im  Bereich 
von  PVIC  3  eine  Kollision  statt,  wird  dies  Im  PVIC 
4  registriert.  Kollisionen  im  Bereich  von  PVIC  4 
werden  im  PVIC  1  registriert.  Dieses  Register 
muß  gelöscht  werden,  um  neue  Kollisionen  anzei- 
gen  zu  können! 

Rahmenfarbe 
Hintergrundfarben  0  bis  3 
Multicolor-Sprite-Farben  0  und  1 
Farben  für  Sprites  0  bis  7 
Flag  für  Spritebehandlung;  nur  wenn  der  Inhalt 
dieses  Registers  nicht  Null  ist,  werden  die  Regi¬ 
ster,  die  etwas  mit  Sprites  zu  tun  haben,  vom 
PVIC  in  den  VIC  6567  übertragen.  Das  sind  REG 
0  bis  REG  16,  REG  21.  REG  23,  REG  27  bis 
REG  31,  REG  37  bis  46  sowie  REG  48  bis  55. 
Ist  der  Inhalt  Null,  gelten  für  die  Sprites  die  Werte 
des  vorherigen  PVICs,  während  die  Kollisionen 
erst  im  nächsten  PVIC.  In  dem  REG  47  ungleich 
Null  ist,  angezeigt  werden. 

Sprite-Pointer  für  Sprites  0  bis  7;  Die  Pointer  auf 
die  Bitmuster  der  Sprites  werden  nicht  mehr  in 
die  Speicherzellen  2040  bis  2047  geschrieben, 
sondern  in  diese  Register  des  PVICs. 

In  diesem  Register  muß  das  Highbyte  der  Video- 
RAM-Anfangsadresse  plus  3  stehen;  normaler¬ 
weise  also  4  +  3  =  7  (da  der  Bildschirm  nach 
dem  Einschalten  des  Computers  bei  1024  be¬ 
ginnt,  1024  =  $  0400).  Bei  Verlegung  des 
Video-RAMs  ist  also  der  Inhalt  dieses  Registers 
zu  korrigieren. 

Flag  für  Bildschirmparameter-Behandlung;  nur 
wenn  der  Inhalt  dieses  Registers  nicht  Null  ist, 
werden  die  REG  17,  22,  24,  sowie  32  bis  36 
und  REG  58  in  den  VIC  6567  übertragen. 

Bits  0  und  1:  Adreßbist  14  und  15  des  VIC 
6557;  werden  nach  CIA  2  REG  0  Bits  0  und  1 
übertragen.  Mit  diesen  Bits  kann  Video-RAM, 
Charaktergenerator,  Grafik-Bitmap  in  16-KByte- 
Schritten  verschoben  werden.  Da  die  Bits  low- 
aktlv  sind,  sind  sie  beim  Einschalten  gesetzt  (also 
REG  58  =  3).  Bits  2  bis  7:  unbenutzt,  immer  0. 


Videomatrix-Anfangsadresse  Highbyte  (REG  56)  und  die  CIA 
2,  REG  0,  Bits  0  und  1  (REG  58)  (Adreßbits  14  und  15  des 
VIC  6567). 

Übergang  eines  Sprites  zwischen  zwei  Bildschirmberei¬ 
chen: 

Soll  ein  Sprite  zwischen  zwei  Bildschirmbereichen  wech¬ 
seln,  muß  in  beiden  Bereichen  derselbe  Sprite  (also  zum  Bei¬ 
spiel  beidesmal  Sprite  4)  die  gleiche  Position  besitzen,  und 
zwar  so  lange,  wie  der  Sprite  die  Trennlinie  zwischen  den  Be¬ 
reichen  überdeckt.  Wird  dies  nicht  beachtet,  werden  die  ent¬ 
sprechenden  Sprites  zerschnitten  und  verschoben. 

Aktivieren  von  Provic  64:  Von  Basic  aus  mit  SYS  52544  und 
von  Maschinensprache  aus  mit  JSR  $CD40. 

Ausschalten  von  Provic  64:  Von  Basic  aus  mit  SYS  52970 
und  von  Maschinensprache  aus  mit  JSR  $CEEA. 

Eingabe  von  Provic  64: 

Die  Eingabe  des  Listing  1  erfolgt  mit  dem  MSE,  das  Spei¬ 
chern  ebenfalls. 


Laden  von  Provic  64: 

Im  Programm  am  besten  mit  der  Zeile  IF  PEEK  (52544) 
>  <  120  THEN  LOAD  "PROVIC  64",  Gerätenummer,  1 
die  am  Anfag  des  Basic- Programms  stehen  sollte. 

Das  Demonstrationsprogramm  (Listing  2)  zeigt  einige  der 
Vorzüge  von  Provic  64.  Bis  der  Bildschirmaufbau  fertig  ist, 
müssen  Sie  eine  Weile  warten.  Es  ist  nur  als  Anregung  ge¬ 
dacht,  deshalb  verzichten  wir  hier  auf  eine  nähere  Beschrei¬ 
bung. 

Bei  Kassetten-  und  Disketten-  sowie  Drucker-Zugriffen  muß 
Provic  vorher  abgeschaltet  werden.  Sonst  beginnt  der  Bild¬ 
schirm  wild  zu  flackern  und  Provic  stürzt  vielleicht  ab. 

Provic  64  ist  nicht  nur  für  Basic-Programmierer,  sondern  vor 
allem  auch  für  Maschinensprache-Freaks  gedacht,  da  erst 
durch  schnelle  Maschinenprogramme  die  Möglichkeiten  von 
Provic  64  voll  ausgeschöpft  werden  können. 

(Jürgen  und  Stefan  Haas/bs) 
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Da  die  Pseudo-VICs  praktisch  gleichberechtigt  sind,  hier 
die  Registerbeschreibung  eines  Pseudo-VICs: 


Belegter  Adreßraum: 

$CD40 

$CD58 

$CEEA 


Einschaltroutine 

Interruptroutine 

Ausschaltroutlne 


SCFOO  Pseudo-VIC  1 

SCF40  Pseudo-VIC  2 

SCF80  Pseudo-VIC  3 

$CFCO  Pseudo-VIC  4 

SCFFF  Interruptzähler 

Provic  64  einschalten:  In  Basic:  SYS  52544 

in  Maschinensprache:  JSR  $CD40 
Provic  64  ausschalten:  in  Basic:  SYS  52970 

in  Maschinensprache  JSR  $CEEA 
Benutzte  RAM-Adressen: 

In  der  Zero-Page:  187  ($BB) 

188  (SBC) 

Rechenzeitzuwachs  bei  aktiviertem  Provic  64: 
alle  Sprlteflags  (REG  47)  und  Bildschirmparameterflags  (REG  57)  ge¬ 
löscht:  +  2,5% 

für  jedes  gesetzte  Spriteflag  (REG  47):  zirka  +  2,4% 

für  jedes  gesetzte  Bildschirmflag  (REG  57):  zirka  +  0,5% 

alle  Sprite-  und  Bildschirmflags  gesetzt:  zirka  +  15,0% 

Falls  der  C  64  abstürzt,  rettet  Run-Stop/Restore! 

Die  Zeitvariable  TI  zählt  bei  aktiviertem  Provic  64  in  50stel  Sekunden 
(statt  60stel): 

Tl$  wird  somit  unbrauchbar. 

Zeiger  für  Interruptaussprung  von  PVIC  3  bis  PVIC  4:  SCEE5 
Zeiger  für  Interruptaussprung  von  PVIC  1:  SCEE8 

Tabellarische  Übersicht  zu  Provic  64 


cddO  : 
cddB  : 
cdeO  : 
cdeB  : 
cdfO  : 
cd-f  8  : 
ceOO  : 
ce08  : 
celO  : 
celB  : 
ce20  : 
ce2B  : 
ce 30  : 
ce3B  : 
ce40  : 
ce4B  : 
ce50 
ce58  : 
ce6 0  : 
ce68  : 
ce70  : 
ce78  : 
ceBO  : 
ce88  : 
ce90  : 
ce9B  : 
ceaO  : 
ceaB  : 
cebO  : 
cebC  ; 
cecO  : 
cecB  : 
cedO  : 
cedB  : 
ceeO  : 
cee8  : 
ce-f  0  : 
ce-f  8  : 


07  c-f 
Bd  08 
dO  bd 
Ob  c-f 
Bd  Oc 
dO  bd 


Of 

Bd 


cf 

10 


dO  bd 
25  cf 
Bd  26 
dO  bd 
29  cf 
8d  2a 
:  dO  bd 
:  2d  cf 
:  Bd  2e 
I  a9  f  8 
:  cf  91 
:  bb  cB 
:  bd  33 
:  cf  91 
:  bb  cB 
:  bd  37 
:  fO  43 
:  3a  cf 
:  3a  cf 
:  8d  11 
:  dO  bd 


Bd  07  dO 
dO  bd  09 
Oa  cf  8d 
Bd  Ob  dO 
dO  b;J  Od 
Oe  cf 
Bd  Of 
dO  bd 
lc  cf 


bd 

cf 


Bd 
dO 
lb 
Bd 

Bd  25  dO 
dO  bd  27 
2B  cf  Bd 
Bd  29  dO 
dO  bd  2b 
2c  cf  8d 
Bd  2d  dO 
dO  bd  38 
B5  bb  aO 
bb  c8  bd 
bd  32  cf 
91 


bd  08  cf 
cf  Bd  09 
Oa  dO  bd 
Oc  cf 
Bd  Od 
Oe  dO  bd 
bd 
cf 

lc  dO  bd 
26  cf 
Bd 


10  cf 
Bd  lb 


27 
dO  bd 
2a  cf 


bd 

cf 


bb 
cB  bd 
36  cf 


20 

Bd 


cf 

21 


dO  bd 
24  cf 
05  a9 
cf  8a 
31  ea 
14  03 


cf 
bb 
bd 

cf  91  bb 
bd  3a  cf 
ad  00  dd 
Bd  00  dd 
dO  bd 
18  cf 
Bd  20  dO 
dO  bd  22 
23  cf  Bd 
8d  24  dO 
ff  Bd  ff 
fO  03  4c 
78  a9  31 
8e  15  03 


cf  91 
bb  cB 


16 

Bd 


bd 
cf 
28 
bd 

cf  Bd  2b 
2c  dO  bd 
2e  cf 
85  bc 
00  bd  30 
31 
91 

cB  bd  34 
35  cf  91 
91  bb  cB 
bd  39  cf 
29  03  9d 
29  fc 
11 
8d 

18  dO  bd 
bd  21  cf 
cf  Bd  22 
23  dO  bd 
eO  cO  dO 
ee  ff 
ea  4c 


bd 

cf 


cf 

Bl 


ld 

cf 

16 


a2  ea  Bd 
a9  81  8d 
Od  de  a9  00  4c  50  cd  ea 


be 
ac 
f  3 
6a 
Of 
2c 
17 
26 
3B 
60 
22 
b4 
Od 
84 
ed 
b9 
72 
b7 
c  7 
47 
4e 
00 
df 
35 
66 
7b 
d5 
ec 
b7 
46 
e5 
ea 
7c 
9d 
a6 
dl 
6b 
32 


Programm 

:  provic 

64 

cd40  dOOO 

cf  00 

■ 

■ 

00 

00 

00 

00 

00 

00 

00 

00 

01 

cf  OB 
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00 

00 

00 

00 

00 

00 

00 

00 

09 

cd40 
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■ 

78 

a9 

5B 

a2 

cd 

Bd 

14 

03 

97 

cf  10 

■ 

■ 

00 

lb 

5f 

00 

00 

00 

cB 

00 

99 

cd4B 

■ 

Be 

15 

03 

a9 

01 

Bd 

Od 

de 

cl 

cf  1B 

■ 

15 

79 

fO 

00 

00 

00 

00 

00 

26 

cd50 

■ 

■ 

Bd 

la 

dO 

Bd 

ff 

cf 

58 

60 

71 

cf  20 

■ 

■ 

Oe 

06 

Ol 

02 

03 

04 

OO 

Ol 

04 

cd5B 

m 

■ 

a9 

01 

Bd 

19 

dO 

ac 

ff 

cf 

la 

cf  2B 

■ 

a 

02 

03 

04 

05 

06 

07 

OB 

00 

06 

cd60 

■ 

■ 

fO 

Of 

BB 

fO 

09 

88 

fO 

03 

b7 

cf  30 

: 

OO 

00 

00 

00 

00 

00 

00 

00 

31 

cd68 

■ 

■ 

a2 

cO 

2c 

a2 

BO 

2c 

a2 

40 

3e 

cf  3B 

■ 

a 

07 

01 

03 

00 

00 

00 

OO 

00 

81 

cd70 
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2c 

a2 

00 

bd 

12 

cf 

8d 
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9f 

cf  40 
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a 

00 

00 
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00 

00 

41 

cd78 
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dO 

bd 

2f 

cf 

dO 

03 

4c 

Bd 

5e 

cf  48 
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00 

00 

00 

00 

00 

00 

00 
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49 

cd80 

■ 

■ 

ce 

ad 

le 

dO 

ld 

le 

cf 

9d 

04 

cf  50 

B 

a 

00 

lb 

91 

00 

00 

00 

cB 

00 

65 
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■ 

le 

cf 

ad 

lf 

dO 

ld 

lf 

cf 

ef 
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a 

15 

79 

fO 

00 

00 

00 

00 

00 

66 

cd90 

■ 

■ 

9d 

lf 

cf 

bd 

15 

cf 

Bd 

15 

99 

cf  60 

a 

a 

Oe 

06 

01 

02 

03 

04 

00 

01 

44 

cd9B 

■ 

dO 

bd 

17 

cf 

Bd 

17 

dO 

bd 

57 

cf  68 

a 

02 

03 

04 

05 

06 

07 

08 

00 

46 

cdaO 

■ 

ld 

cf 

Bd 

ld 

dO 

bd 

00 

cf 

46 

cf  70 

• 

a 

00 

00 

00 

00 

00 

00 

00 

00 

71 

cdaB 

■ 

■ 

8d 

00 

dO 

bd 

01 

cf 

8d 

01 

eB 

cf  7B 

a 

07 

01 

03 

00 

00 

00 

00 

00 

cl 

cdbO 

■ 

a 

dO 

bd 

02 

cf 

Bd 

02 

dO 

bd 

81 

cf  80 

a 

00 

00 

00 

00 

00 

00 

00 

00 

81 

cdbB 

■ 

■ 

03 

cf 

8d 

03 

dO 

bd 

04 

cf 

11 

cf  BB 

a 

a 

00 

00 

00 

00 

00 

00 

00 

00 

B9 

cdcO 

a 

Bd 

04 

dO 

bd 

05 

cf 

Bd 

05 

4a 

cf  90 

a 

00 

lb 

c3 

00 

00 

00 

cB 

00 

32 

cdcB 
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dO 
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Bd 
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dO 
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Listing  1.  Das  Listing  »Provic  64«.  Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  18. 
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cf  aO 
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Oe 
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02 
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02 
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00 
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fl 
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■ 

» 

07 

01 

03 

00 

00 

00 

00 

00 

41 

Listing 

1. 

Provic  64  (Schluß) 

6  REM  DIESES  KURZE  DEMO-PROGRAMM  SOLL 
B  REM  EIN  PAAR  DARSTELLUNGSFORMEN 
10  REM  ZEIGEN,  WIE  SIE  MIT  PROVIC-64 
12  REM  RELATIV  EINFACH  ERREICHBAR  SIND. 

14  REM  1984  BV  GEBR.  HAAS 

19  REM 

20  REM  LADEN  DER  PROVIC-64  ROUTINE 

21  REM 

30  IF  PEEK <52544 >=120  THEN  100 
40  PRINT" C2DOWN, SPACE > AUF  WELCHEM  DATENTRA 
EGER  IST  PROVIC-64" 

50  PRINT“ {DOWN, SPACE JVERFUEGBAR  <  FLOPPY  = 
8  /  DATASETTE  =1  >" 

60  INPUT"  " ;  A# : A= VAL ( Ai ) 

70  IF  A<  >1  AND  A<  >8  THEN  40 
80  LOAD " PROV I C  64",A,1 

99  REM 

100  REM  PSEUDO— V I C ' S  INITIALISIEREN 

101  REM 

110  P 1 =52992  s  P2=53056 : P3=53 1 20 : P4=53 1 84 : RE 
M  BASISADRESSEN  DER  PSEUDO-VIC'S 
120  POKE  Pl+21 ,255: PQKE  P1+24,22:P0KE  Pl+4 
7,1s POKE  PI +27, 255: POKE  P2+2 1,255 
130  POKE  P2+ 17, 59 : POKE  P2+24 ,24s POKE  P2+32 
,7: POKE  P2+47 ,1s  POKE  P2+27,255 
140  POKE  P3+2 1,255s POKE  P3+32,9:P0KE  P3+47 
,1s  POKE  P3+27, 255: POKE  P4+32.5 
150  POKE  P4+21, 255s POKE  P4+24 ,22s POKE  P4+4 
7,1: POKE  P4+18, 230: POKE  P4+27.255 

Iff  REM 

200  REM  SPRITE-DATEN  UEBERTRABEN 

201  REM 
210  RESTORE 
220  FOR  A=0  TO  126 
230  READ  WERT 
240  POKE  B32+A,WERT 
250  NEXT  A 

299  REM 

300  REM  BILSCHIRM  AUFBAUEN 

301  REM 

310  PRINT" {CLR, WHITE, DOWN, RVSON,7RIGHT>£<8 
H I FT-SPACE  >& i SH I FT-SP ACE >  fl  {SH I FT-SPACE 
>Ä(SHI FT— SPACE > A<SH I FT-SPACE  >£{3SH I FT- 
SPACE  >6  CSH I FT-SPACE  >4  <3SH I FT-SPACE  > AIS 
H IFT-SPACE  >£{SH IFT— SPACE  >fl{SH IFT-SPACE 

>a" 

320  PRINT"  <2D0WN, SPACE > AN  DIESEM  .BEREICH: 

G.K0  5.S/KLE  I N-SCHR I  FT  {DOWN  >  "  : 

330  FOR  A=0  TO  7s  PRINT" {BLUE 1RRRRRRRRRRRRR 
RRRRRRRRRRRRRRRRRRRRRRRRRRR {WH I TE  > " ; s  N 
EXT  A 

335  FOR  A=0  TO  14: POKE  12B9+A,34: NEXT  A 


<014> 

<  107> 

<  127> 

<  109> 


<  192> 

<044> 


<  178> 
<248> 


340  PRINT“ {6SP ACE >t  DORT  OBEN:  HIRES-GRAFI 

K-MODUS  T"  <024> 

350  PRINT" {DOWN, 13SPACEJHIER:  GROSS-SCHRIF 

T/GRAFIK"  <093> 

360  PR I NT "  {DOWN , SPACE >.OJUülT.Y_U_I.OP».t.L  K  JKf  5JCZ 

370  PRINT" {5D0WN,6SP ACE >T  ÜDRT  OBEN:  AAUFS 

CHRIFT  t (3UP> " : PRINT  TAB (6) ;  <055> 

390  SYS  52544: REM  PROVIC-64  ACT I VIEREN  <0B0> 

399  REM  •  <207> 

400  REM  HIRES-GRAFIK  ZEICHNEN  <201> 

401  REM  <209> 

410  FOR  A=101 10  TO  12360: POKE  A,0:NEXT  A  <212> 

420  FOR  A=0  TO  8*1STEP.0B  <248> 

430  X=3+A/.08:Y=77-ll*SIN<A)-9*COS<A/.7)  <121> 

440  AV=8 192+320* INT  (Y/8>  +  (Y  AND  7)+8*INT(X 

/8)  <172> 

450  POKE  AV,PEEK  <AV)  QR  2t<7-<X  AND  7))  <072> 

460  NEXT  A  <226> 

470  LA#="***  VON  HAAS I SOFT  ***{2SPACE>flJER 

DAS  64’ ER  BAGAZ I N {3SPACE  > "  <128> 

480  LA*=LA#+ " *** {3SPACE }£{SH IFT-SPACE >&{SH 
I FT-SPACE  >£{SH I FT-SPACE  >  V£{SH I FT-SPACE 1 
A{SHI FT-SPACE }£{3SHI FT-SPACE 16  4 {3SPAC 


E>" 

<  187> 

490 

LA*=LA*+LEFT*  <  LA*  ,  25 )  :  R=53266 

<066> 

499 

REM 

<051  > 

500 

REM  DEMONSTRAT I NS— SCHLE I FE 

<  141  > 

501 

REM 

<053> 

<075> 

510 

REM  SPRITES  SETZEN 

<013> 

<251  > 

511 

REM 

<063> 

<024> 

520 

FOR  A=0  TO  7 

<017> 

<110> 

530 

POKE  P 1 +2*A , 30+24*A+7*RND ( 1 ) 

:  POKE 

PI +2 

<046> 

*A+ 1 , 60+6*RND ( 1 > 

<  15B> 

<0B1> 

540 

POKE  Pl+39+A,RND < 1 ) *16: POKE 

P1+48+A, 13 

<069> 

. 5+RND < 1 ) 

<110> 

<0B3> 

550 

POKE  P2+2*A , 30+24* A+7*RND  < 1 ) 

:  POKE 

P2+2 

<014> 

*A+1,110+6*RND(1) 

<0U> 

560 

POKE  P2+39+A,RND ( 1 ) *16: POKE 

P2+48+A ,13 

<  178> 

<056> 

570 

POKE  P3+2*A , 30+24*A+7*RND ( 1 ) 

:  POKE 

P3+2 

<241  > 

*A+1 , 160+6*RND ( 1 ) 

<  135> 

<073> 

580 

POKE  P3+39+ A , RND (1)*16:P0KE 

P3+48+A , 13 

<077> 

. 5+RND  < 1 ) 

<246> 

<  130> 

590 

POKE  P4+2*A , 30+24*A+7 *RND < 1 ) 

sPOKE 

P4+2 

<  161  > 

*A+ 1 , 207+6*RND ( 1 ) 

<059> 

<  145> 

600 

POKE  P4+39+A , RND  < 1 ) * 1 6  s  POKE 

P4+48+A, 13 

<  163> 

. 5+RND  < 1 ) 

<058> 

610 

NEXT  A 

<122> 

<206> 

619 

REM 

<  173> 

620 

REM  LAUFSCHRIFT  SETZEN 

<097  > 

<  172> 

621 

REM 

<  175> 

625 

FOR  LP=1  TO  LEN < LA#) -25 

<  195> 

<07 1  > 

630 

LZ=LZ— 1 : IF  LZ >0  THEN  POKE  P4+22,LZ  OR 

8: FOR  A=0  TO  9: NEXT  AsGOTO  630 

<110> 

<  132> 

640 

PRINT  TAB (6> ; : WAIT  53265, 128: WAIT 

5326 

6,64: POKE  53206, 15: PRINT  LF#: PRINT" <2U 

<217> 

P>" 

<  193> 

<  005  > 

660 

LZ=7 : LF#=M I D#  <  LA# , LP , 25 ) 

<244> 

<034  > 

670 

NEXT  LP 

<019> 

<007> 

680 

GET  A*s IF  A*=""THEN  500 

<  173> 

<004> 

690 

SYS  52970: REM  PROVIC-64  DESAKTI VIEREN 

<  194> 

<  124> 

999 

REM 

<043> 

<  1 13> 

1000  REM  SPRITE-DATEN 

<203> 

<152> 

1001  REM 

<045> 

1002  DATA  0,0,0,0,126,0,1,255,128,7,255,22 

4,15,255,240,15,253,240,31 ,255,248  <077> 

1003  DATA  31,255,248,63,255,252,63,255,252 

,63,243,252,63,252,0,63,255,252,63  <031 > 

1004  DATA  255,252,31,255,248,31,255,248,15 

,255,240,15,255,240,7,255,224,1,255  <199> 

1005  DATA  128,0,126,0,0,0,0,0,0,126,0,1,25 

5, 12B,7,255,224, 15,255,240, 15,251  <154> 

1006  DATA  240,31,255,248,31,255,248,63,255 

,240,63,255,0,63,240,0,63,252,0,63  <003> 

1007  DATA  255,0,63,255,224,31,255,248,31,2 

55,248,15,255,240,15,255,240,7,255  <050> 

1008  DATA  224,1,255,128,0,126,0  <079> 


©  G4' 


Listing  2.  Ein  Demonstrations-Programm  zu  »Provic  64«.  Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  16. 
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Grafik 


Turtle-Grafik: 

Die  schnelle  Schildkröte 

Turtle-Grafik  ist  eine  Spracherweiterung,  die  es  in  sich  hat. 
Vollständig  in  Maschinensprache  geschrieben,  stellt  sie  einige 
Befehle  zur  Verfügung,  mit  denen  Sie  komfortabel 
sehr  schnell  Bilder  erzeugen  können. 


Wenn  Sie  dieses  Programm  (Listing  1)  abtippen,  werden  Sie 
keinen  Ärger  mit  den  vielen  DATAs  bekommen.  Haben  Sie  ei¬ 
nen  falschen  Wert  eingegeben,  weist  Sie  die  eingebaute  Prüf¬ 
summenroutine  auf  die  fehlerhafte  Zeile  hin  und  listet  sie  am 
Bildschirm.  Bitte  halten  Sie  sich  daher  an  die  Zeilennumerie¬ 
rung.  Nach  der  Eingabe  sollten  Sie  das  Programm  speichern 
und  erst  dann  starten.  Wenn  alles  ok  ist,  empfehle  ich  Ihnen, 
das  Demoprogramm  (Listing  2)  einzugeben.  Es  vermittelt  Ih¬ 
nen  einen  sehr  guten  Eindruck  von  den  Fähigkeiten  der  Grafik¬ 
erweiterung.  Doch  nun  zur  Turtle-Grafik  selbst. 

Wird  das  Programm  gestartet,  meldet  es  sich  mit:  TURTLE 
GRAPHICS  BY  PETER  MENKE  38911  BASIC  BYTES  FREE 
Nun  sind  alle  Funktionen  und  Befehle  des  Programms  fest  in 
Basic  eingebettet  und  bleiben  bis  zum  Ausschalten  erhalten. 

Das  Programm  unterstützt  die  Programmierung  zweier  von¬ 
einander  völlig  unabhängiger  Bildschirme: 

1.  Den  normalen  Textbildschirm 

2.  Den  Grafikbildschirm,  auf  dem  die  hochauflösende  Grafik 
erscheint. 

Zwischen  den  beiden  Bildschirmen  können  Sie  mit  der 
Funktionstaste  Fl  hin-  und  herschalten.  Der  neue  Befehl 
HIRES1  schaltet  den  Grafik-Bildschirm  ein  (HIRES  0  =  aus¬ 
schalten). 

Im  folgenden  die  Befehle  im  einzelnen: 

HIRES1  hi,  ra 

hi=Hintergrundfarbe  (0-15),  ra=Randfarbe  (0-15) 

Die  Angaben  für  Hintergrund  und/oder  Randfarbe  sind  nicht 
unbedingt  notwendig,  die  alten  Farben  werden  dann  beibehal¬ 
ten. 

CLEAR 

Dieser  Befehl  löscht  den  gesamten  Grafikbildschirm. 

REVERS 

Dieser  Befehl  invertiert  den  gesamten  Grafikbildschirm. 

COLOR  pu,  hi,  ra 

Die  Farben  der  hochauflösenden  Grafik  werden  neu  definiert 
(pu=Punktfarbe).  Wie  beim  HIRES-Befehl  können  auch  hier 
die  Angaben  für  hi  und/oder  ra  entfallen. 

GSAVE  »Name«,  Gerätenummer 
Speichert  eine  erzeugte  Grafik  ab. 

GLOAD  »Name«,  Gerätenummer 

Lädt  eine  vorher  gespeicherte  Grafik  in  den  Computer. 

Wenn  Sie  den  Grafikbildschirm  einschalten,  sehen  Sie  in  der 
Mitte  des  Bildschirms  einen  blinkenden  Punkt:  den  Grafikcur¬ 
sor  (oder  »Turtle«,  zu  deutsch  »Schildkröte«). 

Durch  Bewegen  dieses  Grafikcursors  können  Sie  Linien  auf 
dem  Bildschirm  zeichnen. 

DEG  wi 

Bestimmt  die  Bewegungsrichtung  der  Turtle.  Acht  Richtungen 
sind  möglich  (»wi«  kann  Werte  zwischen  0  und  7  annehmen). 

2 

3  1 

4  *  0 

5  7 

6 


MOVE  x 

Move  bewegt  die  Schildkröte  um  x  Punkte. 

Der  HIRES-Befehl  positioniert  den  Grafikcursor  automatisch 
auf  die  Bildschirmmitte.  Der  eingestellte  Winkel  ist  0.  Außer¬ 
dem  wird  Modus  0  eingeschaltet  (siehe  MODE). 

LTURN  x  (x  max.=255) 

Dreht  den  Grafikcursor  um  x  Einheiten  nach  links. 

RTURN  x  (x  max.=255) 

Dreht  den  Grafikcursor  um  x  Einheiten  nach  rechts. 

PLOT  x-cor,  y-cor 

Setzt  den  Grafikcursor  auf  eine  bestimmte  Bildschirmposition. 
Die  obere  linke  Ecke  des  Bildschirms  hat  die  Koordinaten  0,0; 
die  rechte  untere  319,199. 

MODE  m  (m  max  4) 

Bei  den  Befehlen  MOVE  und  PLOT  kennt  das  Programm  4 
Modi. 

0  =  Punkt  setzen 

1  =  Punkt  löschen 

2  =  Pun1-''  invertieren 

3  =  nichts  verändern 

Normalerweise  ist  Modus  0  eingeschaltet.  Mit  dem  MODE- 
Befehl  läßt  sich  dies  ändern. 

Gleichzeitige  Darstellung 
von  Text  und  Grafik 

Das  Programm  teilt  den  Bildschirm  in  einen  Text-  und  in  ei¬ 
nen  Grafikteil. 

Betätigt  man  bei  eingeschaltetem  Grafikbildschirm  die 
F3-Taste,  so  wird  im  unteren  Teil  des  Bildschirms  der  untere  Teil 
des  normalen  Textbildschirms  eingeblendet. 

Bei  nochmaligem  Betätigen  dieser  Taste  wird  das  »Textfen¬ 
ster«  wieder  ausgeblendet. 

WINDOW  1 

Schaltet  Textfenster  ein. 

WINDOW  0 

Schaltet  Textfenster  aus. 

Mit  der  Taste  F5  wird  der  Cursor  (der  normale)  in  die  obere 
linke  Ecke  des  Textfensters  gebracht.  Dies  entspricht  der 
HOME-Taste  für  den  gesamten  Bildschirm.  Die  F5-Taste  läßt 
sich  ebenso  programmieren  wie  die  HOME-Taste,  das  heißt  mit 
PRINT  "(F5)”  (auf  dem  Bildschirm  erscheint  ein  reverses  Gra¬ 
fikzeichen)  läßt  sich  der  Cursor  in  die  obere  linke  Ecke  des 
Textfensters  bringen. 

JOYSTICK  ve 

(ve=Verzögerung.  Mit  ve=0  malt  man  am  schnellsten,  mit 
ve=255  am  langsamsten.) 

Dieser  Befehl  erlaubt  das  Zeichnen  von  Bildern  mit  dem  Joy¬ 
stick  (Port  2).  Mit  dem  Joystick  kann  der  Grafikcursor  bewegt 
werden.  Druckt  man  gleichzeitig  den  Feuerknopf,  wird  ent¬ 
sprechend  dem  eingestellten  Modus  ein  Punkt  gesetzt,  ge¬ 
löscht  etc.  Nun  können  beliebige  Bilder  gezeichnet  werden,  so 
lange,  bis  mit  der  F7-Taste  mit  der  Programmabarbeitung  fort¬ 
gefahren  wird. 
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LPEN 

Dieser  Befehl  erlaubt  das  Zeichnen  von  Bildern  mit  dem  Light- 
pen  (Port  1).  Im  Prinzip  gilt  das  gleiche  wie  beim  JOYSTICK- 
Befehl,  nur  daß  hier  statt  des  Feuerknopfes  die  CTRL-Taste  be¬ 
ziehungsweise  der  Knopf  am  Lightpen  benutzt  wird.  Man  ver¬ 
läßt  den  Lightpenmodus  mit  F7. 

Alle  Befehle  können  unabhängig  vom  Einschaltzustand  des 
Grafikbildschirms  angewendet  werden.  Sie  lassen  sich  auch 
wie  normale  Basic- Befehle  abkürzen. 

Die  Funktionen  und  Anwendungen  des  Programms  und  sei¬ 
ner  Befehle  sind  sehr  gut  in  dem  Programm  »TURTLE  DEMO« 
demonstriert  (Listing  2). 

Das  Programm  beginnt  mit  Titel  und  Autorenanschrift.  Das 
GOSUB  in  Zeile  260  dient  nur  zur  Suche  von  Syntax-Fehlern  in 
den  DATA-Zeilen.  Im  Programmteil  »Variable«  ab  Zeilennummer 
290  wird  der  Variablen  AN  die  Startadresse  des  Maschinen¬ 
programms  zugewiesen,  der  Variable  ZI  die  Endadresse.  In 
NA$  steht  der  Programmname.  Die  eigentliche  Einleseroutine 
(ab  Zeile  350)  funktioniertfolgendermaßen:  Es  werden  in  einer 
Schleife  die  ersten  16  Zahlen  aus  einer  jeden  DATA-Zeile  gele¬ 
sen  und  in  den  Speicher  gePOKEt.  Gleichzeitig  wird  aus  den 
gelesenen  Daten  eine  Prüfsumme  gebildet.  Diese  Summe  wird 
mit  der  letzten  Zahl  in  der  DATA-Zeile  verglichen,  dies  ist  die 
richtige  Prüfsumme.  Unterscheiden  sich  die  beiden  Zahlen,  so 
wurde  ein  Tippfehler  gemacht  und  die  fehlerhafte  Zeile  wird 
vom  Programm  automatisch  geLISTet.  Außerdem  wird  geprüft, 
ob  eine  Zeile  vergessen  wurde  (Zeile  517-520)  und  ob  die  An¬ 
zahl  der  Daten  richtig  ist  (Zeile  530-537).  Zusätzlich  wird  noch 
getestet,  ob  die  gelesene  Zahl  auch  zwischen  0-255  liegt  (Zei¬ 
le  391).  Ist  dies  nicht  der  Fall,  wird  eine  Fehlermeldung  ausge¬ 
geben  (Zeile  503-505).  Ursache  ist  wahrscheinlich  ein  Kom¬ 
mafehler.  Wurde  kein  Fehler  gefunden,  so  fragt  das  Programm, 
ob  es  sich  selbst  abspeichern  soll  (davon  sollte  bei  der  ersten 
Benutzung  des  Programms  unbedingt  Gebrauch  gemacht 
werden,  Zeile  546-580).  Danach  wird  das  Maschinenpro¬ 
gramm  gestartet  (Zeile  590-610).  Trotz  der  Prüfsummen  ist  ein 
Fehler  in  den  DATAs  nicht  völlig  ausgeschlossen.  Vertauschun¬ 
gen  werden  zum  Beispiel  nicht  bemerkt.  Solche  Fehler  sind  je¬ 
doch  sehr  unwahrscheinlich. 


Komfortabler  DATA-Lader 


Diese  Art  der  Überprüfung  von  DATA-Werton  sollten  Sie  sich 
genau  ansehen.  Sie  erleichtert  der  Redaktion  und  vor  allem 
den  Lesern  die  Eingabe  und  Überprüfung  großer  Zahlenkolon¬ 
nen.  Falls  Sie  uns  Programme  einschicken  wollen,  dann  neh¬ 
men  Sie  sich  doch  auch  bitte  etwas  Zeit  und  fügen  eine  kom¬ 
fortable  Prüfroutine  in  Ihre  Programme  ein. 

Programmierung 

a)  Speicheraufteilung: 

Das  Video-RAM  steht  ab  $0400.  Der  HiRes-Speicher  wurde 
hinter  $CC00  gelegt,  das  HiRes-Farb-RAM  nach  C800.  Das 
Programm  selbst  beginnt  bei  $C000  und  endet  bei  $C88B. 
Programmvariable  liegen  im  Bereich  vor  $CC00. 

b)  Die  Belegung  der  Funktionstasten  wird  durch  ein  »Anzap¬ 
fen«  des  Interrupt  ermöglicht.  Die  Funktion  PRINT  "(fs)"  wird 
durch  Verändern  der  BSOUT-Routine  erreicht. 

c)  Das  Textfenster: 

Wie  Sie  wissen,  wird  das  Bild  auf  dem  Fernseher  (Monitor) 
durch  einen  Elektronenstrahl  erzeugt,  der  den  Bildschirm  zei¬ 
lenweise  von  oben  nach  unten  abfährt.  Der  VIC  bietet  nun  die 
Möglichkeit  bei  einer  bestimmten  Zeilenposition  einen  Inter¬ 
rupt  auszulösen.  Diese  Fähigkeit  des  VIC  wird  ausgenutzt.  In 


der  dann  ausgeführten  Interruptroutine  wird  zwischen  HiRes- 
und  Textmodus  hin-  und  hergeschaltet,  so  daß  der  Bildschirm 
in  ein  Text-  und  ein  Grafikfenster  eingeteilt  wird. 

d)  Die  neuen  Befehle: 

Es  gibt  zahlreiche  Möglichkeiten,  neue  Basic-Befehle  zu  im¬ 
plementieren.  Anzapfen  der 

1.  CHRGET-Routine  (DOS  5.1) 

2.  Eingabe-Warteschleife  (Toolkits) 

3.  Interpreterschleife  (beschrieben  im  64  Intern) 

Die  genannten  Möglichkeiten  haben  jedoch  alle  große 
Nachteile:  Sie  sind  alle  entweder  zu  langsam  (1.  und  3.),  die 
Befehle  lassen  sich  nur  im  Direktmodus  anwenden  (2.)  oder 
sie  können  nicht  abgekürzt  werden.  Deshalb  wurden  die  Be¬ 
fehle  mit  sehr  komplexen  Routinen  voll  als  Tokens  integriert. 
Aus  diesem  Grund  wurde  die  Interpreterschleife,  die  Routine 
zur  Umwandlung  in  Interpretercode  und  die  Routine  zur 
Rückurriwandlung  in  Klartext  verändert.  Die  Vorteile  dieser  Ar¬ 
beitsweise  sind,  daß  sich  die  neuen  Befehle  wie  normale 
BasiC-Befehle  anwenden  lassen  und  daß  nur  minimale  Ge- 
schwihdigkeitsverluste  bei  der  Ausführung  von  Basic-Pro- 
grammen  in  'Kauf  genommen  werden  müssen.  Ähnliche  Me¬ 
thoden  verwenden  übrigens  auch  professionelle  Basic- Erwei¬ 
terungen,  wie  zum  Beispiel  Simons  Basic. 


Einige  Befehle  definiert 


Ein  solches  »Anzapfen«  von  Betriebssystem-  und  Basic- 
Rouln  icn  wird  beim  C64  durch  zahlreiche  Sprungvektoren  er¬ 
möglicht,  die  verändert  werden  können.  Dies  ist  leider  nicht  bei 
allen  Computern  so  gut  möglich.  Die  hier  benutzten  Vektoren 
sind: 


Name:  Adresse  in  dezimal: 

Interrupt-Vektor 

788/789 

NMI-Vektor 

792/793 

BRK-Vektor 

790/791 

Bsout-Vektor 

806/807 

Vektor  für  Umwandlung  in  Interpretercode 

772/773 

Vektor  für  Umwandlung  in  Klartext 

774/775 

Vektor  für  Basic-Befehl  ausführen 
(Interpreterschleife) 

776/777 

Das  Wissen  über  die  Programmierung  des  Programms  ist 
für  dessen  Anwendung  nicht  nötig.  Doch  nun  viel  Spaß  mit 
Turtle-Grafik.  (Peter  Menke/ah) 


Benutzte  Variable: 

AN  =  Anfangsadresse  des  Maschinenprogramms 

ZI  =  Endadresse  des  Maschinenprogramms 

NA$  =  Programmname  beim  Abspeichern 

GE  =  Geräteadresse  beim  Abspeichern 

X  =  eingelesener  DATA-Wert 

S  =  Speicherstelle,  in  die  X  gePOKEt  wird 

Z  =  aktuelle  DATA-Zeilennummer 

PR  =  errechnete  Prüfsumme 

I  =  Variable  der  FOR/NEXT-Einleseschleife 
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20  PRINT"  (CLR,2D0WN,45PACE>raByBraBl)WBygS 

30  print"  {4space >ijinrsinnrBifinrB5innnnrinnrinfinj 

ssssbs 

40  PRINT" <4SPACE>BS<27SPACE>1? 

50  PRINT" (4SPACE>BS£27SPACE>BB 
60  PRINT" (4SPACE>1TS(5SPACE>TURTLE  GRAPHICS 
(7SPACE1SS 

(7SPACE1BB 

100  PR  I  NT  "  (4SPACE  >  OT< 27SPACE >SB 
110  PRINT" {4SPACE>OT{3SPACE>ENTWICKELT  8. 1 
984  VON (3SPACEJBS 
120  PRINT" £4SPACE>SB(27SPACE>BB 
130  PRINT"  (4SPACE>'gS(27SPACE>,BS 
140  PRINT" (4SPACE>EB(3SPACE>P  E  T  E  RC2SPA 
CE>M  ENK  E£4SPACE>OT 
150  PRINT" (4SPACE>BS(27SPACE>OT 
160  PR INT" (4SPACE >®S£8SPACE >GR I FTWEG  4  (9SP 
ACEJSU 

170  PRINT" C4SPACEJÜl£4SRAeE>2212  BRUNS8UET 
TEL  (6SPACE  >1TB 

190  PRINT" {4SPACE>51£27SPACE>OT 
200  PRINT" (4SPACE) 3S(27SPA0E>  KB 

jnnnnnni 

swsm 

230  PRINT" £2D0WN,9SPACE>BITTE  TASTE  DRUECK 
EN" 

240  GET  AS:IF  A*=”"THEN  240 
250  PRINT“ (CLR>" 

260  GOSUB  1000 
270  : 

280  : 

290  REM  »»VARIABLE** 

300  AN=49152 

301  ZI =5 1360 

310  NA*=" TURTLE  GR." 

320  : 

330  : 

340  : 

350  REM  ****  EINLESEROUTINE  *«** 

360  S=AN:Z=1000 

370  FOR  1=1  TO  16: READ  X 

390  IF  X=-100  THEN  530 

391  IF  X<0  OR  X>255  THEN  503 
400  GOSUB  515: POKE  S,X 

410  S=S+1:PR=PR+X:NEXT 
440  : 

460  READ  X: IF  PR=X  THEN  PR=0: Z=Z+10: GOTO  3 
70 

470  PRINT" (2D0WNJPRUEFSUMMENFEHLER  IN  ZEIL 
E"Z 

475  PRINT" (DOWN5PRUEFSUMME  DER  . . . 

R: PRINT 

4B0  PR I NT " R I CHT I GE  PRUEFSUMME: " X : PRINT: PR I 
NT 

490  PRINT" (DOWN  >L I ST " Z- 1 0 "  —  " Z " C2UP}"i : POKE 
631, 13:  POKE  1<?B,1 

500  END 

501  : 

502  : 

503  PR INT“ DATENFEHLER  IN  ZEILE" Z 

504  PR INT "ES  WURDE  VERSUCHT"X"ZU  POKEN. " 

505  GOTO  490 

510  : 

511  : 

512  : 

515  PRINT" (HOME, 2D0WN, 2SPACEJZEILE: "Z"  SPE 
ICHERSTELLE: "S 

516  PRINT" (DOWN, 2SPACE>E INGELESENER  WERT: £ 
4SPACE , 4LEFT  > " X 

517  IF  Z >=PEEK ( 63 ) +256*PEEK ( 64 )  THEN  RETUR 
N 

518  PRINT" (3D0WNJDATA-ZEILE  FEHLT!!" 

519  PRINT"ODER  ZEILENNUMMERN  DER  DATA-ZEIL 
EN  NICHT" 

520  PRINT" IN  ZEHNER  ABSTAENDEN" : END 

521  : 

522  : 

523  : 

530  IF  S=ZI  THEN  539 

531  PRINT" (3D0WN1DATENANZAHL  IST  FALSCH" :P 
RINT:PRI NT " DAS  WAERE  RICHTIG  :";ZI-AN 

532  PRINT: PRINT" IHRE  DATENANZAHL  : " ; S-AN 
537  END 


<031  > 

<  124> 
<095> 
<105> 

<  098  > 

<213> 

<155> 

<090> 

<  1 75  > 

<  185> 

<011> 

<205> 

<202> 

<120> 

<245> 

<255> 

<048> 

<058> 

<074> 

<  1 46> 
<238> 
<218> 
<248> 
<002> 
<241  > 
<213> 
<046> 
<122> 
<042> 
<052> 
<062> 
<080> 
<060> 
<096> 

<  107> 

<  105> 

<  1 43  > 
<224> 
<162> 

<110> 

<  155> 

<  160> 

<  1 12> 

<110> 
<248> 
<223> 
<224> 
<234> 
<031  > 
<091  > 
<232> 
<233> 
<236> 

<219> 

<  121  > 

<051  > 
<  166> 

<  1 91  > 
<101> 
<245> 
<246> 
<247> 
<24B> 

<078> 
<0B3> 
<031  > 


539  PRINT" (2D0WNJKE INEN  FEHLER  GEFUNDEN  !( 


DOWNV  <239> 
540  PR INT" ABSPE I CHERN  (J/N)  ?“  <187> 
550  GET  AS: IF  AS="N"  THEN  590  <119> 
560  IF  ASO"J"  THEN  550  <207> 
570  INPUT "GERAETEADRESSE  ( 1=DATASETTE/8=DI 

SK) " ; BE  <233> 
580  SAVE  NAS+"  (C)  PM"  , GE  <062> 
590  PRINT" (DOWN > ZUM  START  EINE  BELIEBIGE« 

6SPACE  JT ASTE  DRUECKEN  <064> 
600  GET  AS: IF  AS=""  THEN  600  <125> 
610  SYS  AN  <206 > 
630  :  <  098  > 
640  :  <108> 
650  :  < 1 18> 


1000  DATA  120,032,063,193,088,032,163,193, 

032,223, 193, 169,028, 133,254, 169, 20B5  <212> 

1010  DATA  192,133,255,032,097,192,032,068, 

166,076,116, 164,147,017,017,017,1721  <190> 

1020  DATA  029, 029, 084, 0B5, 082, 084, 076, 069, 

032,071,082,065,080,072,073,067,1080  <  078  > 

1030  DATA  083,190,190,029,029,066,089,032, 

0B0, 069, 0B4, 069, 082, 032, 077, 069, 1270  <017> 

1040  DATA  078,075,069,190,190,029,029,051, 

056 , 057 ,049,049, 032 , 066 , 065 , 083 ,1168  < 1 68  > 

1050  DATA  073,067,032,066,089,084,069,083, 

032,070,082,069,069,017,017, 190,1109  <134> 

1060  DATA  191,160,000,177,254,201,191,240, 

012,201,190,208,002, 169,013,032,2241  <230> 

1070  DATA  210,255,200,208,238,096,173,025, 

20B, 141 ,025,208,016,029,173,018,2223  <050> 

1080  DATA  208,201,250,176,011,032,204,193, 

169,250, 141 ,018,208,076, 1B8, 254, 2579  <23B> 

1090  DATA  032,185,193,169,217,141,018,208, 

076,188,254,173,013,220,088,165,2340  <009> 

1100  DATA  204,208,033,169,032,044,017,208, 

240,026,206,252,203, 208 ,021,169, 2240  <  23 1  > 

1110  DATA  007,141,252,203,173,241,203,072, 

169,002,141,241,203,032,118,195,2393  <017> 

1120  DATA  104,141,241,203,165,212,208,030, 

165,216,208,026,165,203,205,255,2747  <224> 

1130  DAT*'  203,240,019,141,255,203,201,064, 

240 ,012,201,004,240,011,201, 005 , 2240  < 1 85> 

1140  DATA  240,029,201,006,240,048,076,049, 

234, 173,017,208,041,032,240,009,1843  <177> 

1150  DATA  032,204,193,032,017,194,076,230, 

192,032, 185,193,076,230,192,173,2251  <254> 

1160  DATA  017,208,041,032,240,246,173,026, 

208,041,001,240,006,032,017, 194,1722  <007> 

1170  DATA  076,230,192,032,254,193,162,021, 

160,000,024,032,240,255,076,230,2177  <056> 

1180  DATA  192,072,138,072,152,072,169,127, 

141,013,221,172,013,221,048,012,1835  <193> 

1190  DATA  032,163,253,032,024,229,032,063, 

193, 108,002,160,076,114,254,032,1767  <149> 

1200  DATA  204,193,169,004,141,136,002,169, 

118,141,020,003, 169,192, 141,021,1823  <018> 

1210  DATA  003,169,033,141,024,003,169,193, 

141 ,025,003, 169,048, 141,022,003,1287  <029> 

1220  DATA  169,193,141,023,003,169,011,141, 

254,203,169,001,141,253,203,141,2215  <123> 

1230  DATA  252,203,169,000,141,026,208,169, 

134, 141,004,003,169,196,141,005,1961  <029> 

1240  DATA  003,169,043,141,008,003,169,197, 

141 ,009,003,169,084,141 ,006,003, 1289  <090> 

1250  DATA  169,197,141,007,003,169,103,141, 

038,003,169,199,141, 039 , 003 , 032 , 1 554  < 1 70  > 

1260  DATA  249,195,096,162,032,160,000,169, 

224,133,255,132,254,152,145,254,2612  <155> 

1270  DATA  136,208,251,230,255,202,208,246, 

096, 169,056,141,024,208,169,148,2747  <203> 

1280  DATA  141, 000, 221, 173, 017, 20B, 009, 032, 

141 ,017,208,096, 169,021, 141,024, 161B  <170> 

1290  DATA  208,169,151,141,000,221,173,017, 

208,041,223,141 ,017, 208, 096, 169, 21B3  <170> 

1300  DATA  204,133,255,160,000,132,254,162, 

004,173,253,203,010,010,010,010,1973  <232> 

1310  DATA  013,254,203,145,254,136,208,251, 

230 , 255 , 202 , 208 , 246 , 096 ,169,217, 3087  < 1 29> 

1320  DATA  141, 018, 20B, 173, 017, 208, 041, 127, 

141 ,017,208, 169,001,141 ,026,208,1844  <006> 

1330  DATA  096,169,000,141,026,208,096,166, 

122,202,232,142,242,203,162,255,2462  <221> 

1340  DATA  142,251,203,142,250,203,238,250, 

203, 174,250,203, 1B9, 127, 194,240,3259  <094> 

Listing  1.  Turtle-Grafik. 

Beachten  Sie  bitte  die  Eingabehinweise  auf  Seite  16. 
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1350  DATA  033,016,243,238,251,203,172,242, 

203, 136,200,185,000,002,141 ,249,2514  <170> 

1360  DATA  203,232,189,127,194,056,237,249, 

203, 240, 239, 201, 128, 240, 019, 076, 2B33  <114> 

1370  DATA  038,194,174,242,203,189,000,002, 

240,007,201, 058 , 240 ,188, 232 , 208 ,2416  <  078  > 

1380  DATA  244,096,174,242,203,173,251,203, 

024 ,105, 208 ,157, 000 , 002 , 232 , 200 ,2514  < 184  > 

1390  DATA  185,000,002,157,000,002,240,218, 

232,200,208,244,076,082, 194,200,2240  <137> 

1400  DATA  072, 073, 0B2, 069, 211, 077, 079, 086, 

197,067,076,069,065,210,087,073,1593  <153> 

1410  DATA  078, 06B, 079, 215, 080, 076, 079, 212, 

077,079,068,197,068,069,199,082,1726  <190> 

1420  DATA  069,086,069,082,211,076,084,085, 

082 , 206 , 082 , 084 , 085 , 082 , 206 ,067,1 656  <  095  > 

1430  DATA  079,076,079,210,071,076,079,065, 

196,071,083,065,086,197,074,079,1586  <050> 

1440  DATA  089,083,084,073,067,203,076,080, 

069,206,072,069,076,208,000,239,1694  <040> 

1450  DATA  194,205,197,095,195,084,199,073, 

196,118,196,147,197,163,197,128,2584  <191> 

1460  DATA  198,144,198,165,198,036,199,223, 

198, 161 , 199,059,200,053, 199,032,2462  <222> 

1470  DATA  158,183,224,000,240,054,032,121, 

000,240,040,032,253, 174,032,158,1941  <1B0> 

1480  DATA  183,224,016,144,003,076,106,195, 

142,254,203,032,223, 193,032, 121,2147  <124> 

1490  DATA  000,240,016,032,253,174,032,158, 

183,224,016,144,003,076,106,195,1852  <221 > 

1500  DATA  142,032,208,032,185,193,032,249, 

1 95 , 076 ,174,167, 032 ,121, 000 , 240 , 2078  <  1 53  > 

1510  DATA  037,032,253,174,032,158,183,224, 

016, 144,003,076,106,195,142,033, 1808  <159> 

1520  DATA  208,032,121,000,240,016,032,253, 

174,032, 158,183,224,016,144,003,1836  <025> 

1530  DATA  076,106,195,142,032,208,032,017, 

194,032,204,193,076,174,167,208,2056  <019> 

1540  DATA  012,032,163,193,032,223,193,076, 

174,167,162,014,044,162,011,032,1690  <149> 

1550  DATA  204,193,076,055,164,096,173,241, 

203 ,201,003,240, 248 ,174,246,203,2720  <239  >-■- 

1560  DATA  138,074,074,041,254,168,185,015, 

196,141,244,203,185,016,196,141,2271  <047> 

1570  DATA  245,203,138,041,007,024,109,244, 

203, 141 ,244,203, 173,247,203,041,2466  <079> 

1580  DATA  248,141,243,203,173,244,203,133, 

252 ,024,169, 224 ,109,245,203,133, 2947  < 000 > 

1590  DATA  253,024,165,252,109,243,203,133, 

252 ,165,253,109,248,203,133,253,2998  <152> 

1600  DATA  173,247,203,041,007,073,007,170, 

189,065, 196, 160,000,120, 162,052,1865  <096> 

1610  DATA  134,001,174,241,203,240,008,224, 

001 ,240,014,224,002,240,019,017, 1982  <250> 

1620  DATA  252,145,252,169,055,133,001,088, 

096,073,255,049,252, 145,252,076,2293  <232> 

1630  DATA  227,195,081,252,145,252,076,227, 

195,169,000, 141,24B,203, 141 ,241 ,2793  <116> 

1640  DATA  203,141,240,203,169,160,141,247, 

203 ,169,100,141,246, 203 , 096 , 000 , 2662  <  004  > 

1650  DATA  000,064,001,128,002,192,003,000, 

005,064,006,128,007,192,008,000,800  <025> 

1660  DATA  010,064,011,128,012,192,013,000, 

015,064,016,128,017, 192,018,000,880  <035> 

1670  DATA  020,064,021,128,022,192,023,000, 

025,064,026,128,027,192,028,000,960  <149> 

1680  DATA  030,001,002,004,008,016,032,064, 

128,032,235,183, 224 ,200,176,035,1370  <  090  > 

1690  DATA  165,021 ,201 ,001 , 144, 008, 20B, 027, 

165,020,201 ,064,176,021,120,142,1684  <13S> 

1700  DATA  246,203,165,020,141,247,203,165, 

021 , 141 ,248, 203, 0B8, 032, 118, 195,2436  <219> 

1710  DATA  076,174,167,076,106,195,032,158, 

183,224,004,144,003,076,106,195,1919  <007> 

1720  DATA  142,241,203,076,174,167,032,023, 

194,166,122,160,004,132,015, 189,2040  <095> 

1730  DATA  000,002,141,249,203,041,240,201, 

208 , 208 , 006 , 173 , 249 , 203 , 076 , 232 , 2432  <  1 1 7> 

1740  DATA  196,173,249,203,016,007,201,255, 

240,062,232,208,226,201 ,032,240,2741  <242> 

1750  DATA  055,133,008,201,034,240,086,036, 

015,112,045,201 ,063,208,004,169, 1610  <248> 

1760  DATA  153,208,037,201,048,144,004,201, 

060,144,029, 132, 1 13, 160,000, 132,1766  <022> 

1770  DATA  011,136,134,122,202,200,232,189, 

000,002,056,249,1 SB, 160, 240, 245, 2336  < 244> 

1780  DATA  201,128,208,048,005,011,164,113, 


232,200,153,251 ,001 , 185,251,001 ,2152  <186> 

DATA  240,054, 056 , 233 , 058 , 240 , 004 ,201, 
073,208,002,133,015,056,233,085,1891  <10B> 

DATA  208, 141,133,008, 189,000,002,240, 
223,197,008,240,219,200,153,251,2412  <110> 

DATA  001,232,208,240,166,122,230,011 , 
200,185,157,160,016,250,185,158,2521  <046> 

DATA  1 60, 20B, 180, 189,000,002,016, 190, 
076,009,166,032,115,000,041,240,1624  <101> 

DATA  201 , 20B , 240 , 009 , 032 ,121, 000 , 032 , 
237,167,076,174,167,032,121,000,1817  <0B1> 

DATA  041,015,010, 168,185,208,194,133, 
167,185,207, 194,133,166,032,115,2153  <053> 

DATA  000,108,166,000,016,052,201 ,255, 
240,048,036,015,048,044,141,249,1619  <026> 

DATA  203 ,041, 240 ,201, 208 , 208 , 038 ,173, 
249,203,041,015,170,232,132,073,2427  <064> 

DATA  160,255,200,185,127,194,016,250, 
202,208,247,200,185,127,194,048,2798  <010> 

DATA  006 , 032 , 07 1 , 1 7 1 , 076 , 1 23 , 1 97 , 076 , 

239, 166,076,243, 166,173,249,203,2267  <161> 

DATA  076,036,167,032,158, 183,224,008, 
144,003,076, 106,195, 142,240,203, 1993  <203> 

DATA  076,174,167, 208 , 037 ,162, 032 ,169, 

224 ,133, 255 ,160, 000 ,132, 254 ,120, 2303  <  232  > 

DATA  169,052,133,001,177,254,073,255, 
145,254,136,208,247,230,255,202,2791  <027> 

DATA  208,242, 169,055,133,001 ,088,076, 
174,167,076,109,195,032,138,173,2036  <190> 

DATA  032 ,247,183,166, 020 , 240 , 00B , 032 , 
236,197,198,020,076,211,197,166,2229  <240> 

DATA  021,240,006,198,021,198,020, 208 , 
234,076,174,167,173,240,203,240,2419  <1B5> 

DATA  029 , 201 , 002 , 240 , 034 , 201 , 004 , 240 , 
039,201 ,006,240,044,201,001,240,1923  <018> 

DATA  010,201,003,240,015,201  ,005,240, 

020 ,208,027,032,047,198,032,093,1 572  < 1 86  > 

DATA  198,076,118,195,032,067,198,032, 
047,198,076,118, 195,032,056,198,1836  <019> 

DATA  032 , 067 ,198, 076 ,118,195, 032 , 093 , 
198,032,056,198,076,118,195,173,1857  <233> 

199C  '  YTA  246,203,240,067,206,246,203,096, 

173, 246, 203, 201, 199, 176, 056, 23B, 2999  <144> 

2000  DATA  246,203,096, 173, 248, 203, 20B, 009, 

173,247, 203 , 240 , 042 , 206 , 247 , 203 , 2947  <  094> 

2010  DATA  096,173,247,203,208,003,206,248, 

203,206,247,203,096,173,248,203, 2963  <  0 1 3  > 

2020  DATA  208,009,238,247,203,208,003,238, 

248,203,096,174,247,203,232,224, 298 1  <  068 > 

2030  DATA  064,176,004,142,247,203,096,173, 

237,203,208,003,076, 106, 195,096,2229  <144> 

2040  DATA  032, 158, 183, 13B, 024, 109,240,203, 

04 1 , 007 ,141, 240 , 203 , 076 ,174,167,2136  <  006  > 

2050  DATA  032,158,183,142,249,203,173,240, 

203,056,237,249,203,041,007, 141,2517  <189> 

2060  DATA  240,203,076,174,167,032,158,183, 

224 ,016,176, 048 ,142, 253 , 203 , 032 , 2327  <  20 1  > 

2070  DATA  223,193,032,121,000,240,034,032, 

253,174,032,158,183,224,016, 176,2091  <028> 

20G0  DATA  027,142,254,203,032,223,193,032, 

121,000,240,013,032,253,174,032,1971  <090> 

2090  DATA  158,183,224,016,176,006,142,032, 

208,076,174,167,076, 106,195,120,2059  <213> 

2100  DATA  169,052,133,001,162,032,160,000, 

132,254,132, 166,169,224,133,255,2174  <096> 

2110  DATA  169,160,133,167,177,254,145,166, 

136,208,249, 230 ,255,230,167, 202 ,3048  <  222 > 

2120  DATA  208,242,169,055,133,001,088,032, 

212,225,162,000,160, 192,134,254,2267  <185> 

2130  DATA  169,160,133,255,169,054,133,001, 

169,254,032,216,255, 169,055,133,2357  <02B> 

2140  DATA  001,076,174,167,032,212,225,169, 

000, 133,185,162,000,160,224,032,1952  <069> 

2150  DATA  213,255,076,174,167,208,026,160, 

000,185, 128, 194,240,016,016,007,2065  <040> 

2160  DATA  041,127,032,210,255,169,013,032, 

210,255,200,076,057,199,076,174,2126  <1B7> 

2170  DATA  167,076, 109, 195,032, 15B, 183,224, 

000,240,006,032,254, 193,076, 174,2119  <033> 

2180  DATA  167,032,017,194,076,174,167,072, 

165, 154,201,003,208,008, 104,201 , 1943  <209> 

2190  DATA  135,240,006,076,022,231,076,213, 

241 ,142,249,203,166,212,208,027,2447  <072> 

2200  DATA  166,216,208,023,152,072,169,021, 

133,214,169,000,133,211 ,032, 10B, 2027  <01 1> 

2210  DATA  229,104,168,174,249,203,169,135, 

Listing  1.  Turtle-Grafik  (Fortsetzung) 


1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1 B80 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
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024 , 000 , 096 ,174, 249 , 203 , 076 , 022 , 2363  <  034  > 

2220  DATA  231,032,150,183,232,142,239,203, 

169,001,141,237,203, 165,203,201,2740  <254> 

2230  DATA  003,208,000,169,000,141,237,203, 

076,174, 167,169,000,141,238,203,2137  <055> 

2240  DATA  173,000,220,041,001,208,009,032, 

047,198, 032 , 034 , 200 , 238 , 238 , 203 , 1874  <076> 

2250  DATA  173,000,220,041,002,208,009,032, 

056 ,198,032, 034 , 200 , 238 , 238 , 203 , 1 BB4  < 1 35  > 
2260  DATA  173,000,220,041,004,208,009,032, 

067 ,198, 032 , 034 , 200 , 238 , 238 , 203 , 1 897  <225> 

2270  DATA  173,000,220,041,008,208,009,032, 

093, 198,032,034,200,238,238,203,1927  <075> 

2280  DATA  173,238,203,208,  16B, 032, 01 1 ,200, 

076, 173,199,173,241,203,072, 169,2539  <214> 

2290  DATA  002, 141 ,241 ,203,032, 1 1B, 195,032, 

047,200,032,118,195,104,141,241,2042  <236> 

2300  DATA  203,096,173,000,220,041,016,208, 

226,032,118,195,076,047,200,172,2023  <028> 

2310  DATA  239,203, 162, 100, 202.20B, 253, 136, 

208 , 248 , 096 ,240,003,076,109,195, 2678  <  096  > 

2320  DATA  165 , 203 , 201 , 003, 208 , 003 ,076,,  174, 

167,173, 020 , 208 , 056 , 233 , 050 ,144, 2084  <  087  > 

2330  DATA  239 , 201  , 200 , 176 , 235,  1411,246  ,i203, 

173,019, 208 , 056 , 233 , 035 , 1 44 , 224 , 2733  <233> 

2340  DATA  010, 141  ,247,203,  144  ,ei07,20ä  „064, 

176,214,169,001,044,169,000,141,1931  <006> 

2350  DATA  240 , 203, 173, 14 1 ,002, 041 ,009,240 , 

012, 032 ,118,195, 032 , 093 ,198, 032 , 1 764  <  040> 

2360  DATA  118,195,076,064,200,173,241,203, 

072, 169,002, 141,241,203,032,118,2248  <140> 

2370  DATA  195,032,118,195,104,141,241,203, 

076 , 064 , 200 , 255 , 255 , 255 , 255 , 249 , 2838  <  07 1 > 

63000  DATA  -100: RETURN  <076> 

©  64'er 

Listing  1.  Turtle-Grafik  (Schluß) 


241  : 

242  REM  NASE 
250  PLOT  152,100 
260  DEG  0: MOVE  16 
270  DEG  3: MOVE  8 
280  DEG  4: MOVE  1 

290  DEG  5: MOVE  8 

291  : 

292  REM  LINKES  AUGE 

293  PLOT  130 , 60: DEG  0 
295  F0RT=1T04 

300  MOVE  15 
310  RTURN2 
320  NEXT 
330  : 

340  REM  RECHTES  AUGE 

350  PLOT  190,60: DEG  6 

360  FORT= 1 T04 

370  MOVE  15 

380  RTURN  2 

390  NEXT 

400  : 

410  WINDOW  1 : PRINT" Hi  T  U  R  T  L 

E  DEMO“ 

420  PRINT'1.«  BY  PETER  MENKE" 

430  FORI=0TO4000: NEXT 
440  WINDOW  0 
450  : 

460  ; 

461  REM  SPIRALE 

470  HIRES  1 ,2,2: COLOR  0:CLEAR:PLOT  160,1 
00 

480  F0RI=1T066 
490  LTURN  1 


Listing  2.  Demo-Programm  zur  Turtle-Grafik 

0  REM  TURTLE  DEMO 

1  REM  BY  PETER  MENKE 

2  : 

3  HIRES  1 ,0,0:COLOR15:CLEAR 

4  : 

10  REM  ROBOTER-KOPF 
20  PLOT  120,160 
30  DEG  2: MOVE  10 
40  DEG  0: MOVE  30 
50  DEG  2: MOVE  10 
55  DEG  4: MOVE  40 
60  DEG  2: MOVE  100 
65  DEG  0: MOVE  100 
70  DEG  6: MOVE  100 
90  DEG  4: MOVE  40 


100 

DEG 

6: MOVE 

10 

110 

DEG 

0: MOVE 

30 

120 

DEG 

6: MOVE 

10 

121 

■ 

■ 

122 

REM 

LINKES 

OHR 

130 

PLOT  110,105 

140 

DEG 

4: MOVE 

15 

150 

DEG 

2: MOVE 

30 

160 

DEG 

0: MOVE 

15 

161 

s 

162 

REM 

RECHTES  OHR 

170 

PLOT  210,105 

180 

DEG 

0: MOVE 

15 

190 

DEG 

2: MOVE 

30 

200 

DEG 

4: MOVE 

15 

201 

: 

202 

REM 

MUND 

210 

PLOT  .130,120 

220 

DEG 

6: MOVE 

10 

230 

DEG 

0: MOVE 

60 

240 

DEG 

2: MOVE 

10 

500  i  iC'.'E  I 

510  NEXT 

511  FORI =1 TO 1000: NEXT 
520  : 

530  : 

540  REM  VIERECK-SPIRALEN 

541  CLEAR: COLOR 1 

550  H I RES  1,2,2: FOR I = 1 TO200STEP2 

560  RTURN  2: MOVE  I:NEXT 

561  PLOT  160,100 
570  FOR I = 1 TO 1 95STEP2 
580  LTURN  2: MOVE  I:NEXT 
590  PLOT  160,100 

600  FORI=l T0195 

610  RTURN  2: MOVE  I : NEXT 

620  » 

630  : 

640  REM  MUSTER 

641  H I RES 1 ,5,5: CLEAR : COLOR0 
650  F0RI=1T045 

660  FORX=0TO7 

670  RTURNX 

671  MOVE  I 
680  NEXTX 
700  NEXT 
710  : 

720  HIRES1 ,5,5 
730  FORI=l T045 
740  FORX=0TO7 
750  LTURNX 
761  MOVEI 
780  NEXTX 
790  NEXT 

800  FORI=1TO2000: NEXT 
810  : 

820  : 

Listing  2.  Demo-Programm  zur  Turtle-Grafik 
(Fortsetzung) 
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830  REM  PYRAMIDEN 

1150  MOVE  I 

840  HIRES1 ,6,6: CLEAR: C0L0R15 

1160  FORX=1TO10 

850  FORI = 1 T033 

1170  RTURN  X: MOVE  X:NEXTX,I,Y 

860  FQRX=0TO7 

1181  : 

870  DEG  X 

1182  : 

871  MOVE  I 

1183  REM  JOYSTICK  ZEICHNEN 

880  NEXTX 

1184  HIRES  1 , 10, 10: COLOR0: CLEAR 

900  NEXT 

1185  WINDOW1 

910  : 

1186  PR INT "di  JOYSTICK-ZEICHNEN  (PORT 

930  F0RI=1T033 

2)  " 

940  FORX=0TO7 

1187  PRINT"  WEITER  MIT  F7" 

950  DEG  7— X 

1188  JOYSTICKS 

961  MOVE  I 

1189  : 

980  NEXTX 

1190  : 

990  NEXT 

1191  REM  LIGHTPEN  ZEICHNEN 

991  F0RI=1T08: REVERS 

1192  HIRES  1,1,1:COLOR0: CLEAR 

992  FORX= 1 TO500: NEXT 

1193  WINDOW1 

993  NEXT 

1194  PRINT'TJü  L I GHTPEN-ZE I CHNEN  (PORT 

1000  : 

1 )  " 

1010  : 

1195  PRINT"  WEITER  MIT  F7" 

1011  REM  INVERSES  MUSTER 

1196  LPEN 

1020  HIRES7 ,7: COLOR  0: CLEAR 

1197  : 

1030  F0RY=1T04: HIRES  1 : MODE  2 

1198  : 

1040  FORI=1TO100 

1200  REM  ZUFALL 

1050  MOVE  I 

1210  HIRES  1 : CLEAR: COLOR  1,9,9 

1060  F0RX=1T07 

1220  WINDOW  1 

1070  LTURN  XrMOVEX: NEXTX, I,Y 

1230  PR I NT "dlZUF ALLSMUSTER 

1080  : 

1240  PRINT" SCHLUSS  MIT  RUN/STOP-TASTE 

1090  : 

1250  DEG  RND ( 1 ) *8 : MOVE  1: GOTO 1250 

1111  REM  STRICH-MUSTER 

1120  HIRES1 ,8,8: COLOR  0: CLEAR 

READY. 

1130  F0RY=1T04: HIRES  1 : M0DE2 

1140  F0RI=1T045 

Listing  2.  Demo-Programm  zur  Turtle-Grafik  (Schluß) 

S46R  OnunOR*/ 

HI-EDDI  Druckerroutinen 

Jetzt  kommen  auch  Besitzer  von  Commodore-Druckern  in  den  Genuß, 

HI-EDDI-Bilder  ausgeben  zu  können. 


Welcher  64'er-Loser  kennt  ihn  nicht  —  den  HI-EDDI,  das  fan¬ 
tastische  Zeichen-  und  Malprogramm.  Jeder  der  einen  Epson 
oder  dazu  kompatiblen  Drucker  besitzt,  kommt  sogar  in  den 
Genuß  der  ausgezeichneten  Hardcopy-Funktion.  Jetzt  folgen 
Anpassungen  für  Drucker  anderer  Hersteller,  für  die  Commo- 
dore-Drucker  MPS  801/802/803  und  kompatible. 


HI-EDDI  für  MPS  802  und  kompatible 

Ich  begann  nach  Überwindung  meiner  Abneigung  gegen 
stundenlanges  Tastenklopfen  HI-EDDI  abzutippen.  Nach  den 
ersten  Tests  dieses  fantastischen  Zeichen-  und  Malpro¬ 
gramms,  bereute  ich  es  aber  nicht  mehr  mich  dieser  Tortur  un¬ 
terzogen  zu  haben.  Doch  mußte  ich  als  Besitzer  eines  MPS- 
802-Druckers  feststellen,  was  ist  HI-EDDI  ohne  Superhard¬ 
copy? 

Die  Antwort  darauf  veranlaßte  mich  dazu,  die  Anregung  in 
der  Funktionsbeschreibung  aufzugreifen  und  eine  Lösung  für 
einen  anderen  Drucker  zu  suchen.  Gesagt  —  getan,  hier  ist 
mein  Lösungsvorschlag  für  den  Commodore  MPS-802  (Li- 
sting  1). 


Die  Druckerroutine  hat  dieselben  Eigenschaften  wie  die  von 
Hans  Haberl  geschriebene  Routine  für  Epson-Drucker.  Daher 
kann  auf  eine  Funktionsbeschreibung  verzichtet  werden.  Ich 
hoffe,  daß  der  Ausdruck  von  HI-EDDI-Grafikbildern  mit  diesem 
Programm  auf  allen  Versionen  des  Commodore  1526/MPS- 
802  Druckers  funktioniert.  Bei  meiner  Ausführung  (REV  07C) 
konnte  ich  bis  jetzt  keine  Fehler  feststellen. 

(Franz  llletschko/ah) 


HI-EDDI  für  MPS  801/803  und 
kompatible 

Eine  Lösung  für  den  Commodore  MPS  801/803  schickte 
uns  Florian  Kulzer  (Listing  2).  Auch  hier  braucht  am  HI-EDDI 
selbst  nichts  verändert  zu  werden.  Die  Hardcopy  wird  mit  den 
Tasten  »Commodore«  und  »P«  gestartet. 

Allerdings  ist  mit  diesem  Programm  das  Nebeneinander¬ 
drucken  zweier  Bilder  nicht  möglich.  Ausgegeben  wird  immer 
eine  Hardcopy  des  aktuellen  Bildschirms.  Daher  können  die 
Fragen  nach  Nummer  und  Format  der  Hardcopy  beliebig  be¬ 
antwortet  werden.  (Florian  Kulzer/ah) 
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Programm  :  hi -print  0d00  0f9c 


0d00 

: 

85 

5b 

a9 

64 

a2 

04 

a0 

00 

f  7 

0d0B 

: 

20 

08 

0e 

a9 

6a 

a2 

04 

a0 

f  2 

0dl0 

3 

06 

20 

08 

0e 

a2 

6a 

20 

c9 

7c 

0dl8 

: 

ff 

a9 

14 

20 

d2 

ff 

a2 

64 

75 

0d20 

: 

20 

c9 

ff 

a9 

Bd 

20 

d2 

ff 

7f 

0d20 

: 

a9 

69 

a2 

04 

a0 

05 

20 

08 

72 

0d30 

: 

0e 

a5 

5b 

0a 

90 

03 

4c 

86 

88 
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0e 
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a8 
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s 

03 

eB 

e0 

08 

d0 
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b9 

0b 
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03 

0a 

90 

0b 

48 
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b9 
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75 
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03 

68 
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e8 
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00 
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Listing  1.  HI-EDDI  und  MPS  802. 

Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  18. 


Programm  :  hi -print  0d00  0e22 
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a9 
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Listing  2.  HI-EDDI  und  MPS  801. 

Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  18. 


Hi-EDDI 
auf  Star  SG-10 

Betrifft:  Anpassung  der  Original-Druckerroutine  HI-PRINT 
von  HI-EDDI  an  den  SG-10  von  Star, 

Folgende  Änderungen  müssen  an  der  Druckerroutine  vorge¬ 
nommen  werden: 

460  DATA  4:  REM  Direktkanal 

550  DATA  27,51,15,255,255:  REM  Zeilenabstand  15/144 
Inch 

3äa? 


580  DATA  27,103,4,255,255:  REM  Grafikmodus  4 
In  dieser  Betriebsart  werden  Kreise  in  Y-Richtung  etwas  ge¬ 
dehnt.  Wer  auf  den  Ausdruck  zweier  Bilder  nebeneinander  und 
auf  Großbilder  verzichtet,  sollte  folgende  Werte  eingeben  (Zei¬ 
le  460  muß  natürlich  trotzdem  geändert  werden): 

550  DATA  27,51,16,255,255:  REM  Zeilenabstand  16/144 
Inch 

580  DATA  27,103,5,255,255:  REM  Grafikmodus  5 
Dafür  werden  Kreise  auch  als  Kreise  dargestellt.  Wenn  man 
breiteres  Papier  als  A4  verwendet,  kann  man  auch  zwei  Bilder 
nebeneinander  und  Großbilder  drucken.  Der  Drucker  muß  auf 
Star-Betriebsart  eingestellt  sein  (siehe  Handbuch).  Der  User- 
Port  kann  weiterhin  als  Parallelschnittstelle  verwendet  werden. 

(Kurt  Reiter/tr) 
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HI-EDDI 
und  Simons 
Basic 

Kleine  Programme  ermöglichen  es, 
mit  Simons  Basic  erstellte  Bilder  in  HI- 
EDDI  zu  laden. 

Simons  Basic  bietet  leider  keine  Möglichkeit,  High- 
Resolution-Bilder  auf  Diskette  zu  speichern  und  zu  laden.  Dies 
ist  jedoch  Voraussetzung,  um  Bilder,  die  mit  Simons  Basic  er¬ 
stellt  wurden,  auch  in  HI-EDDI  und  andere  Programme  zu  la¬ 
den. 

Ich  habe  deshalb  das  Programm  »Screensave«  (Listingl)  ge¬ 
schrieben,  das  die  Simons-Basic-Befehle  »SCRSV«  und 
»SCRLD«  um  die  Fähigkeit,  Hires-Bilder  zu  laden  und  zu  spei¬ 
chern,  erweitert.  Leider  funktioniert  das  nicht  für  die  Modul- 
Version,  da  direkt  das  Simons  Basic  modifiziert  wird.  Dafür  wird 
kein  Speicherplatz  außerhalb  des  Simons  Basic  gebraucht. 
Außerdem  ist  die  modifizierte  Version  abspeicherbar,  nach  ih¬ 
rem  Laden  stehen  die  erweiterten  Befehle  sofort  zur  Verfü¬ 
gung,  ohne  ein  weiteres  Programm  nachladen  zu  müssen. 
Hinweise  zum  Eintippen: 

■  Simons  Basic  starten 

■  »Screensave«  eintippen,  sicherheitshalber  abspeichern 
und  starten 

■  Nachdem  alle  DATA-Fehler  beseitigt  wurden,  stehen  die  er¬ 
weiterten  Befehle  »SCRSV«  und  »SCRLD«  zur  Verfügung:  Die 
Syntax  ist  dieselbe  wie  bisher,  mit  der  Sekundäradresse  wird 
jetzt  der  Bildschirm  gewählt: 

Sekundäradresse  =  2:  Low-Resolution-Bildschirm, 
Sekundäradresse  =  3:  High-Resolution-Bildschirm 
Das  Aufzeichnungsformat  des  Low-Resolution-Bildschir- 
mes  ist  leider  nicht  kompatibel  mit  dem  der  alten  Befehle.  Das 
des  High-Resolution-Bildschirmes  ist  dasselbe  wie  bei  HI- 
EDDI,  Diashow  und  anderen  Grafikprogrammen.  Dazu  muß  das 
Bild  aber  unbedingt  als  PGM-File,  also  zum  Beispiel  mit: 
SCRSV1,8,3,"NAME,P,W" 


1  REM******  SCREENSAVE  ******  <192> 

10  DATA  32,3,178,166,184,32,201,255,132,32 

,210,255,165,252,32,210,255, 169  <21 7> 

20  DATA  210,133,248,162,32,36,250,48,2,162 

,4,36,250,48,12,177,253,32,0, 178  <165> 

30  DATA  145,253,177,251,56,176,14,120,169, 

52.133.1.177.251.72.169.54.133  <104> 
40  DATA  1,B8, 104, 32, 0,178, 145, 251, 200, 208, 

29 , 230 , 252 , 230 , 254 , 202 , 20B , 22 , 240  <  075> 

50  DATA  26,234,32,3,178,166,184,32,198,255 

,  32 , 207 , 255 , 32 , 207 , 255 ,169, 207  <  1 76  > 

60  DATA  208,180,234,169,195,36,144,240,183 

,32,204,255,165,184,32,195,255  <077> 

70  DATA  76,42,130,108,248,0,32,219,131,32, 

35,129,160,0,132,251, 132,253,165  <107> 

80  DATA  185,106,106,133,250,48,8,169,216,1 

33.254.169.4.208.2. 169.224.133  <220> 

90  DATA  252,169,255,133,249,96,234  <215> 

100  S=0:FOR  1=45455  TO  45608: READ  A:S=S+A: 

POKE  I , A: NEXT  I  <253> 

110  IF  S< >22096  THEN  PR I NT " FEHLER  IN  DATA 

S" : END  <061 > 

120  PR INT "OK "  <212> 
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Listing  1.  Screensave:  Erweiterung  für  Simons  Basic 
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abgespeichert  werden,  da  HI-EDDI  keine  SEQ-Files  laden 
kann. 

Zum  Abspeichern  des  »neuen«  Simons  Basic  dient  das  Pro¬ 
gramm  »Saver«  (Listing  2).  Dieses  Programm  speichert  nicht 
nur  das  komplette  Simons  Basic,  das  übrigens  auch  noch  an¬ 
dere  Modifikationen,  zum  Beispiel  die  aus  64’er  Ausgabe 
11/84,  enthalten  kann,  sondern  auch  die  Funktionstastenbele¬ 
gung  mit  ab.  Nach  dem  Laden  der  mit  »Saver«  erstellten 
Simons-Basic-Version  stehen  somit  nicht  nur  die  neuen  Befeh¬ 
le,  sondern  auch  die  individuelle  Funktionstastenbelegung  so¬ 
fort  zur  Verfügung. 

Hinweise  zum  Eintippen: 

■  Funktionstasten  nach  eigenen  Wünschen  belegen 

■  »Saver«  eintippen,  abspeichern,  eine  Diskette  mit  minde¬ 
stens  66  freien  Blocks  einlegen  und  Programm  starten.  Nun 
fragt  der  »Saver«  nach  dem  Namen,  unter  dem  er  die  neue  Ver¬ 
sion  ablegen  soll.  Diese  neue  Version  ist  um  einen  Block  län¬ 
ger  als  die  alte  (66  statt  65),  da  die  Funktionstastenbelegung 
hinzugekommen  ist. 


Tips  zu  HI-EDDI 


Die  Anleitung  in  den  REM-Zeilen  des  Programms»HI- 
PRINT.DATA«  ist  zugegebenermaßen  etwas  dürftig  ausgefal¬ 
len,  so  daß  eine  ausführlichere  Erklärung  dringend  nötig  ist: 

Wie  schon  in  der  Bedienungsanleitung  erwähnt,  beschränkt 
sich  die  Anpaßbarkeit  dieses  Programms  auf  8-Nadel-Drucker 
mit  »vernünftiger«  Einzelnadelansteuerung,  wie  zum  Beispiel 
Drucker  von  Epson  oder  Mannesmann  (im  Gegensatz  zum 
1526/MPS  802).  Mit  dem  Datum  in  Zeile  420  wird  zwischen 
dem  seriellen  Bus  (also  Hardware-Interface)  oder  dem  User- 
Port  n« wählt.  Im  ersten  Fall  muß  mit  den  Daten  in  Zeile  440 
(Primäradresse)  und  460  (Sekundäradresse)  das  Interface 
auf  Direktmodus  gestellt  werden.  Hardwareinterfaces  bieten 
in  der  Regel  verschiedene  Betriebsmodi  (zum  Beispiel  Emula¬ 
tion  eines  Commodore-Druckers,  spezielle  List-  oder  Grafik¬ 
modi  und  eben  den  Direktmodus  oder  Linearmodus),  die  meist 
über  die  Sekundäradresse  angewählt  werden.  »HI-PRINT« 
braucht  den  Direktmodus,  in  dem  sich  das  Interface  wie  ein 
einfaches  Kabel  verhält  und  die  Byte  vom  Computer  unverän¬ 
dert  an  den  Drucker  übergibt.  Für  das  Data-Becker-Interface 
muß  zum  Beispiel  die  Sekundäradresse  1  eingegeben  wer¬ 
den,  für  das  Görlitz-Interface  4  oder  12  (ohne  beziehungswei¬ 
se  mit  Auto-Linefeed).  Beim  Anschluß  an  den  User-Port  sind 
die  Daten  in  Zeile  440  und  460  zwar  nicht  relevant,  man  darf 
sie  jedoch  nicht  weglassen,  da  sonst  die  nachfolgenden 
DATAs  verschoben  würden. 

Aus  dem  gleichen  Grund  dürfen  auch  die  Längen  der  folgen¬ 
den  DATA-Zeilen  nicht  verändert  werden,  sie  müssen  nach  Be¬ 
darf  mit  255  aufgefüllt  werden.  Außerdem  muß  jede  dieser 
Zeilen  mit  mindestens  einem  255  enden,  da  diese  Zahl  als 
Ende-Kennzeichen  einer  Sequenz  dient. 

Die  Zeile  530  legt  die  Sequenz  für  einen  Carriage-Return 
Linefeed  fest,  sie  ist  13,255,255  für  Drucker  mit  Auto- 
Linefeed  und  13,10,255  für  Drucker  ohne  Auto-Linefeed. 

Zeile  550  stellt  den  Drucker  auf  den  für  Grafik  passenden 
Zeilenvorschub  ein.  Für  den  Epson  RX-80  ist  dies  zum  Bei¬ 
spiel  ESC  »3«  23  oder  in  Zahlen  27,51,23,  aufgefüllt  mit  255 
auf  die  erforderliche  Länge. 

In  Zeile  580  wird  der  Grafikmodus  (Bit-Image-Mode)  für  640 
Punkte/Zeile  angesteuert.  Beispiele: 

In  Zeile  600  wird  wieder  der  normale  Zeilenabstand  einge¬ 
stellt  (ESC  »2«)  und  die  -2  in  Zeile  610  signalisiert  für  den 
DATA-Lader  das  Ende  der  DATAs. 

Bei  Schwarzweiß-Bildern,  wie  die  der  Diashow,  Supergrafik 
oder  natürlich  des  erweiterten  Simons  Basic  geht’s  problem¬ 
los.  Bei  Grafikprogrammen,  die  im  Multicolour-Modus  arbei¬ 
ten,  treten  zwei  Schwierigkeiten  auf: 
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Grafik 


1.  Da  HI-EDDI  im  High-Resolution-Modus  arbeitet,  sehen 
Multicolour-Bilder  recht  ungewöhnlich  aus.  Dabei  kommt  es 
vor  allem  auch  auf  die  Farborganisation  des  betreffenden  Pro¬ 
grammes  an:  Die  des  Koalapainter  ist  so  chaotisch,  daß  des¬ 
sen  Bilder  im  »HI-EDDI«  fast  unbrauchbar  sind  (Ein  und  diesel¬ 
be  Farbe  erhält  verschiedene  Multicolour-Codes).  Paint-Ma- 
gic- Bilder  sind  dagegen  sofort  »druckreif«. 

2.  Für  Multicolour-Bilder  gibt  es  kein  einheitliches  Format  für 
die  Speicherung  auf  Diskette,  so  daß  viele  Bilder  nicht  direkt 
von  »HI-EDDI«  geladen  werden  können. 


Laden  von  Bildern 


Für  den  Koalapainter  tritt  die  2.  Schwierigkeit  nicht  auf,  sei¬ 
ne  Bilder  lassen  sich  sofort  laden.  Den  Filenamen  gibt  man  da¬ 
bei  in  der  Form  »?PIC...«  ein,  um  das  Steuerzeichen  am  Anfang 
auszutricksen.  Da  jedoch  Koala-Bilder  länger  sind  als  die  vom 
»HI-EDDI«,  werden  Farbinformationen  nicht  nur  des  gelade¬ 
nen,  sondern  noch  eines  weiteren  Bildes  überschrieben. 
Nach  dem  Laden  eines  Koala-Bildes  herrscht  somit  buntes 
Chaos  im  Computer,  das  erst  durch  Neu-Einfärben  beseitigt 
werden  muß. 

Etwas  komplizierter  wird's  bei  Paint  Magic,  dessen  Bilder 
sich  nicht  direkt  laden  lassen,  da  sie  in  Form  eines  Basic- 
Laders  abgespeichert  werden.  Man  muß  erst  ein  Bild  mit 
»LOAD”..", 8«  laden,  dann  mit  RUN  starten,  anschließend  »HI- 
EDDI«  laden  und  in  Betriebsart  1  starten.  Die  1  ist  nötig,  damit 
»HI-EDDI«  das  im  Speicher  befindliche  Bild  nicht  löscht.  Außer¬ 
dem  darf  »HI-EDDI«  nicht  im  Farbbetrieb  gestartet  werden,  da 
das  Paint-Magic-Bild  im  Speicherbereich  $4000-86000  liegt, 
wo  »HI-EDDI«  sonst  seine  Farbinformationen  ablegen  würde. 
Nach  dem  Start  ist  das  Bild  in  Speicher  Nummer  7  zu  finden. 

Lädt  man  übrigens  im  Schwarzweiß-Betrieb  ein  Farbbild  (36 
Blocks),  dann  wird  auch  hier  durch  die  Farbinformation  ein  Teil 
eines  anderen  Bildes  überschrieben,  was  sich  durch  »Gerüm¬ 
pel«  in  den  ersten  paar  Zeilen  dieses  Bildes  bemerkbar  macht. 


Bilder  in  Basic  verwenden 


Will  man  »HI-EDDI«-Bilder  in  normalen  Basic-Programmen 
(oder  mit  der  Simons  Basic  Modulversion)  laden,  dann  tut's 
das  Listing  »Pic-Lader  (Listing  3),  das  natürlich  in  eigene  Pro¬ 
gramme  eingebaut  werden  kann.  Das  Bild  wird  unter  das 
Betriebssystem-ROM  gelegt,  der  Farbspeicher  ab  $0000 
(=49152,  wie  bei  Simons  Basic).  Damit  wird  kein  Basic- 
Speicherplatz  belegt.  Allerdings  dürfen  nur  Schwarzweiß- 
Bilder  (33  Blocks)  geladen  werden,  bei  Farbbildern  gibt’s  ei¬ 
nen  Absturz. 

Auch  am  Programm  selbst  sind  mir  noch  vier  Kleinigkeiten 
aufgefallen: 

1.  Bei  einem  STOP/RESTORE  schreibt  das  Betriebssystem  ein 
paar  Bytes  in  den  RAM-Bereich  über  $E000.  Diese  sind  dann 
in  einem  der  Bilder  am  unteren  Rand  als  »Gerümpel«  zu  sehen. 

2.  Beim  Befehl  »Paint«  kann  es  bei  extrem  verwinkelten  Flä¬ 
chen  Vorkommen,  daß  Teile  übersehen  werden  (Grund  dafür 
ist  der  begrenzte  Stack  des  6510).  Diese  müssen  eben  extra 
aufgefüllt  werden. 

3.  Der  Sequenzstring  sollte  nicht  länger  als  zirka  40  Zeichen 
werden,  sonst  könnte  es  bei  LOAD  oder  SAVE  zu  einem  OUT 
OF  MEMORY  ERROR  kommen.  Sollte  das  passieren,  so  muß 
Hi-Eddi  mit  GOTO  150  gestartet  und  der  Sequenzstring  ver¬ 
kürzt  werden. 

4.  Bei  gewaltigem  »Herumwürgen«  am  Joystick  kann  es  Vor¬ 
kommen,  daß  der  Computer  meint,  es  wurde  eine  Taste  ge¬ 
drückt.  Ergebnis  ist  dann  eine  Befehlsausführung,  die  man  gar 
nicht  wollte.  Allerdings  passiert  das  äußerst  selten,  vielleicht 
liegt’s  auch  nur  an  meinem  mickrigen  Joystick.  Wenn  anson¬ 
sten  mal  ein  Befehl  nicht  das  tut,  was  er  sollte,  dann  liegt  es 
meisten^  -  n  einer  eingerasteten  SHIFT-LOCK-Taste.  Bei  Be¬ 
fehlen,  die  die  SHIFTTaste  nicht  benutzen,  fällt  es  gar  nicht  auf. 
Will  man  jedoch  zum  Beispiel  den  Fore-Modus  anwählen  und 
färbt  statt  dessen  das  ganze  Bild  ein,  dann  war’s  SHIFT-LOCK! 

(Hans  Haberl/ah) 


1  REM******  SAVER  ******  <0B1> 

10  DATA  198,1,169,96,141,123,129,162,2,32, 

201 ,255,162,97,160,0,185, 159,127  <01 5> 

20  DATA  32,210,255,200,202,208,246,169,0,1 

33,253, 169,128,133,254,162,64,160  <045> 

30  DATA  0,177,253,32,210,255,200,208,248,2 

30.254.202.208.243.185.77.198.32  <00B> 
40  DATA  210,255,200,208,247,32,204,255,23 0 

,1,96,1,8,13,8,191,7,158,40,50  <137> 

50  DATA  48,54,51,41,0,0,0,120,169,96,133,2 

52,169,8, 133,253,169,0,133,254  <043> 

60  DATA  169,128,133,255,162,64,32,69,8,32, 

10,128,169,169,141,123,129,169  <251 > 

7a  DATA  96,133,252,169,72,133,253,169,77,1 

33.254.169.198.133.255. 162.1.32  <251> 
80  DATA  69,8,76,123,129,160,0,177,252,145, 

254 ,136, 208 ,249,230, 253 , 230 , 255  <  009  > 

90  DATA  202,208,242,96,0,0,0,0,0,0,0,0,0,0  <207> 
100  POKE  56, 112: CLR  <079> 

110  FOR  1=32605  TO  32767iREAD  A:S=S+A  <000> 

120  POKE  I , A: NEXT  I  <034> 

130  IF  3021569  THEN  PR  INT  "FEHLER  IN  DATAS 

11 :  GOTO  200  <034> 

140  INPUT "NAME  DER  NEUEN  VERSION" ; N*  <254> 

150  OPEN  15,8, 15: OPEN  2,8,2,N*+" ,P,W"  <075> 

160  GOSUB  170: SYS  32605: CLOSE  2:E0SUB  170: 

CLOSE  15: GOTO  200  <197> 

170  INPUT#15, A,B*,C,D: PRINT  A;B*;C;D  <103> 

180  IF  A>0  THEN  CLOSE  2: CLOSE  15: GOTO  200  <156> 

190  RETURN  <248> 

200  POKE  56, 128: CLR: END  <019> 
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Listing  2.  So  kann  Simons  Basic  erweitert  werden 


30  REM*  LADEN  VON  HI-EDDI -BILDERN  *  <222> 

100  INPUT"FILENAME";N*  <042> 

110  POKE  781 ,8: REM  GERAETEADRESSE  <091> 

120  POKE  782,0: REM  SEKUNDAERADRESSE  <225> 

130  SYS  65466: REM  FILEPARAMETER  SETZEN  <203> 
140  POKE  780, LENIN*)  <181> 

150  POKE  781, 192: POKE  782,2: REM  POINTER  A 

UF  FILENAMEN  <063> 

160  FOR  1=1  TO  LENIN*) : POKE  703+1 , ASC (MID* 

<N*,I) ): NEXT: REM  FILENAME  <239> 

170  SYS  65469: REM  NAMENSPARAMETER  SETZEN  <01B> 

180  POKE  780 , 0: REM  LOAD-FLAG  <112> 

190  POKE  78 1,0: POKE  7B2,224:REM  ADRESSE“* 

E000  <220> 

200  SYS  65493: REM  LOAD  <083> 

210  REM  GRAFIK  EINSCHALTEN  <002> 

220  M 1=PEEK( 56576 ): POKE  56576, Ml  AND  252: R 

EM  V I C- ADRESSBERE ICH  AB  * C000  <212> 

230  M2=PEEK < 53272 ): POKE  53272, 8: REM  VIDEO 

RAM-  UND  GRAFIK- ADRESSEN  <070> 

240  M3=PEEK ( 53265 ): POKE  53265, M3  OR  32:REM 

HIRES  EINSCHALTEN  <024> 

250  F= 16*7+6: REM  1 6*V0RDER6RUNDFARBE+H I NT 

ERGRUNDFARBE  <037> 

260  FOR  1=49152  TO  50152: POKE  I,F:NEXT  <138> 

270  POKE  1 98, 0: WAI T  198,1:REM  AUF  TASTE  W 

ARTEN  <030> 

280  POKE  56576, Ml: POKE  53272, M2: POKE  53265 

, M3:REM  WIEDER  NORMALZUSTAND  <030> 
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Listing  3.  HI-EDDI-Bilder  in  eigenen  Programmen 
verwenden 


iÜSj*  81 


ÄJöDy»* 


Grafik 
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Hardcopy  von 
HI-EDDI  auf 
dem  Plotter 
VC  1520 

Mit  diesem  Programm  ist  es  möglich, 
Hardcopies  von  HI-EDDI  mit  dem  Prin¬ 
ter-Plotter  VC  1520  zu  erstellen. 

Geben  Sie  zuerst  »Copy  1520«  (Listing  1)  mit  dem  MSE  ein 
und  speichern  Sie  es  ab.  Jetzt  muß  noch  das  HI-EDDI  Steu¬ 
erprogramm  geändert  werden.  Bei  dem  Steuerprogramm  (Li¬ 
sting  2)  sind  die  Zeilen  600  bis  750  zu  ändern. 

Die  Hardcopy  kann  jetzt  von  HI-EDDI  per  Tastendruck  oder 
Menü  nachgeladen  werden.  Es  ist  möglich,  mehrere  Bilder 
(nahtlos)  untereinander  oder  übereinander  (Overlay)  zu 
drucken.  (Stephan  Paetzold/ah) 


50  IF  A<2  THEN  A=A+2: LOAD"HI-EXE" ,8, 1  <107> 


60  1F  A=3  THEN  150  <027> 
70  XF  A=4  THEN  650  <200 > 
100  INPUT" {CLR>BETRIEBSART";C:POKE  780, C:P 

OKE  56 ,13: CLR: W$=" 123456" : SYS  3328  <254> 
110  IF  PEEK (8073) AND  64  THEN  A=3 : LO AD ” MENU 

E" , 8 , 1  <087> 
150  SYS  3337: A=PEEK (8064)  <119> 
160  ON  A+l  BOSUB  200,250,300,290,400,600,2 

90,290,500,510,300: GOTO  150  <254> 
200  OPEN  3,8,0, "*0":GET#3,C*,C*  <154> 
210  GET#3,C*,C*,L*,H*: IF  C*=""THEN  CLOSE  3 

: WAI T  198 , 1 : RETURN  <094> 


220  PRINT  256*ASC(H*+CHR*(0) ) +ASC (L*+CHR* ( 

0) ) ; : SYS  3334: GOTO  210  <018> 

250  PR I NT “ {CLR , DOWN JSEQUENZ : " : PR I NT " {DOWN , 

2SPACE > "WS: INPUT" {HOME , 3DQWNJ " ; W* : IF  L 
EN(W*)<2  THEN  250  <062> 

290  RETURN  <094> 

300  POKE  8115,8: PR INT" {CLR , DOWN  >G=GRAF I KB I 
LD" : IF  PEEK (8073) >127  THEN  PRINT"F=FAR 
BBILD"  <036> 

310  PRINT" S=SPR I TE "  :  PR I NT "  Z=ZE I CHENSATZ  "  :  P 

RINT" {DOWN,SPACE> — >"j  <017> 

320  GET  C*:IF  C*<>"G"AND  C#<>"F"AND  C*<>"8 

"AND  C*< >”Z "THEN  320  <240> 

330  PRINT  C*:POKE  7B0 , ASC (C*> : H*=W*: INPUT " 

{DOWN  >F  I LENAME  "  ,•  W* :  SYS  333 1 :  W*=H* :  H*=  " 

"  <046> 

340  OPEN  1,8,15,H*:INPUT#1,A,H*:PRINT  A;H# 

:IF  A>0 -THEN  WAIT  198,1  <073> 

350  CLOSE  1: RETURN  <223> 

400  POKE  63 1,34: POKE  198, 1 : H*=" ": INPUT" {CL 

R , DOWN  > " ; H* : GOTO  340  <207> 

500  A=8075: GOTO  520  <053> 

510  A=8079  <140> 

520  D=PEEK  ( 8074 )  :  OPEEK  ( A+D  > : PR I NT "  {CLR ,  DO 

WN>F"2*D+1: PR INT "SCHRITTWEITE  :“C,  <055> 

530  INPUT  C: IF  C< 1  OR  0160  THEN  530  <066> 

540  POKE  A+D , C : RETURN  <1B9> 

600  IF  A=5  THEN  A=4: LOAD "COPY  1520", 8,1  <045> 

650  INPUT" {CLR>BILDNUMMER";D:C=(D  AND  7)  <212> 

660  INPUT"FARBE  (0-3) "; B*: POKE  1000,0:POKE 

1001, VAL (B*)  <099> 

670  FOR  1=0  TO  6  <103> 

680  IF  PEEK ( 8086+1 )=D  THEN  LET  Z=(I+1)*819 

2  <162> 

690  NEXT  I  <010> 

700  X=INT (Z 7256 ): POKE  3399,X:P0KE  3392, Z-X 

*256  <025> 

710  POKE  780, C: SYS  3328  <028> 

720  PRINT" OVERLAY " ; : GOSUB  800: IF  C*="J"THE 

N  630  <  159> 

730  PR INT "NAHTLOS" ; : GOSUB  800: IF  CS="N"THE 

N  LET  A=1 : GOTO  50  <161> 

740  OPEN  1 ,6, 1 : PR I NT# 1 , "M" ,0,-180: CLOSE  1  <106> 

750  OPEN  1,6,0:PRINT#1,"  ": CLOSE  1:G0T0  65 

0  <077> 

800  PRINT"  ?  (J/N)“;  <205> 

810  GET  C*:IF  C*<>"J"AND  0*<>"N"THEN  810  '  <210> 

820  PRINT  C$: RETURN  <230> 
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Listing  2.  »Steuerprogramm  HI-EDDI». 

Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  16. 
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HI-EDDI  mit 
Itoh  8510 

Besitzern  des  Itoh  8510  bietet  dieses 
Programm  die  Möglichkeit,  von  HI- 
EDDI  Hardcopies  zu  erzeugen. 

Mit  HI-EDDI  lassen  sich  mit  minimaler  Hardware-Ausrüstung 
(C  64,  Diskettenlaufwerk  1541,  Joystick)  sehr  komfortable 
Grafiken  erzeugen.  Doch  was  nützt  die  schönste  Grafik  auf 
dem  Bildschirm,  wenn  man  sie  nicht  ausdrucken  kann? 

Die  Druckroutine  HI-PRINT  arbeitet  leider  nur  mit  Epson- 
Druckern  zusammen.  Da  der  Itoh  8510  ein  verbreiteter  und  gu¬ 
ter  Drucker  ist,  wurden  für  ihn  die  im  folgenden  beschriebenen 
Programme  erstellt.  Er  wird  über  eine  Centronics-Schnittstelle 
via  User-Port  am  C  64  angeschlossen. 

Zusätzlich  wurden  einige  Features  eingebaut,  die  die  Epson- 
Hardcopy-Routine  nicht  besitzt.  So  wäre  die  Vorgabe  von  Leer¬ 
spalten  vom  linken  Rand  aus  (falls  noch  Platz  ist)  eine  nützliche 
Sache.  Um  zwei  Grafiken  in  der  Horizontalen  aneinander  zu 
setzen,  wurde  dazu  die  volle  Bildschirmbreite  in  40  Spalten  zu 
je  8  (40  x  8  =  320)  Punkten  (wie  im  Textmodus)  organisiert. 
Um  jetzt  zwei  Grafiken  nebeneinander  zu  plazieren,  kann  dazu 
die  Startspalte  (wird  mitgedruckt)  der  links  stehenden  Grafik 
(Grafik  Nr.  1)  und  die  Endspalte  (wird  nicht  mitgedruckt)  der 
rechts  stehenden  Grafik  (Grafik  Nr.  2)  vorgewählt  werden. 

Die  Ausdruckbreite  wird  dazu  in  drei  Sektoren  von  links 
nach  rechts  aufgeteilt. 

0.  Sektor:  Abstand  (SPC)  in  Punkten  vom  linken  Papierrand. 

1.  Sektor:  Grafik  Nr.  1  (Bild-Nr. ;  Startspalte) 

Bild-Nr.  =  0  =  >  kein  Bild,  Startspalte  =  40 
Bild  wird  rechtsbündig  gedruckt 

0  <  =  Startspalte  <  =  39 

Startspalte  =  0  =  >  volle  Hardcopy  von  Grafik  Nr.  1 

2.  Sektor:  Grafik  Nr.  2  (Bild-Nr.  ;  Endspalte) 

Bild-Nr.  =  0  =  >  kein  Bild,  Endspalte  =  0 
Bild  wird  linksbündig  gedruckt 

1  <=  Endspalte  <=40 

Endspalte  =  40  =  >  volle  Hardcopy  von  Grafik  Nr.  2 
Insgesamt  kann  folgende  Formel  für  die  Aufteilung  der  drei 
Sektoren  angegeben  werden: 

SPC  +  (40— Startspalte)  *84-  Endspalte*  8  <  =  640 
Im  Steuerprogramm  werden  nacheinander  die  Bild-Nr.  von 
Sektor  1,  dann  (falls  Bild-Nr.  <  >  0)  die  Startspalte  von  Grafik- 
Nr.  1,  dann  die  Bild-Nr.  von  Sektor  2  und  (falls  Bild-Nr.  <  >  0) 
die  Endspalte  von  Grafik-Nr.  2,  und  schließlich  die  Anzahl  der 
Leerspalten  vor  Grafik-Nr.  1  abgefragt. 

Die  Maximalwerte  werden  stets  durch  das  Steuerprogramm 
vorgegeben,  so  daß  in  vielen  Fällen  ein  einfaches  RETURN  ge¬ 
nügt. 

Um  die  Druckroutine  »HI-P(ITOH8510)«  für  den  Itho  8510  in 
das  Steuerprogramm  HI-EDDI  einzubinden,  mußte  dieses  auf 
die  Bedürfnisse  der  Druckroutine  angepaßt  werden  und  heißt 
nun  »HI-E(ITOH8510)«. 

Dazu  wurden  (aus  Speicherplatzgründen)  alle  Zeilen  neu  nu¬ 
meriert  und  die  Textausgabepassagen  verkürzt.  In  den  Pro¬ 
grammzeilen  24  und  folgende  befindet  sich  das  Drucksteuer¬ 
programm. 

Es  wird  hierbei  dringend  davor  gewarnt,  das  neue  Steuer¬ 
programm  HI-E(ITOH8510)  zu  erweitern  oder  zu  ändern,  da 
sonst  das  Steuerprogramm  (inklusive  Variablen)  nicht  mehr  in 
den  verfügbaren  Basic-Speicherplatz  paßt.  Dies  gilt  auch  für 
den  eingebauten  Parametercheck,  da  in  der  Druckroutine  sel¬ 
ber  keine  Plausibilitätsprüfung  mehr  vorgenommen  wird. 


Für  die  Initialisierung  des  Druckers  und  die  Ausgabe  der 
Hardcopy  sollte  sich  der  Drucker  im  SELECT-Modus  befinden, 
da  sonst  das  Programm  hängenbleibt  (Acknowledge-Signal 
wird  erwartet). 

Falls  aus  irgendeinem  Grunde  (Drucker  beziehungsweise 
Kabel  defekt,  falsch  oder  gar  nicht  angeschlossen)  dieser  Fall 
eintritt,  kann  mit  RUN/STOP-RESTORE  die  Druckroutine  been¬ 
det  werden.  HI-EDDI  kann  dann  wieder  mit  RUN  gestartet  wer¬ 
den.  (Das  RUN  ist  notwendig,  um  HI-EXE  nachzuladen,  da  aus 
Speicherplatzgründen  nach  der  Anwahl  des  Drucksteuerpro¬ 
gramms  immer  die  Druckroutine  über  HI-EXE  nachgeladen 
wird.) 

Der  Drucker  sollte  mittels  der  DIP-Schalter  auf  CR  =  CR  und 
8-Bit-Data  eingestellt  sein.  Da  am  Anfang  kein  Zeilenvorschub 
ausgegeben  wird,  sollte  man  dafür  sorgen,  daß  der  Druckkopf 
sich  auf  einer  freien  Zeile  befindet.  Außerdem  sollte  das  Papier 
zentriert  werden,  da  sich  der  Ausdruck  über  die  volle  Papier¬ 
breite  erstrecken  kann. 

Die  Anpassung  des  Itoh  8510A  an  HI-EDDI  besteht  im  we¬ 
sentlichen  aus  zwei  Schritten: 


1  IF  A<2  THEN  A=A+2: LOAD "HI -EXE" ,8,1  <058> 

2  IF  A=3  THEN  6  <207> 

3  IF  A=4  THEN  25  <035> 

4  INPUT "B-ART";C:POKE  7B0,C:POKE  5<b,13:CLR 

: WS=" 123456" : SYS  332B  <117> 

5  IF  PEEK (8073) AND  64  THEN  A=3 : LOAD " MENUE " 

,8,1  <238> 

6  SYS  3337: A=PEEK (8064) :ON  A+l  SOSUB  7,10, 

12,11,18, 24 ,11,11,1 9,20, 12: GOTO  6  <059> 

7  OPEN  3,8,0, "S0":GET#3,CS,C*  <217> 

B  GET#3,CS,C*,LS ,HS:  IF  CS=""THEN  CLOSE  3:W 

AIT  198,1: RETURN  <14B> 

9  PRINT  256*ASC(HS+CHRS(0) > +ASC (LS+CHRS (0) 

) ; : SYS  3334: GOTO  0  <156> 

10  PRINI  ••  {CLR,D0WN5SEQ.  :  PRINT"  <D0WN,2SPA 
CE>"WS: INPUT" {HOME , 3D0WNJ" ; WS: IF  LEN (WS 

><2  THEN  10  < 096 > 

11  RETURN  <  069  > 

12  POKE  81 15,8: PRINT" {CLR , DOWN ,RVSON>G{RVO 

FF>— BILD" : IF  PEEK (8073) >127  THEN  PRINT" 
{RVSDNJF {RVOFFJ-BILD"  <152> 

13  PRINT" {RVSON >S {RVQFF >PR I TE " : PR I NT " {RVSO 

N>Z<RVOFF>-SATZ": PRINT" {DOWN>->";  <208> 

14  GET  CS:  IF  C*<>"G"AND  C*<>"F"AND  CSO"S" 

AND  CS< >"Z "THEN  14  <093> 

15  PRINT  CS: POKE  780, ASC (CS) : HS=WS: INPUT" { 

DOWN>F-NAME";WS:SYS  3331 : WS=HS: H*=" "  <213> 

16  OPEN  1,8,15, HS: INPUT# 1 , A, HS: PRINT  A;HS: 

IF  A>0  THEN  WAIT  198,1  <003> 

17  CLOSE  1: RETURN  <144> 

18  POKE  63 1,34: POKE  198 , 1 : HS=" ": INPUT" {CLR 

, DOWN  > " ; HS : GOTO  16  <210> 

19  fl=807Ss  GOTO  21  <0S9> 

20  A=8079  <160> 

2 1  D=PEEK ( 8074 ) : C=PEEK ( A+D  > : PR I NT " {CLR , DOW 

N}F"2#D+1 : PRINT"S-WEITE: "C,  <165> 

22  INPUT  C: IF  C< 1  OR  0160  THEN  22  <125> 

23  POKE  A+D , C: RETURN  <180> 

24  A=4: LOAD"HI— P  < I TOHB510) " , 8 , 1  <215> 

25  INPUT" {CLR , D0WN5S1 : B-NR. (0=KB> " ; C: POKE 

3415, C  AND  7: IF  C=0  THEN  D=40:GOTO  27  <236> 

26  INPUT "SSP.  ( <  =39 ; 0= VOLL ) {2SPACE >0 {3LEFT > 

" ; D: IF  D<0  OR  D>39  THEN  26  <222> 

27  POKE  3388, D:  C=40+D:  IF  040  THEN  C=40  <U9> 

28  INPUT " (D0WNIS2: B-NR. <0=KB) " ; D: POKE  3435 

,D  AND  7: IF  D=0  THEN  30  <041 > 

29  PR INT "ESP. ( >0; <=" ; C; ” {LEFT>>  ”5C;:INPUT 

“ {5LEFT>"; D: IF  D< I  OR  D>C  THEN  29  <191> 

30  POKE  3451 ,D: C=640- (40— PEEK (3388) +D) *8  <024> 

31  PRINT" {DOWNJSPC  <  =  >0; <  =  " ; C; "{LEFT>) <2SPA 
CE > " ; C ; : I NPUT " {6LEFT > " ; D : IF  D<0  OR  D>C 

THEN  31  < 194> 

32  C=INT (D/256) : POKE  3383, C: INPUT" {DOWN JDR 
UCK  {2SPACE  >  J  {3LEFT>  "  ;  CS:  IF  CSO"J"THEN 

34  < 106> 

33  POKE  3381 ,D-C*256: SYS  3328: INPUT" {DOWN > 
NOCHMAL {2SPACE > J {3LEFT  > " ; CS : I F  CS= " J " TH 

EN  25  <058> 

34  a=i:goto  i  Listing  1.  »HI-E(ITOH8510)«  <0i6> 
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10  REM  ####  PROGRAMM  ZUR  ERZEUGUNG  #####  <190» 

20  REM  tttt  VON  HI-PUTOH8510)  AUF  DISK  ##  <124> 

30  REM  AUTOR:  F.ZIESCHE’  AM:  13.  2.85  ##  <068> 

40  RESTORE : PS=0: REM  DATA ' S  UEBERPRUEFEN  <136» 

50  PRINT" {CLR, DOWN, SPACE JDATA-ZEI LEN  WERDE 

N  UEBERPRUFT  !"  <100> 

60  READ  BY  :  IF  BY  <  0  THEN  80  <145> 

70  PS  =  PS  +  BY  :  GOTO  60  <016> 

80  IF  PS+BY  <>  0  THEN  PR INT "FEHLER  IN  DATA 

-ZEILEN  ! " : LIST  160-  <036> 

90  INPUT" {DOWN, SPACEJDISKETTE  EINGELEGT C3S 

PACE>JA{4LEFT>"; IN*: IF  IN*< >" J A" THEN  90  <159> 
100  RESTORE  :  OPEN  3,B,3, "HI-P ( ITOH8510) ,P 

,W"  <061> 

110  PRINT#3,CHR* (0) ;CHR*< 13) ; : REM  STARTADR 

ESSE  <115> 

120  READ  BY  :  IF  BY  <  0  THEN  140  <233» 

130  PRINT#3,CHR$(BY) ;  :  GOTO  120  <044» 

140  CLOSE  3  :  PRINT" {DOWN, SPACE »PROGRAMM  W 

URDE  ERZEUGT  !"  <107» 

150  END  <152» 

160  REM  DATA-ZEILEN  FUER  HI -P ( I TOH8510)  <018> 

170  DATA  165,1,72,169,55,133,1,173,87,13,3 

2,186,13,141,170,14,173,107,13,32  <217» 

180  DATA  186,13,141,223,14,169,0,141,164,1 

4.141.217.14.141.174.13.32.248.13  <145» 
190  DATA  32,212,13,169,27,32,111,14,169,70 

,32,111,14,169,0,160,0,32,47,14  <162» 

200  DATA  169, 0, 141, 14B, 14, 169, 0,141, 201, 14 

,169,27,32,111,14,169,83,32,111  <055> 

210  DATA  14,169,0,160,0,32,47,14,169,0,240 

,16,32,135,14,32,241, 14,238,148  <007» 

220  DATA  14,173,148,14,201,40,144,240,169, 

0,240,16,32, 188,14,32,241 , 14,238  <092» 

230  DATA  201,14,173,201,14,201,0,144,240,2 

4,173,164,14,105,64,141,164,-14,173  <187> 

240  DATA  170,14,105,1,141,170,14,24,173,21 

7.14.105.64.141.217. 14.173.223.14  <185» 
250  DATA  105,1,141,223,14,169,13,32,111,14 

,169,10,32,111, 14,238,174,13,169  <197» 

260  DATA  0,201,25,176,3,76,42,13,104,133,1 

,96,162,7,221 , 149,31 ,240,4,202,208  <247»^ 

270  DATA  248, 232.13B, 10, 10, 10, 10, 10, 96, 0,0 

,0,0,0,0,0,0,24,173,123,13,105,40  <020» 

280  DATA  56,237,60,13,133,251,169,0,133,25 

2, 160,3,6,251 ,3B, 252 , 136,208,249  <132» 

290  DATA  165,251,164,252,141,80,13,140,82, 

13,96, 169,255,141,3,221,173,2,221  <055> 


300  DATA  9,4,141,2,221,173,0,221,9,4,141,0 

,221,162,0,189,27,14,32,111,14,232  <033> 

310  DATA  224,20,144,245,96,127,27,93,27,78 

,27,84,49,54,27,102,27,76,48,48  <1B3> 

320  DATA  48,27,48,27,62,133,99,132,98,56,1 

62,144,32,73,188,32,221,189,162  <085> 

330  DATA  1,189,0,1,240,6,232,224,6,144,246 

,202,202, 142,81,14,56,169,4,233  <181» 

340  DATA  0,240,9,168,169,48,32,111,14,136, 

208,248 , 172 , Bl ,14,240, 12,162, 1,189  <114> 

350  DATA  0,1,32,111,14,232,136,208,246,96, 

141,1,221,173,0,221,41,251,141,0  <177» 

360  DATA  221,9,4,141,0,221,173,13,221,41,1 

6,240,249,96,120,165, 1,72,41,248  <033» 

370  DATA  133,1,169,0,133,252,169,0,133,251 

,160,3,6,251,38,252,136,208,249  <080> 

380  DATA  24,165,251,105,0,133,251,165,252, 

105,0,133,252,177,251 , 153,204,13  <176» 

390  DATA  200,192,8,144,246,104,133,1,88,96 

,120,165,1,72,41 ,248, 133,1,169,0  <202» 

400  DATA  133,252,169,0,133,251,160,3,6,251 

,38,252,136,208,249,24,165,251,105  <237» 

410  DATA  0,133,251,165,252,105,0,133,252,1 

77,251,153,204,13,200,192,8,144  <236» 

420  DATA  246,104,133,1,88,96,160,128,140,4 

, 15, 1 69,0, 141, B, 15, 140, 10, 15, 162  <203» 

430  DATA  7,189,204,13,41,0,240,7,169,0,9,0 

,141 ,8,15,78,10,15,202, 16,236,173  <206» 

440  DATA  8,15,32,111,14,78,4,15,144,215,96  <148» 
450  DATA  -57076  : REM  PRUEFSUMME  <1B4» 
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Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  16. 


1.  HI-P(ITOH8510).L  (Listing  2)  abtippen  und  starten.  Die¬ 
ses  ist  ein  Ladeprogramm,  das  die  Druckroutine  HI-P(ITOH 
8510)  auf  Diskette  ablegt.  Es  wird  (nach  erfolgreichem  Test) 
zum  Arbeiten  mit  HI-EDDI  nicht  mehr  benötigt. 

2  r"-E(ITOH8510)  (Listing  1.)  abtippen  und  speichern.  Es 
ist  das  angepaßte  Steuerprogramm  und  ersetzt  das  alte  HI- 
EDDI. 

So,  das  wär’s  eigentlich.  HI-EDDI  mit  Itoh  8510A  ist  nun  lauf¬ 
fähig.  Mir  bleibt  nur  noch,  viel  Erfolg  mit  HI-EDDI  zu  wünschen. 

(Frank  Ziesche/ah) 


HI-EDDI  mit 
der  Datasette 

Die  Anpassung  von  HI-EDDI  an  die  Da¬ 
tasette  war  doch  nicht  ganz  so  einfach 
wie  zuerst  gedacht.  Hier  sind  die  not¬ 
wendigen  Informationen. 

Die  folgenden  Listingshinweise  beziehen  sich  auf  Seite  58ff. 

a)  Am  Listing  3  (HI-EDDI)  folgende  Änderungen  vornehmen: 
In  Zeile  50,  110  und  640  LOAD” ..  ",8,1  durch  LOAD” ..  ”1  er¬ 
setzen. 

160  ONA+1  GOSUB  290,250,300,290,290,600,290,290,500, 
510,300:GOT0150 
300  POKE8115,1:PRINT... 

330  PRINT C$:POKE  780,ASC(C$):H$=W$:W$="  " 

340  INPUT"(Cursor  Down)FILENAME'’;W$:SYS 
3331:W$  =  H$:H$="  " 

350  RETURN 

Folgende  Zeilen  weglassen:  200-220,  400 

b)  Das  so  modifizierte  Listing  3  als  erstes  auf  die  Programm¬ 
kassette  aufnehmen. 


c)  Folgende  Befehle  im  Direktmodus  eingeben: 
NEW:POKE8192,0:POKE43,1:POKE44,32.NEW 

d)  Programmkassette  einlegen  (nach  Listing  3)  und  Listing  2 
starten.  Wenn  keine  Fehler  mehr  drin  sind,  erzeugt  der  Lader 
auf  der  Kassette  das  Maschinenprogramm  HI-EXE. 

e)  HI-EDDI  ist  jetzt  bereits  lauffähig:  Programmkassette  zu¬ 
rückspulen,  Computer  kaltstarten,  Listing  3  laden  und  starten. 
Das  Maschinenprogramm  wird  nun  geladen. 

f)  Die  HI-EDDI-Befehle  LOAD  und  SAVE  funktionieren  eben¬ 
falls,  somit  kann  auch  schon  das  Menü  erstellt  werden.  Die  fer¬ 
tige  Menütafel  (mit  Listing  4  verbunden)  sollte  an  dritter  Stelle 
auf  die  Programmkassette  aufgenommen  werden. 

g)  Hier  die  erforderlichen  Änderungen  am  Listing  1:  Zunächst 
wieder  die  POKEs  wie  unter  c)  eingeben  und  dann  Listing  1  la¬ 
den  und  folgende  Änderungen  vornehmen: 

720  FOR  1=3326  TO  3708 
730  READA1F  A<0THEN  730 
740  POKEI,A:NEXT 

750  POKE43,0:POKE44,13;POKE45,125:POKE46,14 

760  SAVE"HI-PRINT'',1,1 
770  END 

h)  Programmkassette  einlegen  (an  4.  Stelle)  und  Listing  1  star¬ 
ten.  Auf  der  Kassette  wird  nun  das  Maschinenprogramm  Hl- 
PRINT  erzeugt. 

Wenn  nun  im  Programmlauf  vor  einem  Druckvorgang  diese 
Druckroutine  geladen  wurde,  muß  die  Kassette  zurückgespult 
werden,  so  daß  das  Maschinenprogramm  HI-EXE  nach  Been¬ 
digung  des  Druckvorganges  wieder  geladen  werden  kann. 

(Hans  Haberl/ah) 
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Trickfilm  mit 
dem  C  64 

In  die  vierte  Dimension,  die  bewegte 
dreidimensionale  Grafik,  dringen  Sie 
mit  diesem  Programm  vor.  Sie  können 
so  mit  einfachsten  Mitteln  Trickfilme 
mit  verblüffenden  Eigenschaften  er¬ 
stellen. 

Die  Unterschiede  gegenüber  anderen  Trickfilmgeneratoren: 

—  Es  muß  nur  ein  Bild  eingegeben  werden,  alle  anderen  Bilder 
berechnet  der  Computer  aus  diesem  Bild. 

—  Auch  komplizierte  Bewegungsabläufe  können  mühelos  er¬ 
zeugt  werden  (zum  Beispiel:  um  einen  Körper  um  die  Z-  und  X- 
Achse  zu  drehen,  dabei  heranzuholen  und  nach  links  zu  bewe¬ 
gen,  bis  er  den  Bildschirm  verläßt,  braucht  man  nur  eine  DATA- 
Zeile!). 

—  Es  können  sehr  viele  (bis  zu  255)  und  große  Bilder  gespei¬ 
chert  werden,  da  nur  die  Linienkoordinaten  gespeichert  wer¬ 
den. 

—  Es  werden  keine  Basic-Erweiterungen  benötigt. 

Der  »3D-Movie-Maker«  muß  in  zwei  Teilen  eingegeben  wer¬ 
den:  zuerst  das  Maschinenprogramm  (Listing  1),  dann  der 
Basic-Teil.  Wenn  das  Maschinenprogramm  eingegeben  und 
mit  SYS  49152  gestartet  wurde,  so  speichert  es  sich,  falls 
kein  Prüfsummenfehler  auftrat,  selbst  als  »TRICK.OBJ«  ab.  Man 
braucht  sich  nun  nicht  mehr  darum  zu  kümmern.  Bei  dem  Ba- 
sic-Teil  (Listing  2),  der  nun  eingegeben  werden  kann,  dürfen  al¬ 
le  REM-Zeilen  ersatzlos  wegfallen.  Beim  Start  des  Basic-Teils 
wird  automatisch  der  Maschinenteil,  der  sich  auf  Diskette  be¬ 
finden  sollte,  nachgeladen. 

Bedienung  —  Eingabe  des  Körpers 

Vor  der  Benutzung  des  Programmes,  müssen  die  Punkte 
Verbindungs-  und  Bewegungsvorschrift  des  Körpers  in  den 
DATA-Zeilen  ab  8000  festgelegt  werden.  Dies  ist  notwendig, 
damit  bei  Änderungen  oder  einem  erneuten  Start  nicht  alles 
wieder  neu  eingegeben  werden  muß.  Die  DATA-Zeilen,  die  das 
Listing  momentan  enthält,  erzeugen  den  auf  dem  Bildschirm 
herumfliegenden  Schriftzug  »64'er«.  Die  Punkte  werden  mitX-, 
Y-  und  Z-Koordinaten  eingegeben.  Als  Endmarke  dient  hier 
dreimal  die  1000.  Bei  der  Verbindungsvorschrift  wird  jeweils 
der  Anfangs-  und  Endpunkt  angegeben  zum  Beispiel:  Von 
Punkt  1  nach  Punkt  2  =  DATA  1,2.  Hier  dient  zweimal  die  1000 
als  Endmarkierung. 

Beispiel:  Man  will  ein  Kreuz  erzeugen. 

Punkte:  DATA  0,10,0,10,0,0,-10,0,0 

DATA -10,  0,0,  1000,1000,1000 
Verbindungsvorschrift:  DATA  1,3,2,4,1000,1000 

Bei  der  Bewegungsvorschrift  ist  es  allerdings  etwas  kompli¬ 
zierter.  Hier  müssen  zweimal  drei  Verschiebungsarten,  drei 
Drehungsarten  und  die  Dauer  des  Vorgangs  angegeben  wer¬ 
den.  Zuerst  kommt  die  erste  Verschiebung  in  X-,  Y-  und  Z- 
Richtung,  dann  die  Drehung  um  die  drei  Achsen,  nun  die  zwei¬ 
te  Verschiebung  und  zum  Schluß  die  Dauer  des  Ganzen.  Diese 
Reihenfolge  hat  folgenden  Sinn: 

Wird  zuerst  verschoben  und  dann  gedreht,  dreht  sich  die  Fi¬ 
gur  um  den  Bildschirmmittelpunkt.  Bei  umgekehrter  Reihenfol¬ 
ge  dreht  sich  die  Figur  an  beliebiger  Stelle  um  ihren  eigenen 
Mittelpunkt.  Hier  ein  Beispiel  einer  DATA-Zeile: 

DATA  0,0, 0,5, 0,0,  0,5,0,  10 

Die  Figur  bewegt  sich  10  Bilder  lang  um  jeweils  5  Stellen 


nach  oben  und  dreht  sich  dabei  um  jeweils  fünf  Grad  um  die 
X-Achse.  Einen  Zoomeffekt  erreicht  man  durch  Verschieben  in 
der  Z-Achse,  so  kann  man  zum  Beispiel  mit  DATA 
0,0,0,0,0,0,0,0,1,50  eine  Figur  langsam  vergrößern.  Hier  bil¬ 
det  einmal  die  1000  die  Schlußmarkierung.  Um  die  vielen  ver¬ 
schiedenen  Möglichkeiten  der  Bewegung  zu  entdecken,  lohnt 
es  sich,  die  verschiedenen  Kombinationen  auszuprobieren 
(und  dabei  mit  einfachen  Bewegungen  anzufangen). 
Bedienung  —  Ablauf  des  Programms 

Der  »3D-Movie-Maker«  stellt  vier  Menüpunkte  zur  Wahl: 

1.  Erzeugen  einer  Grafik 

Hierbei  berechnet  der  Computer  die  Anzahl  der  Bilder  und 
fragt  diese  noch  einmal  ab.  Sollen  alle  Bilder  gezeichnet  wer¬ 
den,  braucht  nur  RETURN  eingegeben  werden.  Nun  wird  der 
Speicherbedarf  berechnet;  reicht  der  vorhandene  Speicher 
von  23  KByte  aus,  so  beginnt  der  Rechenvorgang.  Dabei  wird 
die  Anzahl  der  fertigen  Bilder  angezeigt.  Ist  der  Rechenvor¬ 
gang  beendet  (bei  150  Bildern  mit  je  10  Punkten  zirka  eine  hal¬ 
be  Stunde)  kehrt  das  Programm  ins  Menü  zurück.  Durch  das 
Drücken  der  Leertaste  kann  man  sich  während  der  Berech¬ 
nungen  den  Film  ansehen  und  dann  durch  nochmaliges  Betä¬ 
tigen  fortfahren. 

2. /3.  Laden/  Speichern 

Da  das  Erstellen  eines  Films  recht  lange  dauert,  kann  man 
fertige  Filme  speichern  und  laden.  Das  Programm  hängt  an 
den  Filenamen  automatisch  ein  ».GRA«  an,  so  daß  die  Dateien 
im  Directory  sofort  erkennbar  sind.  Tritt  ein  Disk-Error  beim 
Laden  oder  Speichern  auf,  landet  man  wieder  in  der  »INPUT 
FILENAME«-Zeile.  Hier  noch  ein  Hinweis  zur  LOAD-Routine: 
Da  das  Einlesen  von  23  KByte  mit  einer  GET-Schleife  nicht 
einwandfrei  funktionierte  und  15  Minuten  dauerte,  verwendet 
die  jetzige  Version  die  LOAD-Routine  des  Betriebssystems. 
4.  Abspiolon 

Beim  Auiruf  dieser  Funktion  wird  man  zuerst  nach  der  An¬ 
zahl  der  Durchläufe  (maximal  255)  und  nach  der  Anzahl  der 
Bilder  je  Lauf  gefragt.  Beim  letzteren  braucht  man  nur  RE¬ 
TURN  eingeben,  um  alle  Bilder  ablaufen  zu  lassen. 

Der  Algorithmus 

Das  eigentliche  Kernstück  des  Programms  ist  ein  Algorith¬ 
mus,  der  die  Punkte  um  einen  Winkel  dreht,  die  X-,  Y-  und  Z- 
Koordinaten  in  Bildschirmkoordinaten  umrechnet  und  dann 
die  außerhalb  liegenden  Teile  der  Linien  wegstreicht.  Beim 
Drehen  (hier  um  die  Z-Achse)  werden  erst  X-  und  Y-Koordi- 
naten  in  Radius  und  Winkel  (im  Bogenmaß)  umgerechnet;  be¬ 
zogen  auf  den  Koordinatenursprung  (siehe  Bild  1).  Nun  wird 
der  Winkel,  um  den  gedreht  werden  soll,  addiert  und  die  neuen 
Koordinaten  werden  aus  dem  neuen  Winkel  und  dem  Radius 
errechnet  (siehe  Bild  2). 

Beim  Umrechnen  in  Bildschirmkoordinaten  wird  einfach  die 
Z-Koordinate  auf  die  X-  und  Y-Koordinate  so  aufgerechnet,  daß 
Punkte,  die  weiter  vorne  liegen,  vom  Mittelpunkt  wegrücken. 
Außerdem  wird  der  Koordinatenursprung  in  die  Bildschirmmit¬ 
te  verlegt.  Durch  dieses  Verfahren  wird  die  Figur  mit  einem 
Fluchtpunkt  in  der  Mitte  des  Bildschirms  dargestellt.  Das  nun 
folgende  Wegstreichen  der  außerhalb  liegenden  Linien  und  Li- 
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nienstücke,  geschieht  mit  Hilfe  einer  Geradengleichung.  Falls 
nur  Teile  der  Geraden  außerhalb  des  Bildschirms  liegen,  wird 
der  äußerste  Wert  für  X  beziehungsweise  Y  angenommen  und 
die  fehlende  Koordinate  errechnet. 

Beschreibung  der  Maschinenroutine 
Die  Zeichenroutine  des  »3D-Movie-Makers«  übernimmt  die 
Verwaltung  der  Grafik  und  ist,  zum  Erreichen  eines  Trickfilmef¬ 
fekts,  ganz  auf  Geschwindigkeit  ausgelegt.  Aus  diesem  Grund 
erhielt  sie  die  folgenden  Merkmale: 

—  Sie  ist  in  Assembler  geschrieben. 

—  Sie  berechnet  keine  Punkte,  sondern  zeichnet  nur. 

—  Die  Koordinaten  werden  nicht  geprüft,  das  heißt:  das  Basic- 
Programm  darf  keine  »unmöglichen«  Koordinaten  übermitteln. 

—  Der  Bildschirm  wird  nur  so  weit  gelöscht,  wie  es  nötig  ist. 

—  Die  Zeropage-Addressierung  wird  in  breitem  Umfang  be¬ 
nutzt. 

—  Der  IRQ  wird  abgestellt. 

Das  wichtigste  Mittel  zur  Erzeugung  eines  flüssigen  Bilder¬ 
ablaufs  und  die  Grundidee  der  Routine  ist  jedoch  das  »ver¬ 
deckte  Zeichnen«.  Dafür  werden  zwei  Bitmaps  benötigt  (bei 
unserem  Programm  ab  $A000  und  $E000).  Während  nun  ei¬ 
ne  der  beiden  zu  sehen  ist,  wird  auf  der  anderen  gezeichnet. 
Nun  wird  das  neue  Bild  sichtbar  gemacht  und  das  alte,  wel¬ 
ches  nicht  mehr  zu  sehen  ist,  wird  gelöscht.  Dieser  Vorgang 
wiederholt  sich,  bis  alle  Bilder  abgearbeitet  sind.  Hier  noch  ei¬ 


ne  Anmerkung:  die  Line-Routine  haben  wir  mit  einigen  Ände¬ 
rungen  dem  Artikel  »Ein  schneller  Drawline-Algorithmus«  aus 
dem  64’er,  4/84  entnommen.  Die  Funktion  läßt  sich  am  besten 
dort  nachvollziehen.  (Armin  und  Dirk  Biernaczyk/tr) 


Felder: 

X(l),  Y(l),  Z(l) 

;  Originalkoordinaten  der  Figur  aus  den  DATA- 
Zeilen 

X1(l),  Y1(l),  Z(l) 

:  Koordinaten  beim  Rechnen  und  für  das  POKEN 

P1(D,  P2(l) 

:  Verbindungsvorschriften  aus  den  DATA-Zeilen 

Normale  Variablen: 

PO 

:  Speicherpointer  für  fertige  Daten 

Q-1 

:  Zähler  für  fertige  Bilder 

A2 

:  Anzahl  der  Linien  pro  Bild 

AI 

:  Anzahl  der  Punkte  pro  Bild 

AN 

:  Anzahl  der  Bilder 

PI,  P2,  P3,  P4, 

:  Variablen  zur  Berechnung  des  zu  löschenden 

PB.  PA 

Bildschirmbereichs 

WX,  WY,  WZ.  XA, 

:  Variablen  für  die  Drehbewegungen  und  Ver- 

YA,  ZA,  XB,  YB, 

schieben  (werden  bei  jedem  Bild  auf  W1,  ... 

ZB 

aufaddiert) 

W1,  W2,  W3,  XI, 

:  Momentane  Lage  des  Körpers 

Yl.  ZI.  X2.  Y2. 

Z2 

Variablenliste 

3D-M0VIE-MAKER 
EIN  PROGRAMM  VON: 

DIRK  &  ARMIN  BIERNACZYK  — 
AN  DER  PAPENBURG  41 
4630  BOCHUM  6 
TEL.:  ////// 

1985  BY  ARMIN  8-  DIRK 
BIERNACZYK 


100  REM  - 

105  REM  — 

110  REM  — 

115  REM  — 

120  REM  — 

125  REM  — 

130  REM  — 

135  REM  - 

140  REM  <C> 

145  REM 
150  : 

160  REM  - 

170  REM  -  HAUPTMENUE  - 

180  REM  - 

190  : 

191  IF  A=0  THEN  A=1 : LOAD "TRICK. OBJ“ ,8,1 

192  : 

195  POKE  56,50: CLR: REM  SPEICHER  HERAB. 
200  PRINT  CHR*(147) 

PRINT  SPC<10)"**  3D— MOV I E— MAKER  **" 
PRINT: PRINT: PRINT: PRINT 


210 

220 

230 

235 

240 

245 

250 

255 

260 

262 

264 

265 
270 
280 
285 
290 
300 
310 
315 
320  : 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1061 
1062 
1063 
1070 
1080 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


SPC  <9) " 1  -  GRAFIK  ERSTELLEN" 


SPC (9) "2  -  GRAFIK  ABSPIELEN" 
SPC (9) "3  -  GRAFIK  LADEN“ 


SPC (9) "4  -  GRAFIK  ABSPEICHERN 


SPC (9) "5  -  ENDE" 


GET  W*:IF  W*<"l"OR  W*>"5"THEN  270 
W=VAL<W*> 

IF  W=5  THEN  END 

ON  H  GOSUB  1040,5040,6040,7040 
GOTO  200 
: 

: 


REM 

REM 

REM 


-  ERSTELLEN  - 


GOSUB  4540  : REM  VARIABLEN 

GOSUB  4040  : REM  EINLESEN 

PRINT  CHR*( 147) "FERTIGE  BILDER: 
IF  AN» <A2*6+2> <23000  THEN  1080 
PRINT"ZU  WENIG  SPEICHERPLATZ" 
POKE  198,0: WA IT  198,1:RETURN 


<087> 

<  194> 
<046> 

<  1 15> 
<029> 
<208> 

<  147> 

<  122> 
<153> 

<  134> 
<126> 
<017> 

<  121  > 
<037> 
<  166> 

<  151  > 

<  168> 

<  154> 
<229> 

<  1B0> 
<015> 

<  194> 
<081  > 
<219> 

<«•71  > 

<1 15> 
<101> 
<129> 
<110> 
<041  > 
<243> 

<  1 60> 

<  125> 
<001> 
<235> 
<238> 
<032> 
<037> 
<042> 

<  141  > 
<030> 

<  161  > 
<246> 
<022> 

<  139> 

<  131  > 
<089> 

<  143> 
<190> 
<030> 


1085  GOSUB  3040  : REM  BEWEGEN 

1090  GOSUB  2040  : REM  BERECHNEN 

1095  GET  TA*:IF  TA*=“  "THEN  IF  Q>1  THEN 
S  49152, Q-1,A2,1 
1100  NEXT 
1110  Q=Q-1 
11?™  RETURN 
1130  : 

1135  : 

2000  REM - 


SY 


VERSCH I EBEN 1  - 


2010  REM  -  BERECHNEN 

2020  REM - 

2030  : 

2040  REM 
2050  : 

2060  FOR  1=1  TO  Al 
2070  X1(I)=X(I)+X1:Y1(I)=Y(I)+Y1 
2080  ZI ( I ) =Z  < I ) +Z1 
2090  NEXT 
2100  : 

2110 
2120 
2130 
2140 

2150 
2160 
2165 
2170 
2180 
2190 


REM  -  DREHEN  - 

IF  W1=0  THEN  2250 
FOR  1=1  TO  Al 

XD-X  1<I>|  YD-*Y  1(1) 

IF  XD=0  THEN  XD=1E— 20 
IF  YD=0  THEN  YD=lE-20 
R=SBR(XD*XD+YD*YD) 

W=ATN (YD/XD) 

IF  XD>0  AND  YD<0  THEN  W=W+±*2: GOTO 
10 

2200  IF  XD<0  THEN  W=W+± 

2210  W=W+W1 

2220  Y 1 < I > =SIN (W) »R: X 1 < I ) =COS (W) *R 
2230  NEXT 
2240  : 

2250  IF  W2=0  THEN  2370 
2260  FOR  1=1  TO  Al 
2270  ZD=Z1 ( I ) : YD=Y1 t I ) 

2280  IF  ZD=0  THEN  ZD=lE-20 
2285  IF  YD=0  THEN  YD=lE-20 
2290  R=SOR ( ZD*ZD+YD»YD ) 

2300  W=ATN ( YD/ZD) 

2310  IF  ZD>0  AND  YD<0  THEN  W=W+£*2: GOTO 
30 

2320  IF  ZD<0  THEN  W=W+£ 

2330  W=W+W2 

2340  Y1 ( I ) =SIN (W) »R: ZI (I)=COS(W)*R 


22 


23 


<092> 

<0B3> 

<039> 
<094> 
<014> 
<  162> 
<090> 
<095> 

<  125> 

<  159> 
<145> 
<228> 
<175> 
<250> 

<  183> 

<  171  > 
<209> 
<06B> 
<044> 

<  196> 
<064> 

<  125> 
<007> 

<194? 

<137> 

<  151  > 
<156> 
<214> 

<204> 

<  158> 
<219> 
<236> 
<20B> 
<1B4> 
<015> 

<  127> 

<  130> 
<019> 
<015> 
<152> 
<0B2> 

<216> 

<040> 

<214> 

<103> 


for  q=i  to  an  :  rem  Anzahl  der  bilder  <i25>  Listing  2.  »3D-Movie-Maker« 
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2350 

NEXT 

<074> 

2870 

P 1 =P2  s  P2=P A : P3=P4 : P4=PB 

<  144> 

2360 

s 

<050> 

2872 

PRINT  CHR4 (19) SPC ( 1 6 >  Q 

<  186> 

2370 

IF  W3=0  THEN  2510 

<  133> 

2880 

RETURN 

<  144> 

2380 

FOR  1=1  TO  Al 

<249> 

2890 

: 

<072> 

2390 

ZD=Z1 (I) :XD=X1 <I> 

<  180> 

2900 

5 

<082> 

2400 

IF  ZD=0  THEN  ZD=1E— 20 

<  1 41  > 

3000 

REM - 

<080> 

2405 

IF  XD=0  THEN  XD=lE-20 

<  128> 

3010 

REM - BEWEGEN - 

<  186> 

2410 

R=SQR(ZD*ZD+XD*XD> 

<  130> 

3020 

REM - 

<100> 

2420 

W=ATN ( XD/ZD) 

<  1 40> 

3030 

: 

<212> 

2430 

IF  ZD>0  AND  XD<0  THEN  W=W+.!*2:  GOTO  24 

3040 

IF  E=0  THEN  3100 

<0B2> 

50 

<210> 

3050 

W 1 =W 1 +WZ  s  W2=W2+W  X : W3=W3+WY 

<027  > 

2440 

IF  ZD<0  THEN  W=W+± 

<  160> 

3060 

X 1=X 1+XA: Y1=Y1+YA: Z1=Z1+ZA 

<  125> 

2450 

W=W+W3 

<206> 

3070 

X2=X2+XB: Y2=Y2+YB:  Z2=Z2+ZB 

<  143> 

2460 

XI (I)=SIN(W)»R:Z1 (I)=COB(W)*R 

<219> 

3080 

E=E-1: RETURN 

<138> 

2470 

NEXT 

<  194> 

3090 

S 

<01B> 

2480 

: 

<  170> 

3100 

READ  XA,YA,ZA,WX,WY,WZ,XB,YB,ZB,E 

<203> 

2490 

REM  -  UMRECHNEN  - 

<076> 

3110 

WX=WX*£/ 1 80:  WY=WY*i/ 180 

<254> 

2500 

: 

<  190> 

3120 

WZ=WZ*±/ 1 80 : YA=-YA :  YB=— YB 

<044> 

2510 

FOR  1  =  1  TO  Al 

<123> 

3130 

GOTO  3050 

<  19B> 

2530 

XI < I >  =  <  X 1 (I)+X2)*1.01t(Zl (I)+Z2> 

<215> 

3140 

: 

<068> 

2540 

Y1 (I>=<Y1 <I)+Y2)»1.01 T<Z1 (I)+Z2> 

<103> 

3150 

s 

<07B> 

2560 

NEXT 

<030> 

4000 

REM - 

<244> 

2565 

REM  1.01  KANN  LEICHT  GEAENDERT 

<  109> 

4010 

REM  -  EINLESEN  - 

<  155> 

2567 

REM  WERDEN 

<17B> 

4020 

REM - 

<00B> 

2580 

a 

<016> 

4030 

: 

<  196> 

2590 

PA=0:PB=199 

<043> 

4040 

1=0 

<  163> 

2600 

PO=PO— 2 

<006> 

4050 

i=i+i 

<223> 

2601 

REM - 

<04B> 

4060 

READ  X(I) ,Y(I) ,Z(I) 

<224> 

2602 

REM  -  UBERGETRETENE  LINIEN  - 

<122> 

4070 

Y(I)  =— Y  ( I ) 

<251  > 

2603 

REM - BERECHNEN  UND  POKEN  - 

<032> 

4080 

IF  X  (1X1000  THEN  4050 

<  1 16> 

2604 

REM - 

<051  > 

4090 

A1=I— 1 

<  124> 

2610 

FOR  1=1  TO  A2 

<226> 

4100 

1=0 

<225> 

2620 

X07.=X1  (PI  (I)  >:Y17.=Y1  (PI  (I)  ) 

<  199> 

4110 

1  =  1  +  1 

<029> 

2630 

X27.=X1  (P2(I>  )  :Y27.=Y1  (P2(I)  ) 

<232> 

4120 

READ  PI (I) , P2 ( I ) 

<100> 

2640 

X17.=0:X37.=0:ME=0 

<0B7> 

4130 

IF  PI  (1X1000  THEN  4110 

<  1 15> 

2641 

IF  X07.>  159  AND  X27.>  159  THEN  2760 

<013> 

4140 

A2=I— 1 

<  184> 

2642 

IF  X07.C-159  AND  X27.<-159  THEN  2760 

<04 1  > 

4150 

<062> 

2643 

IF  Y17.<-  99  AND  Y27.<-  99  THEN  2760 

<  177> 

4155 

AN— 0 

<003> 

2644 

IF  Y17.>  99  AND  Y27.>  9V  THEN  2760 

<186> 

4157 

READ  A: IF  A= 1 000  THEN  4180 

<  172> 

2650 

IF  Y1%=Y27.THEN  2711 

<005> 

4160 

FOR  1=1  TO  9: READ  A: NEXT 

<013> 

2655 

IF  X27.=X07.THEN  2690 

<  065  > 

4170 

AM-AN+A: GOTO  4157 

<030> 

2660 

M=  (Y27.-Y17.)  /  (X27.-X07.) 

<177> 

4180 

Re- i'ORE 

<  166> 

2670 

B=-M*X07.+Y17. 

<  127> 

4190 

READ  A, A,A 

<059> 

2680 

GOTO  2720 

<008> 

4200 

IF  A< 1000  THEN  4190 

<  1B2> 

2690 

IF  Y1X>99  OR  Y17X-99  THEN  Y17.=99*SGN( 

4210 

READ  A,A 

<  164> 

Y17.) 

<  171  > 

4220 

IF  A< 1000  THEN  4210 

<082> 

2700 

IF  Y27.799  OR  Y27.<-99  THEN  Y27.=99*SGN( 

4230 

: 

<  142> 

Y27.) 

<229  > 

4240 

PRINT  CHR*(147> “BI LDERZ AHL {2SPACE > " AN 

<102> 

2710 

GOTO  2760 

<  166> 

4250 

PRINT  CHR* (19) SPC ( 11) ; : INPUT  I 

<252> 

2711 

IF  X07.M59  OR  X07.<-159  THEN  X07.=  159*S 

4260 

IF  I >255  OR  I >AN  THEN  4240 

<040> 

GN(X07.) 

<  155> 

4270 

AN=I 

<  153> 

2712 

IF  X27->159  OR  X27X-159  THEN  X27.=  159»S 

4280 

RETURN 

<018> 

GN  (X27.) 

<029> 

4290 

: 

<202> 

2713 

GOTO  2760 

<  169> 

4300 

a 

<212> 

2720 

IF  X07.>159  OR  X07X-159  THEN  X07.=  159*S 

4500 

REM - 

<0B5> 

GN  ( X07. )  :  Y 1 7.=M*X07.+B 

<  150> 

4510 

REM  -  VARIABLEN  - 

<042> 

2730 

IF  X27.>159  OR  X27.C-159  THEN  X 27.=  159*5 

4520 

REM - 

<  105> 

GN  (X27.)  :  Y27.=M*X27.+B 

<057> 

4530 

s 

<  18B> 

2740 

IF  Y17.>99  OR  Y17.C-99  THEN  Y17.=99*BGN( 

4533 

REM  NACH  BEDARF  DIMENSIONIEREN 

<1BB> 

Y17.)i  X0X-  (Y17.-D»  /M 

<1Z2> 

4336 

3 

<  194> 

2750 

IF  Y27->99  OR  Y27X-99  THEN  Y27.=99*SGN  ( 

4540 

DIM  X (50) , Y (50) ,Z (50) 

<  164> 

Y27.)  s  X27.=  (Y27.-B)  /M 

<248> 

4560 

DIM  XI (50) ,Y1 (50) ,Z1 (50) 

<010> 

2760 

IF  Y17.>99  OR  Y17.<-99  THEN  X  17.=255t  X07. 

4570 

DIM  PI (50) , P2 (50) 

<04B> 

=0:  Y17.=0:  Y27.=0:  X27.=0s  GOTO  2810 

<058> 

4580 

P0=35839: PI =32: P2=32: P3=0: P4=0 

<246> 

2770 

IF  X07.>159  OR  X07.-C-159  THEN  X17.=255:X 

4590 

RETURN 

<074> 

07.=0s  Y17.=0i  Y27.=0:  X27.=0:  GOTO  2810 

<028> 

4600 

3 

<002> 

2780 

: 

<216> 

4605 

<007> 

2790 

X07.=X07.+160:  X27.=X27.+  160 

<212> 

5000 

REM - 

<077> 

2791 

Y 1 7.=Y  1 7.+ 1 00 :  Y27.= Y27.+ 1 00 

<  178> 

5010 

REM - ABSPIELEN - 

<  165> 

2793 

IF  Y17.>PA  THEN  PA=Y17. 

<079> 

5020 

REM - 

<097> 

2794 

IF  Y27.>PA  THEN  PA=Y27. 

<  160> 

5030 

- 

<1B0> 

2795 

IF  Y17.<PB  THEN  PB=Y17. 

<218> 

5040 

IF  Q>0  AND  A2>0  THEN  5090 

<  139> 

2796 

IF.  Y27.<PB  THEN  PB=Y27. 

<043> 

5050 

PRINT  CHR4  ( 147)  :  PRINT :  PRINT :  PRINT 

<238> 

2799 

IF  X07.>255  THEN  X07.=X07.-256:  X17.=  l 

<247  > 

5060 

PRINT  SPC (5) "ES  GIBT  KEINE  GRAFIK" 

<094> 

2800 

IF  X 27. >255  THEN  X27.=X27.-256:  X37.=l 

<060> 

5070 

POKE  198,0: WAIT  198,1:P0KE  198,0 

<091  > 

2805 

s 

<241  > 

5080 

RETURN 

<056> 

2810 

POKE  PO,X07.tPOKE  P0-1,X17. 

<039> 

5090 

INPUT" CCLRIWIEVILE  DURCHLAUEFE" ; DU 

<209> 

2820 

POKE  PO— 2 ,  Y 1 7 s  POKE  P0-3.X27. 

<031  > 

5091 

IF  DU >255  OR  DU< 1  THEN  5090 

<  161  > 

2830 

POKE  PO— 4  ,  X3X:  POKE  P0-5,Y27. 

<179> 

5092 

PR I NT " <HOME , 2D0WN  >  W I EV I ELE  B I LDER <5SP 

2840 

PO=PO— 6 

<252> 

ACE>"Q 

<097> 

2850 

NEXT 

<066> 

5093 

PRINT" <UP> "SPC ( 19) ;: INPUT  I 

<233> 

s 

<042> 

5094 

IF  I >Q  OR  I<1  THEN  5092 

<  171  > 

2862 

IF  PA<PB  THEN  PA=199:PB=0 

<0B8> 

5100 

: 

<250> 

2863 

PA=40* ( (PA  OR  7) +1 1/256+1 

<027> 

2864 

PB=40*(PB  AND  2481/256 

<219> 

2B66 

POKE  P0+6«A2+2 , INT (PI 1 —INT (P31 

<  168> 

Listing  2.  Das  Basic-Programm  zum  »3D-Movie-Maker«. 

2868 

POKE  P0+6*A2+1,P3 

<  198> 

Verwenden  Sie  zur  Eingabe  bitte  den  Checksummer. 
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51B5 

5110 

6000 

6010 

6020 

6030 

6040 

6050 

6055 

6060 

6070 

6080 

6082 

6090 

6100 

6110 

6140 

6150 

6160 

6170 

61B0 

6190 

6200 

6210 

6220 

6570 

6580 

6590 

6600 

6610 

6620 

7000 

7010 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7090 

7100 

7105 

7110 

7120 

7130 

7135 

7140 

7150 

7160 

7170 

7175 

7180 


SYS  49152, I,A2, DU: RETURN 

REM - 

REM - LADEN - 

REM - 

: 

PRINT  CHR* < 147) : PRINT: PRINT: PRINT: PRI 
NT 

I NPUT " C3SPACE  >F I LENAME :  " j NA* 

IF  NA*="M"THEN  RETURN 
□PEN  2,8,2,NA*+".GRA,S,R" 

OPEN  1,8,15: INPUT#1, FE* 

IF  FE*="00"THEN  6090 
CLOSE  1 : CLOSE  2: GOTO  6040 
GET#2,Q*,A2* 

Q=ASC ( Q* ) : A2= ASC ( A2*  > 

AD=35B39-Q#  <A2*6+2> 

CLOSE  2: CLOSE  1 

AH=INT ( AD/ 256) : AL=AD-AH*256 

A*=NA*+".GRA,S" 

FOR  1=51000  TO  5 1 000+LEN ( A*  >  — 1 
POKE  I ,ASC(MID*(A*, 1-50999,1)) 

NEXT 

POKE  183,LEN(A*> 

POKE  187,56: POKE  1B8,199 

POKE  185 , 0: POKE  186,8: POKE  147,0 

POKE  195, AL: POKE  196, AH 

SYS  62648 

RETURN 

: 

: 

REM - 

REM - ABSPEICHERN - 

REM - 

IF  Q>0  AND  A2 >0  THEN  7090 
PRINT  CHR* ( 147) : PRINT: PRINT: PRINT 
PRINT  SPC (5) “ES  GIBT  KEINE  GRAFIK" 
POKE  198,0: WA IT  19B,l:POKE  198,0 
RETURN 

PRINT  CHR* <147) : PRINT: PRINT: PRINT 
I NPUT " {4SPACE  >F I LENAME :  " ; NA* 

IF  NA*="M,,THEN  RETURN 
OPEN  2,8,2,NA*+".GRA,S,W" 

OPEN  1,8,15: INPUT#1 ,FE* 

IF  FE*= " 00 " THEN  7140 
CLOSE  1: CLOSE  2: GOTO  7090 
PR I NT #2 , CHR* ( Q ) ; CHR* ( A2 ) ; 

FOR  1=35839-0* <A2»6+2) TO  35B39 
PRI NT #2 , CHR* ( PEEK  < I > > ; : NEXT 
CLOSE  2: CLOSE  1: RETURN 


<  131  > 

7185 

: 

<049> 

<  004  > 

8000 

PPM 

<025> 

<255> 

S  1  Do  > 

<096> 

<  173> 

□  10110 

8020 

8030 

Ktn 

PPM 

—  Uftlftb  rUER  PUNKTE 

<045> 
<  132> 

: 

<  164> 

8040 

DATA 

-20,  10,0 

<  049  > 

8050 

DATA 

-30,  10,0 

<075> 

<  138> 

8060 

DATA 

-30,-10,0 

<205> 

<205  > 

8070 

DATA 

-20,-10,0 

<199> 

<  109> 

8080 

DATA 

-20,  0,0 

<029> 

<146> 

8090 

DATA 

-30,  0,0 

<055> 

<  136> 

8100 

DATA 

-15,  10,0 

<253> 

<007  > 

8110 

DATA 

-15,  0,0 

<203> 

<180> 

Bl  20 

DATA 

-  5,  10,0 

<053> 

<060> 

8130 

DATA 

-  5,  0,0 

<  161  > 

<  177> 

8140 

DATA 

-  5, -10,0 

<132> 

<039> 

8150 

DATA 

10,  10,0 

<035> 

<064> 

8160 

DATA 

5,  5,0 

<096> 

<100> 

8170 

DATA 

15,-10,0 

<  194  > 

<  191  > 

8180 

DATA 

5, -10,0 

<064> 

<  155> 

Bl  90 

DATA 

5,  0,0 

<222> 

<  128> 

B200 

DATA 

15,  0,0 

<  103> 

<  104> 

8210 

DATA 

15,  -5,0 

<128> 

<  167> 

B220 

DATA 

5,  -5,0 

<243> 

<208> 

8230 

DATA 

20,-10,0 

<205> 

<  250  > 

8240 

DATA 

20 ,  0,0 

<  107> 

<  154> 

8250 

DATA 

20,  -5,0 

<  132> 

<035> 

8260 

DATA 

30,  0,0 

<  131  > 

<042> 

8900 

DATA 

1000,1000,1000 

<216> 

<226> 

<236> 

8910 

gnnn 

PPM 

<250  > 

9010 

REM 

PPM 

—  VERB I NDUNGSVOSCHR I FT  - 

VZlOo  / 

<  134> 

<246> 

<164> 

9030 

<  1 16> 

<  245 > 

<184> 

9040 

DATA 

1,  2,  2,  3,  3,  4,  4,  5 

<  055  > 

<  14B> 

9050 

DATA 

5,  6,  7,  B,  8,10,  9,11 

<  122> 

<  139> 

9060 

DATA 

12,13,  14,15,  15,16,  16,17 

<021  > 

<206> 

9070 

DATA 

17,18,  18,19,  20,21,  22,23 

<  243 > 

<062> 

9450 

DATA 

1000,1000 

<198> 

<059> 

9460 

: 

<036 > 

QCf'» 

PPM 

<211  > 
<  1B7> 

95i; 

9520 

9530 

REM  - 

PPM 

-  BEWEGUNGSVDSCHR IFT  - 

<231  > 

<  1 08  > 

S  X.07  / 

<143> 

<084> 

9531 

REM  XA,YA,ZA,WX,WY,WZ,XB,YB,ZB,E 

<060> 

<  170> 

9550 

DATA 

0,0,  1  ,0,0,0  ,0,0,  0  ,30 

<  043  > 

<024> 

9560 

DATA 

0,0,  0  ,0,5,0  ,0,0,  0  ,108 

<  185> 

<003> 

9570 

DATA 

0,0, -30  ,0,0,0  ,0,0, -30  ,1 

<233> 

<185> 

9580 

DATA 

0,0,  0  ,5,0,5  ,0,0, .81  ,36 

<  178> 

<228> 

9620 

DATA 

1000 

<  138> 

<135> 

6  64'er 

<251  > 

<039> 

<044> 

Listing  2.  » 

3D-Movie-Maker«  (Schluß) 

Programm 

:  trick.obj 

cOOO  c2a4 

cOeO 

e6 

8c 

ca 

dO 

f6 

60 

«5 

53 

09 

c  1  dB 
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B5 

60 

aS 

5f 
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61 
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84 

72 

cOeU 

: 

dO 

Oc 

e6 

53 

a9 

eO 

05 

fc 

94 
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3 

62 

84 

5f 

a5 

5c 

4a 

85 

59 

f  2 

cOf  0 

: 

a5 

53 

Bd 

00 

dd 

60 

c6 

53 

45 

cleB 

: 

a5 

5b 

6a 

05 

58 

4c 

5c 

c2 

65 

cOOO 

8 

20 

36 

cO 

20 

a4 

cO 

20 

98 

71 

cOfB 

: 

a9 

aO 

4c 

ee 

cO 

8a 

4a 

4a 

00 
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a5 

62 

30 

Ob 

1B 

65 

14 

BS 

3c 

cOOB 

I 

cO 

20 

e6 

cO 

c6 

4f 

dO 

<3 

bc 

clOO 

3 

29 

fe 

aB 

b9 

36 

cl 

B5 

fd 

Bd 
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8 

14 

90 

Od 

e6 

15 

dO 

09 

1B 
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1 

20 

7f 

cO 

c6 

52 

dO 

ec 

a9 

ab 
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8 

b9 

37 

cl 

85 

fe 

Ba 

29 

07 

75 
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65 

14 

B5 

14 

bO 

02 

c6 

15 

b4 
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37 

B5 

01 

SB 

a9 

00 

B5 

c6 

9b 

cl  10 

: 

1B 

65 

fd 

85 

fd 

a5 

14 

29 

ba 

c2oa 

: 

1B 

a5 

57 

65 

61 

B5 

57 

18 

45 

c020 

s 

a5 

c6 

f  0 

f  c 

c6 

c6 

a9 

lb 

B3 

cl  10 

3 

fB 

65 

fd 

B5 

fd 

a5 

fe 

65 

c7 
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a5 

58 

65 

Sa 

85 

5B 

a5 

59 

ea 

c028 

I 

Bd 

1 1 

dO 

a9 

15 

Bd 

18 

dO 

67 

cl20 

3 

fc 

65 

15 

85 

fe 

a5 

14 

29 

B5 

c218 

: 

69 

00 

B5 

59 

e6 

5d 

dO 

02 

ae 

c030 

: 

a9 

03 

Bd 

00 

dd 

60 

20 

fd 

lc 

C12B 

3 

07 

49 

07 

aa 

bd 

6B 

cl 

aO 

52 

c220 

e6 

5e 

•5 

59 

c5 

5c 

90 

34 

b4 

C038 

: 

ae 

20 

9e 

b7 

B6 

4e 

20 

fd 

ec 

cl30 

I 

00 

11 

fd 

91 

fd 

60 

00 

00 

4d 

c22B 

: 

dO 

06 

aS 

5b 

cS 

5B 

bO 

2c 

Oa 

c040 

5 

ae 

20 

9a 

b7 

86 

50 

20 

fd 

04 

c  1 3B 

8 

40 

01 

80 

02 

cO 

03 

00 

05 

B7 

c230 

38 

a5 

SB 

e5 

5b 

85 
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aS 

9c 

C04B 

8 

ae 

20 

9e 

b7 

86 

52 

a9 

3b 

bd 

cl40 

1 

40 

06 

80 

07 

cO 

OB 

00 

Oa 

e5 

C23B 

3 

59 

e5 

5c 

85 

59 

aS 

60 

30 

fO 

c050 

3 

Bd 

11 

dO 

a9 

3B 

Bd 

18 

dO 

Cl 

cl4B 

8 

40 

Ob 

BO 

Oc 

cO 

Od 

00 

Of 

42 

C240 

: 

Ob 

18 

65 

14 

85 

14 

90 

Od 

B9 

c05B 

3 

a9 

00 

Bd 

00 

dd 

20 

c2 

cO 

dO 

C150 

3 

40 

10 

BO 

1  1 

cO 

12 

00 

14 

9f 

c24B 

! 

e6 

15 

dO 

09 

1B 

65 

14 

85 

16 

c060 

3 

7B 

a9 

35 

85 

01 

a2 

Ob 

bd 

78 

cl5B 

8 

40 

15 

BO 

16 

cO 

17 

00 

19 

fd 

c250 

3 

14 

bO 

02 

c6 

15 

18 

a5 

57 

6d 

c06B 

8 

8c 

CO 

95 

aO 

ca 

10 

fB 

a2 

24 

cl60 

3 

40 

la 

BO 

Ib 

cO 

lc 

00 

le 

5a 

c25B 

: 

65 

5f 

B5 

57 

a6 

57 

20 

fd 

5b 

c070 

8 

20 

a9 

00 

a8 

20 

aO 

00 

a9 

d4 

C16B 

8 

01 

02 

04 

OB 

10 

20 

40 

BO 

71 

c260 

3 

cO 

a5 

5e 

c5 

5c 

90 

07 

a5 

f  5 

c07B 

: 

aO 

85 

■f  c 

,i9 

00 

B5 

53 

a9 

lc 

c  1 70 

: 

20 

71 

c2 

aO 

01 

84 

62 

84 

d4 

C26B 

: 

5b 

c5 

5d 

bO 

01 

60 

4c 

fO 

39 

cO0O 

3 

8b 

B5 

Be 

a9 

f  a 

85 

8d 

a5 

04 

C17B 

3 

Sf 

B4 

5d 

88 

84 

5e 

84 

61 

92 

c270 

cl 

aO 

05 

bl 

Bd 

B5 

14 

88 

5f 

cOBB 

3 

4e 

85 

4f 

60 

99 

00 

eO 

cB 

27 

clBO 

3 

84 

60 

BB 

a5 

59 

c5 

15 

90 

44 

c270 

2 

bi 

Bd 

10 

05 

68 

68 

4c 

97 

bf 

c090 

3 

dO 

f  a 

BÄ 

a2 

ca 

dO 

<5 

60 

b7 

clBB 

8 

OB 

dO 

1B 

a5 

5B 

c5 

14 

bO 

1B 

c280 

c2 

85 

15 

80 

bl 

Bd 

85 

57 

a7 

c09B 

3 

a5 

50 

85 

51 

20 

70 

cl 

c6 

Ob 

cl90 

8 

12 

38 

a5 

14 

e5 

58 

85 

5b 

98 

c2B8 

i 

80 

bl 

Bd 

85 

58 

88 

bl 

8d 

aQ 

cOaO 

8 

51 

dO 

<9 

60 

aO 

05 

bl 

Bd 

fB 

C19B 

a5 

15 

e5 

59 

B5 

5c 

84 

62 

7e 

C290 

• 

85 

59 

BB 

bl 

0d 

B5 

ff 

38 

90 

cOaB 

8 

aa 

B8 

bl 

8d 

05 

fc 

85 

a2 

4B 

claO 

3 

4c 

bO 

cl 

3B 

a5 

5B 

e5 

14 

99 

C29B 

• 

a5 

Bd 

•9 

06 

B5 

8d 

bO 

02 

ca 

cObO 

3 

3B 

a5 

Bd 

e9 

02 

B5 

Bd 

bO 

3f 

claB 

8 

85 

5b 

a5 

59 

e5 

15 

85 

5c 

45 

c2a0 

3 

c6 

8e 

60 

20 

Of 

c9 

Oe 

dO 

e3 

cObB 

3 

02 

c6 

8e 

a  9 

00 

a8 

20 

aO 

f  d 

clbO 

: 

a5 

ff 

c5 

57 

bO 

Oc 

3B 

a5 

49 

cOcO 

3 

00 

60 

a9 

10 

aO 

cc 

84 

Bc 

fB 

clbB 

: 

57 

e5 

ft 

B5 

5a 

B4 

5f 

4c 

92 

Listina  1 

.  Die  Maschinenroutine 

cOcB 

3 

aO 

00 

84 

Bb 

20 

d9 

cO 

aO 

10 

clcO 

: 

c6 

cl 

e5 

57 

85 

5a 

a5 

5c 

46 

cOdO 

: 

8c 

84 

Bc 

aO 

00 

20 

d9 

cO 

bf 

clcB 

dO 

19 

a5 

5b 

c5 

5a 

bO 

13 

12 

ZU 

>3ü-iviovie-iviaKer«. 

cOdB 

60 

a2 

04 

91 

Bb 

cB 

dO 

fb 

f  7 

cldO 

: 

a6 

5a 

85 

5a 

B6 

5b 

a5 

62 

ef 

Bitte  mit  dem  MSE  eingeben 
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C  64 


Hilfsprogramm 


Verbotene 

Variablen 

Hatten  Sie  schon  Probleme  mit  dem 
SYNTAX  ERROR  in  anscheinend  kor¬ 
rekten  Basic-Zeilen?  Wahrscheinlich 
lag  es  an  verbotenen  Variablen,  die 
hier  näher  erklärt  werden.  Außerdem 
zeigen  wir  Ihnen,  wie  Sie  Basic-Pro- 
gramme  strukturieren  können. 


Da  das  Beispielprogramm  klein  ist,  wird  noch  keine  Struktu¬ 
rierung  sinnvoll.  Stellen  Sie  sich  aber  vor,  es  wäre  ein  Pro¬ 
gramm  mit  50  und  mehr  Zeilen,  mit  einer  Menge  von  GOTOs, 
GOSUBs  und  FOR-NEXT-Schleifen.  In  diesem  Fall  wird  ein 
herkömmliches  Listing  von  Zeile  zu  Zeile  unübersichtlicher. 

Eine  einfache,  aber  recht  wirkungsvolle  Möglichkeit,  ein  Li¬ 
sting  »durchsichtig«  zu  machen,  ist  das  Einrücken  der  Pro¬ 
grammzeilen  innerhalb  einer  Schleife.  Das  Einrücken  ge¬ 
schieht  meist  durch  die  Voreinstellung  eines  oder  mehrerer 
Doppelpunkte  am  Anfang  einer  Zeile  in  Verbindung  mit  einer 
Reihe  von  Leerzeichen. 

Es  geht  aber  auch  anders.  Geben  Sie  dazu  die  Zeile  20  neu 
ein: 

20  (SHIFT-J)  [4* Leertaste!  PRINTTEST” 

Wenn  Sie  nun  das  kleine  Programm  listen,  ist  etwas  Erstaun¬ 
liches  passiert: 


10  FOR  1=1  TO  20 


Wer  jemals  versucht  hat,  fremde  Basic-Programme  zu  ver¬ 
stehen  und  dem  Gedankengang  des  Autors  zu  folgen,  der  hat 
sich  bestimmt  des  öfteren  darüber  geärgert,  daß  Basic  leider 
allzuoft  in  einem  Spaghetticode  ausartet.  Sogar  der  Autor  ei¬ 
nes  Programms  findet  sich,  wenn  er  nicht  ’zig  REM-Zeilen  ein¬ 
gearbeitet  hat,  nach  einigen  Monaten  nicht  mehr  mit  dem  eige¬ 
nen  Programm  zurecht.  Das  sind  dann  die  Momente,  wo  man  in 
Richtung  Pascal  oder  all  den  anderen  strukturierten  Program¬ 
miersprachen  schielt. 

Der  vorliegende  Artikel  wendet  sich  an  alle,  die  nach  einer 
Möglichkeit  suchen,  mit  dem  vorhandenen  (zugegebenerma¬ 
ßen  mageren)  Basic  des  C  64  trotzdem  ihre  Listings  etwas 
übersichtlicher  zu  gestalten  und  ihnen  eine  Struktur  zu  verlei¬ 
hen.  6*eR 


Übersichtliche  Listings 


Einige  Basic-Programmierer  benutzen  zur  Strukturierung  ih¬ 
rer  Programme  entweder  REMs  oder  einfach  nur  den  Doppel¬ 
punkt.  Damit  können  einzelne  Programmteile  beim  Listing  op¬ 
tisch  voneinander  getrennt  werden.  Eine  bessere  Lesbarkeit 
wird  erzielt.  Eine  andere  Möglichkeit  zur  Strukturierung  bieten 
die  Grafikzeichen  des  C  64. 

Nun,  werden  Sie  sich  fragen,  was  denn  so  besonderes  daran 
sei,  Grafikzeichen  in  Programmen  zu  verwenden.  Man  sieht  sie 
doch  alle  Tage  in  Listings.  Der  Witz  dieser  Lösung  zur  opti¬ 
schen  Aufbereitung  von  Listings  ist,  daß  die  verwendeten  Gra¬ 
fikzeichen  unsichtbar  bleiben,  aber  die  Lesbarkeit  der  Pro¬ 
gramme  sichtbar  unterstützen. 

Um  diesen  scheinbaren  Widerspruch  aufzulösen,  ist  es  not¬ 
wendig,  sieh  ein  wenig  mit  der  Art  und  Weise  zu  beschäftigen, 
wie  der  Basic-Interpreter  Programmzeilen  im  Basic-Speicher 
ab  $0801  (dezimal  2049)  ablegt. 

Schauen  Sie  sich  dazu  einmal  das  kleine  Beispielprogramm 
an. 


10  FOR  1  =  0  TO  20 
20  PRINTTEST" 

30  NEXT 


Mit  einem  Monitor  erhalten  Sie  den  folgenden  Speicheraus¬ 
zug: 


0800 

00 

10 

08 

OA 

00 

81 

20 

49 

0808 

B2 

31 

20 

A4 

20 

32 

30 

00 

0810 

IC 

08 

14 

00 

99 

22 

54 

45 

0818 

53 

54 

22 

00 

22 

08 

IE 

00 

0820 

82 

00 

00 

00 

10  FOR  1=1  TO  20 
20  PRINT’TEST" 
30  NEXT 


Das  bei  der  Eingabe  sichtbare  Grafikzeichen  ist  unsichtbar 
geworden,  der  PRINT-Befehl  aber  ist  wie  bei  der  Eingabe  um 
vier  Leerzeichen  (plus  ein  erzwungenes  Leerzeichen  nach  der 
Zeilennummer)  nach  rechts  gerückt  worden.  Wenn  Sie  das 
gleiche  durch  Eingabe  von  vier  Leerschritten  unmittelbar  nach 
der  Zeilennummer  versucht  hätten,  so  wäre  der  Versuch  fehl¬ 
geschlagen. 

Der  Interpreter  ignoriert  nämlich  alle  Leerzeichen,  die  der 
Programmierer  nach  der  Zeilennummer  eingibt;  vielmehr  wirft 
er  diese  olle  weg,  bis  er  auf  die  erste  Basic-Aweisung  oder  ei¬ 
nem  Doppelpunkt  in  der  betreffenden  Zeile  trifft.  Andererseits 
besteht  er  auf  genau  einem  Leerzeichen  unmittelbar  nach  der 
Zeilennummer,  das  er  eventuell  selbst  einfügt. 

Aber  was  ist  durch  das  Grafikzeichen  im  Speicher  passiert? 
Einen  Speicherauszug  liefert  das  folgende  Bild: 


0800 

00 

10 

08 

OA 

00 

81 

20 

49 

0808 

B2 

31 

20 

A4 

20 

32 

30 

00 

0810 

20 

08 

14 

00 

20 

20 

20 

20 

0818 

99 

22 

54 

45 

53 

54 

22 

00 

0820 

26 

08 

IE 

00 

82 

00 

00 

00 

Die  Interessantesten  Speicherstellen  beginnen  ab  $0810, 
wo  sich  gegenüber  unserem  vorangehenden  Beispiel  etwas 
geändert  hat.  Wir  sehen  in  $08 1 0  und  $0811  den  Zeiger  (hier 
20  08  =  $0820)  auf  den  Anfang  der  nächsten  Basic-Zeile. 
Die  folgenden  Hex-Zeichen  14  00  ergeben  in  Low-/High-Byte- 
Darstellung  die  Zeilennummer  20.  Dann  folgen  die  vier  einge¬ 
fügten  Leerzeichen  ($20)  und  erst  danach  das  Token  99  (in¬ 
terne  Abkürzung  des  Interpreters)  für  den  PRINT-Befehl.  Die 
folgenden  Zeichen  sind  dann,  jeweils  um  vier  Speicherstellen 
verschoben,  mit  den  Zeichen  aus  dem  vorangehenden  Bei¬ 
spiel  identisch. 

Wenn  Sie  nun  spaßeshalber  den  Cursor  nochmals  auf  die 
Zeile  20  des  Programmes  fahren  und  die  RETURN-Taste 
drücken,  schaut  die  Zeile  20  nach  erneutem  Listen  wieder  so 
aus,  wie  ohne  Benutzung  des  »Grafikzeichen-Tricks«.  Das  ge¬ 
schieht,  weil  der  C  64  einen  bildschirmorientierten  Editor  be¬ 
sitzt,  der  in  letzterem  Fall  nicht  unterscheidet,  ob  die  Zeile  20 
neu  eingetippt  oder  »vom  Bildschirm  übernommen«  wird. 

Mit  dem  Eingeben  eines  Grafikzeichens  unmittelbar  nach 
der  Zeilennummer  übertölpeln  Sie  den  Interpreter,  der  diese 
Art  von  Zeichen  an  dieser  Stelle  nicht  erwartet  hätte.  Vor  lauter 
Staunen  »vergißt«  er  dann  die  eingegebenen  Leerzeichen  zu 
ignorieren,  wie  es  sonst  seine  Art  ist. 
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C  64 


Verwendung  von 
»verbotenen«  Variablen 

Hand  aufs  Herz!  Ist  es  Ihnen  nicht  auch  schon  einmal  pas¬ 
siert,  daß  Sie  ein  Programm  geschrieben  haben  und  der  Les¬ 
barkeit  halber  leicht  merkbare  und  selbsterklärende  Variablen¬ 
namen  verwendeten.  Beim  ersten  Testlauf  stieg  der  C  64  dann 
mit  der  Fehlermeldung  SYNTAX  ERROR  aus  und  Sie  in  die 
Fehlersuche  ein. 

Meist  dauert  es  dann  ein  wenig,  bis  man  den  Fehler  erkennt 
und  beispielsweise  einen  Variablennamen  wie  SCHIFF  als  den 
Übeltäter  entlarvt.  SCHIFF  ist  ein  verbotener  Name  für  eine 
Variable,  da  der  Name  eine  Basic-Anweisung  (IF)  enthält.  Stößt 
der  Interpreter  auf  einen  solchen  Namen,  so  ist  er  irritiert,  mel¬ 
det  einen  Fehler  und  beendet  einfach  seine  Arbeit. 

Schauen  Sie  sich  anhand  eines  kleinen  Beispiels  einmal  die 
Arbeitsweise  des  Interpreters  an. 


10  SCHIFF$="TITANIC" 
20  PRINT  SCHIFFS 


Wenn  Sie  das  Programm  starten,  so  geht  das  Programm 
ebenso  unter  wie  das  besagte  Schiff.  Ein  Monitorlisting  schafft 
Klarheit: 


0800 

00 

16 

08 

OA 

00 

53 

43 

48 

0808 

8B 

46 

24 

B2 

22 

54 

49 

54 

0810 

41 

4E 

49 

43 

22 

00 

23 

08 

0818 

14 

00 

99 

20 

53 

43 

48 

8B 

0820 

46 

24 

00 

00 

00 

G4W  Qf 

Genauer  die  Speicherzelle  $0808  (beziehungsweise 
$081 F).  Der  C  64  übernimmt  eine  Programmzeile  erst  in  sei¬ 
nen  Programmspeicher,  nachdem  man  die  RETURN-Taste  ge¬ 
drückt  hat.  Dann  wird  vom  Betriebssystem  die  eingegebene 
Zeile  Zeichen  für  Zeichen  vom  Bildschirm  übernommen.  Der 
Interpreter  hat  also  beim  Eingeben  des  oben  angeführten  Pro¬ 
gramms  die  Zeichenfolge  SCHIFFS  ASCII-Zeichen  für  Zei¬ 
chen  in  die  Zellen  ab  $0805  eingeschrieben,  bis  er  auf  die  für 
ihn  bekannte  Zeichenfolge  IF  traf.  Folgerichtig  schrieb  er  für  IF 
das  Token  $8B  ein  und  übernahm  den  Rest  der  Zeile  wie  ge¬ 
wohnt.  Beim  Abarbeiten  des  Programms  versucht  der  Inter¬ 
preter,  die  im  Programmspeicher  Vorgefundenen  Zeichen  wie¬ 
der  seriell  zu  lesen  und  die  einzelnen  Befehle  abzuarbeiten. 

Dies  mißlingt  aber  bereits  in  der  ersten  Zeile,  weil  er  die  Fol¬ 
ge  (ASCII)SCH(BASIC)IF(ASCII)F$  nicht  zu  interpretieren  ver¬ 
mag.  Weil  der  Interpeter  in  diesen  Fällen  so  unnachgiebig  ist, 
sind  also  alle  Variablennamen  verboten,  die  Basic-Wörter  ent¬ 
halten  (zum  Beispiel  OR  oder  TAN). 

Beispiele  für  verbotene  Namen  sind  also:  TANNE,  LANDS, 
ORTS,  START,  um  nur  einige  zu  nennen.  Wie  man  an  der  klei¬ 
nen  Aufzählung  erkennt,  muß  man  ziemlich  aufpassen,  um 
nicht  wieder  vom  »SYNTAX-TERROR«  erwischt  zu  werden. 

Die  Lesbarkeit  von  Programmen  leidet  schon  ein  wenig  un¬ 
ter  dieser  Einschränkung,  da  man  sehr  oft  auf  unverständli¬ 
chere  und  weniger  selbsterklärende  Variablennamen  auswei- 
chen  muß.  Mit  Hilfe  eines  kleinen  Tricks  läßt  sich  der  Interpre¬ 
ter  aber  so  »über’s  Ohr  hauen«,  daß  er  verbotene  Variablenna¬ 
men  akzeptiert  und  dem  Programmierer  quasi  freie  Auswahl 
für  seine  Variablennamen  gibt. 

Wer  aufmerksam  den  ersten  Teil  dieses  Artikels  gelesen  hat, 
kann  sich  vielleicht  schon  denken,  wie  dieser  Trick  funktio¬ 
niert.  Richtig,  es  werden  wieder  die  Grafikzeichen  an  den  ent¬ 
sprechenden  Stellen  eingesetzt,  um  den  Interpreter  von  unse¬ 
ren  Absichten  zu  überzeugen. 


Geben  Sie  also  ein: 


10  SCHI|SHIFTJjF$="TITANIC" 

20  PRINT  SCHI|SHIFT-JJFF$ 

Ein  RUN  bestätigt,  daß  unser  Schiff  soeben  auf  den  Namen 
TITANIC  getauft  wurde  und  die  SYNTAX-ERROR-Meldung  des 
C  64  ausbleibt.  Der  Monitor  zeigt,  was  mit  dem  Programm,  das 
sich  beim  Listen  äußerlich  in  nichts  vom  vorstehenden  Bei¬ 
spiel  unterscheidet,  geschehen  ist. 


0800 

00 

17 

08 

OA 

00 

53 

43 

48 

0808 

49 

46 

46 

24 

B2 

22 

54 

49 

0810 

54 

41 

4E 

49 

43 

22 

00 

25 

0818 

08 

14 

00 

99 

20 

53 

43 

48 

0820 

49 

46 

46 

24 

00 

00 

00 

Ein  Blick  auf  die  Speicherstellen  ab  $0808  und  $0820 
zeigt,  daß  der  Interpreter  sich  überlisten  ließ  und  SCHIFF$  als 
sieben  ASCII-Zeichen  gespeichert  hat.  So  kann  er  das  Pro¬ 
gramm  auch  ausführen,  weil  er  nicht  mehr  durch  das  Basic- 
Token  IF  verwirrt  wird. 

Das  Drücken  der  RETURN-Taste  bewirkt,  daß  der  Interpreter 
jedes  einzelne  Zeichen  der  aktuellen  Programmzeile  über¬ 
nimmt  und  auf  Zeichenfolgen  achtet,  die  ihm  als  Basic- 
Anweisungen  oder  -Funktionen  bekannt  sind.  Letztere  würde 
er  als  Token  abspeichern.  Nachdem  er  die  Zeichenfolge  SCH 
gelesen  hat,  hat  er  bereits  eine  Menge  Arbeit  hinter  sich  ge¬ 
bracht. 

Die  Folge  SC  kennt  er  nicht,  wohl  aber  die  Folge  CH.  Als 
näcii-:  e  Zeichen  könnten  R  und  $  dann  CHR$  ergeben,  was 
als  Token  $C7  abgespeichert  würde.  Aber  da  er  ein  I  als  näch¬ 
stes  Zeichen  liest,  sagt  er  sich,  vergessen  wir  die  vorangehen¬ 
de  Zeichenfolge  und  legen  diese  als  ASCII-Code  im  Speicher 
ab.  Bei  I  allerdings  hat  der  Interpreter  wieder  seine  Ohren  ge¬ 
spitzt,  denn  dies  könnte  der  Anfang  von  IF  (Token  $8B)  oder 
auch  INPUT  (Token  $85),  INPUT#  (Token  $84)  oder  INT  (To¬ 
ken  $B5)  sein. 

Der  Trick  besteht  darin,  an  geeigneter  Stelle  innerhalb  des 
verbotenen  Variablennamens  ein  Grafikzeichen  einzugeben, 
um  die  Zeichenfolge  so  aufzutrennen,  daß  der  Interpreter  kein 
Basic-Wort  (Token)  erkennen  kann. 

Bei  der  Benutzung  dieses  Tricks  ist  streng  zu  beachten,  daß 
jeder  Variablenname  genau  gleich  eingegeben  wird,  damit  die 

Abspeicherung  überall  gleich  ist,  wenn  ein-  und  dieselbe  Va¬ 
riable  mehrmals  in  einem  Programm  benutzt  wird.  Natürlich  gilt 
trotz  Benutzung  des  Tricks  mit  dem  Grafikzeichen  weiterhin, 
daß  der  C  64  nur  die  ersten  beiden  Zeichen  eines  Variablenna¬ 
mens  auswertet.  Deshalb  ist  die  Benutzung  von  TONNE  und 
TORTE  im  gleichen  Programm  trotz  Eingabe  mit  unserem  Trick 
nicht  eindeutig  und  kann  zu  Problemen  führen.  Weiterhin  ist 
bei  zeitkritischen  Programmen  die  Verwendung  einstelliger 
Variablennamen  günstiger.  Wie  weit  allerdings  die  Verwen¬ 
dung  von  verbotenen  Variablen  sinnvoll  ist,  bleibt  Ihnen  über¬ 
lassen.  War  nun  das  »GOTO«  ein  Befehl  oder  eine  Variable?  Ei¬ 
ne  Frage,  die  sich  häufiger  stellen  wird,  beim  sorglosen  Um¬ 
gang  mit  verbotenen  Variablen.  Denkbar  ist  auch,  mit  den  »ver¬ 
botenen  Variablen«  ein  Listing  nahezu  unlesbar  zu  gestalten 
(IF  GOTO=1  THEN  GOTO  THEN,  etc.),  obwohl  es  optisch 
wunderbar  strukturiert  aussieht.  Zum  Schluß  noch  eine  Bitte 
der  Redaktion.  Schicken  Sie  uns  keine  derart  manipulierten  Li- 
stings.  Es  kennt  schließlich  nicht  jeder  den  Trick  mit  den  Grafik¬ 
zeichen. 


(Dipl.-Ing.  Raimund  Trierscheid/hm) 
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C  64 


Exsort  — 
Sortieren  mit 
Komfort 

Mit  Exsort  werden  sowohl  numerische 
als  auch  alphanumerische  Felder  auf- 
oder  und  absteigend  sehr  schnell  sor¬ 
tiert.  Ein  weiterer  Clou:  Ein  zweites 
Feld  kann  abhängig  vom  ersten  Feld 
mitsortiert  werden. 

Jeder  Programmierer  ärgert  sich  irgendwann  einmal  über 
das  langsame  Basic,  das  vor  allem  beim  Suchen  und  Sortieren 
stört.  Gute  Sortierroutinen,  in  Assembler  geschrieben,  kann 
nicht  jeder  entwickeln.  Viele  Sort-Programme  sind  aber  auch 
sehr  einseitig:  Entweder  sortieren  sie  nur  aufsteigend  oder  le¬ 
diglich  alphanumerische  Felder.  Exsort  kann  beides  und  noch 
mehr. 

Vorteile: 

■  Zirka  zehnmal  so  schnell  wie  die  schnellste  Basic-Version. 

■  Die  Befehle  können  in  jedem  Basic-Programm  angewendet 
werden. 

■  Unterprogramme  in  Basic,  die  oft  nur  ein  bestimmtes  Feld  in 
einer  Richtung  sortieren  können,  entfallen. 

■  Die  Erweiterung  belegt  keinen  Basic-Speicher. 

■  Beim  Sortieren  von  Strings  kommt  es  nicht  zu  einer  zeitrau¬ 
benden  Garbage-Collection,  da  die  Descriptoren  vertauscht 
werden. 

■  Ein  zweites  Feld,  das  Informationen  über  das  erste  Feld  ent¬ 
hält,  kann  mitsortiert  werden. 

■  Das  zu  sortierende  Feld  kann  numerisch  oder  alphanume¬ 
risch  sein. 

Nachteile: 

—  Es  kann  nicht  mit  Exbasic  oder  Simons  Basic  zusammen  ge¬ 
nutzt  werden. 

—  Es  kann  nicht  compiliert  werden. 


Sortierbefehle 


1.  Befehl  »so« 

Syntax:  so,  (feldname),  (anfangsindex),  (endindex),  (sortie- 
rungsrichtung) 

Dieser  Befehl  sortiert  ein  beliebiges  eindimensionales  Feld 
innerhalb  von  zwei  Grenzen  mit  einer  vom  Benutzer  gewählten 
Sortierungsrichtung. 

Beispiel  1: 

Das  Feld  heißt  ax$,  alphanumerisch  aufsteigend  sortieren 
(von  Index  100  bis  Index  5000). 


Befehl:  so, ax$, 100,5000,1  (1=aufsteigend) 

Beispiel  2: 

Das  Feld  heißt  qe%,  numerisch  absteigend  sortieren  (von  In¬ 
dex  0  bis  zu  dem  Index,  der  in  der  Variable  »en«  enthalten  ist). 
Befehl:  so,qe%,0,en,0  (0=absteigend) 

Option:  Manchmal  ist  es  notwendig,  daß  Daten,  die  in  einem 
zweiten  Feld  vorhanden  sind,  entsprechend  dem  ersten  Feld 
sortiert  werden. 

Syntax:  so, (feldname  1),  (anfangsindex),  (endindex),  (sor- 
tierungsrichtung),  (feldname2) 

Beispiel:  Das  Feld  fe$  soll  alphanumerisch  aufsteigend  von  In¬ 
dex  0  bis  Index  10  sortiert  werden.  Die  Daten  in  dem  Realfeld 
»nr«  sollen  entsprechend  dem  ersten  Feld  sortiert  werden. 
Befehl:  so,fe$,0,10,1,nr 

2.  Befehl:  »se« 

Syntax:  se, (feldname), (anfangsindex), (endindex), (element) 
Dieser  Befehl  durchsucht  ein  beliebiges  eindimensionales 
Feld  innerhalb  von  zwei  Grenzen  nach  einem  Element. 
Beispiel:  Es  soll  die  Zahl  -  12  in  dem  Feld  rt%  von  Index  0  bis 
Index  100  gesucht  werden. 

Befehl:  se,rt%,0,100,  -  12 

Wenn  das  Element  gefunden  wird,  enthält  die  Variable  »in« 
den  jeweiligen  Index.  Wird  das  Element  nicht  gefunden,  so 
enthält  »in«  den  Wert  —1 . 

Fehlermeldungen: 

■  type  mismatch:  Sie  versuchten,  einen  String  in  einem  nume¬ 
rischen  Feld  zu  suchen  (oder  umgekehrt). 

■  wrong  index:  Beim  Suchen  war  der  Anfangsindex  größer  als 
der  Endindex. 

■  bad  subscript:  Index  außerhalb  des  zulässigen  Bereiches. 

■  only  one  dimension  array:  Sie  können  nur  eindimensionale 
Feiu-  durchsuchen  oder  sortieren. 

■  array  not  found:  Das  Feld  war  nicht  durch  einen  DIM-Befehl 
dimensioniert  worden. 

■  wrong  array  name:  Geben  Sie  bitte  nur  die  ersten  beiden 
Buchstaben  des  Feldnamen  ein  (plus  %  oder  $  wenn  nötig). 
Es  wird  dann  sicher  funktionieren. 

■  wrong  sorting  direction  error:  Sie  haben  einen  anderen  Wert 
als  0  oder  1  als  Sortierungsrichtung  angegeben. 

Zu  den  Programmen: 

Listing  1 

Das  Programm  »Exsort«  geben  Sie  bitte  mit  dem  MSE  ein. 
Beachten  Sie  dazu  die  Eingabegehinweise  auf  Seite  18. 
Listing  2 

Das  Programm  »Exsort  demo«  lädt  das  Absolutprogramm 
»Exsort«  nach  und  startet  es.  Danach  folgt  eine  Demonstration 
der  beiden  Befehle. 

Um  »Exsort«  zu  laden,  muß  Zeile  0  des  Basic-Programms 
lauten: 

0  if  k=0  then  k=1  :  load”exsort.”,8,1  (für  Diskette) 

0  if  k=0  then  k=1  :  load"exsort.”,1,1  (für  Kassette) 

In  Zeile  1  muß  stehen: 

1  sys  49400 

Da  die  Erweiterung  nur  einmal  geladen  und  gestartet  wer¬ 
den  muß,  kann  sie  bei  späteren  Starts  des  Programms  über¬ 
sprungen  werden.  (Marcus  Rickert/gk) 


0  IF  K=0  THEN  K=1 : LOAD "EXSORT?" ,  B  ,  1 : REM  LA 


DEN  VON  EXSORT  <095> 
1  SYS  49400: REM  STARTEN  VON  EXSORT  <051 > 
100  REM  ***********************  <241 > 
110  REM  ***  EXSORT  DEMD  ***  <073> 
120  REM  ***********************  <005> 
130  REM  <192> 
140  REM  ******************  <183> 
150  REM  *  1. BEFEHL:  "SO"  *  <090> 
160  REM  ******************  <203> 
165  PRINT" CCLR>£RSTER  ÜEFEHL:  'SO’"  <110> 
170  INPUT" {DOWN JZAHL  DER  ZU  SORTIERENDEN  £ 

LEMENTE" ; A  <227> 


175  PRINT" <DOWN>flNFUELLEN  DES  EELDES  'ZA' 


MIT  ZUFALLS- {4SPACEJZAHLEN"  <101> 
180  DIM  ZA  < A)  < 157> 
190  REM  ***  DAS  FELD  ZA  WIRD  MIT  ZUFALLSZA 

HLEN  BELEBT  ***  <109> 
200  FOR  S=1  TO  A  <130> 
210  :ZA<S>=RND<1 >*10000-5000  <020> 
220  NEXT  S  < 12B> 
230  IT=TI : REM  ZEIT  SPEICHERN  <224> 
240  PRINT" {DOWNJSORTIERBEGINN"  <046> 
250  REM  <056> 
260  REM  ***  AUFRUF  DES  BEFEHLS  "SO"  ***  <125> 
270  SO, ZA, 1  ,  A  ,  1  <076> 
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280 

REM  SO  =  BEFEHL 

<018> 

750  PRINT  IN,: GOTO  630 

<  1  B5> 

290 

REM  ZA  =  FELDNAME 

<180 

760  PRINT: PRINT" <DOWN>JEIT: " (TI-IT) /60"SEC 

300 

REM  1  =  ANFANGS INDEX 

<  1 62  > 

„ 

[AA  1  S 

310 

REM  A  =  ENDINDEX 

<0B5> 

770  PRINT" <DOWNTBITTE  IASTE  DRUECKEN" 

<236> 

320 

REM  1  =  SORTIERUNGSRICHTUNG (AUF 

780  GET  T*:IF  T *=" “THEN  780 

<  1 19> 

STEIGEND) 

<09B> 

790  REM 

<090> 

330 

REM 

<  13B> 

800  REM  **************************** 

<249> 

340 

IT-TI-IT 

<234> 

810  REM  *  1. BEFEHL  "SO'  MIT  OPTION  * 

<050> 

350 

PRINT" {DOWNTJPRT IERENDE" 

<221  > 

820  REM  *»»*#»**»# •****»»•***#*****-*»* 

<049> 

335 

FOR  S=1  TO  1000: NEXT  S 

<202> 

830  REM 

<  1 30  > 

360 

REM  ***  AUSGABE  DER  SORTIERTEN  ELEMENT 

835  PRINT" <CLR>£RSTER  JEFEHL  MIT  OPTION" 

<  147> 

E  *** 

<068> 

840  DATA  NULL, ZWEI .VIER, SECHS, ACHT, ZEHN, EI 

370 

FOR  S=1  TO  A 

<046> 

NS , DRE I , FUENF , SIEBEN, NEUN 

<044> 

380 

: PRINT  S,  TAB (6) ZA <S) 

<10B> 

850  DATA  0,2,4,6,8,10,1,3,5,7,9 

<209> 

390 

NEXT  S 

<044  > 

860  CLR: DIM  NR ( 10 ) , NR* ( 10) 

<14B> 

400 

PR I NT " (DOWN ) IE 1 T : " I  T/60 " SEC " 

<  1 88  > 

870  REM  «*  EINLESEN  IN  FELD  NR*  ** 

<  1 18> 

410 

PRINT" (DOWN JBITTE  IASTE  DRUECKEN" 

<12B> 

880  FOR  S=0  TO  10 

<056> 

420 

GET  T*: IF  T*=""THEN  420 

<04  0 

890  : READ  X4:NR*(S)=X* 

<070> 

430 

REM 

<23S> 

900  NEXT  S 

<046> 

440 

REM  ****************** 

<229> 

910  REM  **  EINLESEN  IN  FELD  NR  ** 

<074  > 

450 

REM  *  2. BEFEHL:  "SE"  * 

<147> 

920  FOR  S=0  TO  10 

<096> 

460 

REM  »»**»**»***#***»** 

<249> 

930  : READ  X:NR(S)=X 

<224  > 

470 

REM 

<022> 

940  NEXT  S 

<0B6> 

480 

CLR: DIM  FE*(10000> 

<214> 

950  REM  **  AUSGABE  FELD  VOR  SORTIERUNG  ** 

<017> 

4B5 

PRINT" ICLR JZWEITER  JEFEHL  'SE'" 

<222> 

960  PRINT" tDOWNJJNDEX  NR*  VORHER  NR  *  NR* 

490 

REM  **  IN  50  BELIEBIGE  ELEMENTE  *« 

<  162> 

NACHHER  NR" 

<023> 

500 

REM  «*  DES  FELDES  FE*  WIRD  DAS  ** 

<  137> 

970  FOR  S=0  TO  10 

<  146> 

510 

REM  **  WORT  "HALLO"  GESCHRIEBEN  ** 

<253> 

980  : PRINT  S; TAB (6) NR* (S) TAB ( 16) NR (S) 

<16B> 

520 

REM 

<074> 

990  NEXT  S 

<  136> 

525 

PRINT" CDOWNIJM  50  BELIEBIGE  ELEMENTE  V 

1000  REM  **  AUFRUF  DES  BEFEHL  "SO"  MIT  OPT 

ON  FE*  WIRD (3SPACE } ’ HALLO '  GESCHRIEBEN 

ION  ** 

<037> 

" 

<  12B> 

1010  SO, NR*, 0,10,0, NR 

<081  > 

530 

FOR  S=1  TO  50 

<250> 

1020  REM  SO  =  BEFEHL 

<250> 

540 

: FE* ( RND  < 1 ) *  1 0000 ) = " HALLO " 

<15B> 

1030  REM  NR*  =  FELDNAME  1 

<223> 

550 

NEXT  S 

<206> 

1040  REM  0  =  ANFANGSINDEX 

<132> 

560 

PRINT" CDOWN1JN  FOLGENDEM  ELEMENTEN  STE 

1050  REM  10  =  ENDINDEX 

<155> 

HT  •HALLO:" 

<  155> 

1060  REM  0  =  SORT I ERUNGSR I CHUTNG  ( ABST 

570 

REM 

<I24> 

EIGEND) 

<251  > 

580 

REM  **  AUSDRUCKEN  JEDES  INDEXES  *» 

<184> 

1070  REM  NR  =  FELDNAME  2 

<  004  > 

590 

REM  **  IN  DEM  "HALLO"  STEHT  ** 

<080 

1080  REM 

<126> 

600 

REM 

<  154> 

1090  PRINT" {DOWNJ SORTIEREN  VON  NR*  ABSTEIG 

610 

IN=— 1 : IT=TI 

<247> 

E"'- 

<23B> 

620 

REM  *»  AUFRUF  DES  BEFEHLS  "SE"  ** 

<200> 

1095  PRINT" CDOWNJNR  WIRD  ENTSPRECHEND  MITS 

630 

SE , FE* , I N+ 1 , 1 0000 , "HALLO " 

<234> 

ORTIERT" 

<077> 

640 

REM  SE  =  BEFEHL 

<220> 

1097  PRINT" {DOWN 5BITTE  IASTE  DRUECKEN" 

<053> 

650 

REM  FE*  =  FELDNAME 

<  182> 

109B  GET  T*: IF  T*=" "THEN  1098 

<  177> 

660 

REM  IN+1  =  ANFANGSINDEX 

<068> 

1100  REM  *.*  AUSGABE  FELD  NACH  SORTIERUNG  * 

670 

REM  10000  =  ENDINDEX 

<032> 

* 

<020> 

680 

REM  "HALLO"  =  ELEMENT 

<232> 

1110  PRINT" <HOME, 3D0WN>“j 

<  140> 

690 

REM  **  BEI  RUECKKEHR  AUS  "SE"  ** 

<016> 

1120  FOR  S=0  TO  10 

<042> 

700 

REM  *«  ENTHAELT  "IN“  DEN  INDEX  ** 

<046> 

1130  : PRINT  TAB (22) NR* (S) TAB (33) NR (S> 

<234> 

710 

REM  **  ODER  (WENN  DAS  ELEMENT  ** 

<013> 

1140  NEXT  S 

<032> 

720 

REM  *»  NICHT  GEFUNDEN  WURDE)  ** 

<179> 

1150  PRINT“  {6D0WN>" 

<  183> 

730 

REM  **  DEN  WERT  -I  ** 

<  1 14> 

740 

IF  IN=-1  OR  IN= 10000  THEN  760 

<  120> 
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Listing  1.  »Exsort.demo«.  (Schluß)  Bitte  beachten  Sie  die  Hinweise  zum  Abtippen  auf  Seite  16. 
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ex  sort . 

c0f8  c6ac 

clcB. 

. 

a2 

10 

aO 

12 

20 

2a 

c5 

Be 

64 

c2a8 

3 

Oc 

20 

e3 

c4 

a2 

Oe 

20 

dl 

14 

cldO 

3 

14 

cO 

Bc 

15 

cO 

a2 

14 

aO 

bd 

c2b0 

3 

c4 

a2 

Oe 

aO 

Oc 

20 

9a 

c4 

13 

cOfB 

: 

a9 

03 

8d 

08 

03 

a9 

cl 

8d 

27 

cldB 

8 

f  6 

20 

9a 

c4 

fO 

db 

30 

d9 

BO 

c2b8 

3 

30 

03 

4c 

fb 

cl 

a2 

Oe 

aO 

a7 

clOO 

: 

09 

03 

60 

aO 

01 

bl 

7a 

c9 

d2 

cleO 

s 

ad 

10 

cO 

Bd 

Oc 

cO 

ad 

11 

17 

c2c0 

3 

10 

20 

2a 

c5 

8e 

14 

cO 

Bc 

c9 

cl08 

: 

53 

fO 

03 

4c 

e4 

a7 

c8 

bl 

30 

c  leB 

: 

cO 

Bd 

Od 

cO 

ad 

12 

cO 

8d 

54 

c2c8 

3 

15 

cO 

a2 

12 

aO 

Oc 

20 

2a 

67 

cUO 

s 

7a 

c9 

45 

dO 

03 

4c 

da 

c5 

64 

clIO 

s 

Oe 

cO 

ad 

13 

cO 

8d 

Of 

cO 

62 

c2d0 

. 

c5 

Be 

16 

cO 

8c 

17 

cO 

a2 

44 

cllB 

: 

c9 

4f 

dO 

ef 

20 

73 

00 

20 

99 

cif  B 

8 

20 

ef 

c3 

aO 

06 

ae 

08 

cO 

Bc 

c2dB 

3 

14 

aO 

16 

20 

9a 

c4 

10 

22 

la 

C120 

: 

73 

00 

20 

73 

00 

20 

fd 

ae 

60 

c200 

3 

eB 

Ba 

a2 

Oc 

20 

01 

c5 

20 

b9 

c2e0 

: 

a2 

Oc 

aO 

12 

20 

9a 

c4 

10 

f  d 

c  128 

: 

20 

ec 

c4 

20 

24 

c3 

4c 

58 

36 

c208 

s 

2f 

c4 

fO 

17 

48 

ad 

04 

cO 

3c 

c2e8 

s 

Oa 

aO 

Oc 

20 

3c 

c5 

aO 

12 

e2 

c  130 

: 

cl 

20 

Fd 

ae 

20 

Ba 

ad 

20 

a4 

c210 

a 

dO 

06 

68 

10 

Oe 

4c 

lb 

c2 

35 

c2f  0 

8 

20 

3c 

c5 

ad 

Oe 

cO 

Bd 

12 

97 

cl  38 

s 

f  7 

b7 

a5 

.14 

Bd 

00 

cO 

a5 

le 

c21B 

: 

6B 

30 

08 

a2 

Oc 

20 

e3 

c4 

ca 

c2fB 

: 

cO 

ad 

Of 

cO 

Bd 

13 

cO 

4c 

78 

c  1 40 

: 

15 

Bd 

01 

cO 

20 

Fd 

ae 

20 

61 

c220 

: 

4c 

fb 

cl 

aO 

06 

ae 

OB 

cO 

66 

c300 

3 

c8 

cl 

a2 

10 

aO 

Oe 

20 

9a 

B4 

C14B 

8 

Ba 

ad 

20 

f  7 

b7 

a5 

14 

8d 

c4 

c228 

: 

eB 

8a 

a2 

Oe 

20 

01 

c5 

20 

21 

c308 

: 

c4 

10 

Oa 

aO 

10 

20 

3c 

c5 

e9 

c  150 

: 

02 

cO 

a5 

15 

8d 

03 

cO 

60 

73 

c230 

3 

2f 

c4 

fO 

17 

48 

ad 

04 

cO 

64 

c310 

3 

aO 

Oe 

20 

3c 

c5 

ad 

Oc 

cO 

c2 

cl5B 

: 

20 

31 

cl 

20 

f  d 

ae 

20 

9e 

98 

c238 

3 

dO 

06 

6B 

30 

Oe 

4c 

43 

c2 

01 

c31B 

3 

8d 

10 

cO 

ad 

Od 

cO 

8d 

11 

c2 

c  160 

: 

b7 

Be 

04 

cO 

eO 

02 

90 

07 

e6 

c240 

3 

68 

10 

08 

a2 

Oe 

20 

dl 

c4 

b9 

C320 

3 

cO 

4c 

c8 

cl 

a9 

04 

Bd 

14 

Ba 

c  168 

8 

a2 

78 

aO 

c5 

4c 

fa 

c4 

20 

17 

c24B 

: 

4c 

23 

c2 

a2 

Oc 

aO 

Oe 

20 

69 

c32B 

: 

cO 

a2 

00 

86 

03 

86 

04 

20 

bf 

c  170 

3 

c7 

c3 

Be 

06 

cO 

Bc 

07 

cO 

8b 

c250 

3 

9a 

c4 

fO 

02 

10 

67 

aO 

06 

94 

c330 

: 

73 

00 

fO 

3f 

c9 

3a 

fO 

3b 

70 

c  178 

: 

Bd 

OB 

cO 

aO 

00 

bl 

7a 

fO 

a7 

c258 

: 

ae 

OB 

cO 

eB 

Ba 

a2 

Oc 

20 

86 

c338 

: 

c9 

24 

fO 

14 

c9 

25 

fO 

18 

8c 

clBO 

: 

04 

c9 

3a 

dO 

OB 

a9 

00 

8d 

Ta 

c260 

8 

01 

c5 

86 

fb 

B4 

fc 

aO 

06 

24 

c340 

: 

c9 

2c 

f  0 

2f 

15 

03 

95 

03 

07 

c  1B8 

: 

Ob 

cO 

4c 

a2 

cl 

20 

f  d 

ae 

cd 

c26B 

: 

ae 

OB 

cO 

eB 

Ba 

a2 

Oe 

20 

9e 

c34B 

3 

eO 

02 

fO 

20 

eB 

4c 

2f 

c3 

9f 

cl90 

3 

20 

ec 

c4 

20 

24 

c3 

20 

c7 

cc 

c270 

3 

01 

c5 

86 

fd 

B4 

fe 

ac 

08 

bB 

c350 

3 

a9 

02 

Bd 

14 

cO 

4c 

63 

C3 

64 

c  198 

: 

c3 

8e 

09 

cO 

8c 

Oa 

cO 

Bd 

34 

c27B 

3 

cO 

20 

69 

c5 

ad 

Ob 

cO 

fO 

73 

c35B 

: 

a9 

01 

8d 

14 

cO 

a5 

03 
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Kaffeepause!  Dieses  Wort  kommt  wohl 
jedem  Commodore  64-Besitzer  in  den 
Sinn,  der  ein  längeres  Programm  la¬ 
den  möchte.  Es  geht  aber  fünfmal 
schneller.  Alles,  was  Sie  benötigen  ist 
das  Programm  »Hypra-Load«  oder  das 
neue  Betriebssystem  »Hypra-Perfekt«. 

Das  die  Floppy  1541  nicht  gerade  die  schnellste  ist,  ist  wohl 
allgemein  bekannt.  Zumindest  ein  Vorgang  läßt  sich  mit  relativ 
geringem  Aufwand  stark  beschleunigen:  das  Laden  von  Pro¬ 
grammen. 

Das  Funktionsprinzip  von  Hypra-Load  sieht  folgendermaßen 
aus.  Im  Computer  wie  auch  im  Floppy-Laufwerk  werden  neue 
Laderoutinen  installiert,  die  neue  Busroutinen  enthalten.  Mit 
diesen  neuen  Busroutinen  wird  die  Datenübertragung  um  den 
Faktor  8  bis  10  beschleunigt,  so  daß  die  Ladegeschwindigkeit 
auf  das  softwaremäßig  erreichbare  Maximum  gebracht  wird. 

Eine  Software-Lösung  hat  allerdings  zwei  entscheidende 
Nachteile:  Einerseits  muß  vor  dem  schnellen  Laden  die  neue 
LOAD-Routine  in  den  Speicher  gebracht  werden,  andererseits 
funktionieren  manche  Originalprogramme  mit  Kopierschutz 
nicht  mehr.  Diese  Nachteile  wurden  bei  den  beiden  hier  vorge¬ 
stellten  Versionen  so  gut  wie  möglich  umgangen. 

»Hypra-Load  2.1«  ist  eine  besonders  komfortable  Hypra>- 
Load-Version  mit  integriertem  Auto-Starter  und  Auto- Lader.  Sie 
wurde  von  den  Autoren  des  original  »Hypra-Load«  (aus  der 
64’er,  Ausgabe  10/85)  völlig  neu  geschrieben.  Dies,  dürfte 
wohl  die  beste  Lösung  für  diejenigen  sein,  die  sich  kein  neues 
Betriebssystem  in  ein  EPROM  brennen  wollen  oder  können. 


»Hyora-Perfekt«  ist  ein  solches  Betriebssystem.  Neben  den 
schnellen  Lade-Routinen  sind  hierauch  eine  Funktionstasten¬ 
belegung  und  einige  andere  Extras  eingebaut. 


Hypra-Load 


Um  Hypra-Load  beim  späteren  Betrieb  möglichst  komforta¬ 
bel  zu  halten,  ist  die  Eintipparbeit  etwas  komplizierter.  Sie  be¬ 
nötigen  als  allererstes  eine  leere  Diskette,  die  Sie  am  besten 
formatieren.  Nun  tippen  Sie  das  Listing  1  mit  dem  MSE  ab  und 
speichern  es  auf  genau  dieser  leeren  Diskette.  Sie  sollten  kei¬ 
nesfalls  probieren,  auf  eine  Diskette  zu  speichern,  auf  der 
schon  Programme  stehen,  weil  diese  beim  nächsten  Schritt 
unrettbar  verloren  gehen! 

Nun  tippen  Sie  das  kurze  Listing  2  ab.  Legen  Sie  die  Diskette, 
auf  der  sich  das  gespeicherte  MSE-Listing  befindet,  ein  und 
starten  Sie  das  Basic-Programm.  Nach  wenigen  Sekunden 
meldet  sich  der  Computer  mit  READY.  Nun  ist  Ihre  Hypra-Load- 
Version  fertig.  Um  sie  auf  andere  Disketten  zu  überspielen, 
können  Sie  jedes  beliebige  Kopierprogramm  für  Einzelfiles 
verwenden.  Die  Disketten,  auf  die  Hypra-Load  dann  kopiert 
werden  soll,  dürfen  ruhig  schon  Programme  enthalten,  es  müs¬ 
sen  aber  insgesamt  fünf  Blöcke  auf  der  Diskette  frei  sein,  damit 
noch  Platz  für  Hypra-Load  ist. 

Wie  arbeitet  man  nun  mit  Hypra-Load?  Es  gibt  zwei  Betriebs¬ 
arten:  In  der  normalen  Betriebsart  lädt  man  Hypra-Load  mit 
LOAD":*  ",8,1.  Daraus  folgt,  daß  es  das  erste  Programm  auf 
der  Diskette  sein  muß!  Hypra-Load  installiert  sich  dann  vollau¬ 
tomatisch,  ohne  daß  RUN  eingetippt  werden  muß,  und  meldet 
sich  mit  den  Namen  der  Autoren.  Ab  sofort  wird  von  Diskette 
fünfmal  schneller  geladen.  Zusätzlich  sind  als  Standardwerte 
für  den  LOAD-Befehl  »,8,1«  schon  fest  vorgegeben.  »LOAD- 
"name"«  lädt  also  immer  von  Diskette. 

Bei  einem  Reset  schaltet  sich  Hypra-Load  ab,  ebenso  wenn 
wichtige  Speicherbereiche  überschrieben  werden  und  somit 
ein  Systemabsturz  provoziert  wird. 
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Viel  interessanter  und  komfortabler,  Hypra-Load  zu  nutzen, 
ist  allerdings  die  zweite  Methode.  Wenn  Hypra-Load  sich  zu¬ 
sammen  mit  anderen  Programmen  auf  einer  Diskette  befindet, 
genügt  der  Befehl  »LOAD "  t  *name  ",8,1«  um  mehrere  Vorgän¬ 
ge  gleichzeitig  in  Gang  zu  setzen:  Hypra-Load  wird  geladen 
und  gestartet,  danach  wird  vollautomatisch  das  Programm  mit 
dem  Namen  »name«  schnell  nachgeladen  und  ebenfalls  ge¬ 
startet.  Voraussetzung  dabei  ist,  daß  die  Hypra-Load-Version 
auf  der  Diskette  genau  mit  dem  im  MSE-Listing  angegebenen 
Namen  (»1  Hypra-Load«)  gespeichert  ist. 

Einige  Anmerkungen  zum  Auto-Lader:  Nach  der  Installation 
von  Hypra-Load  wird  überprüft,  ob  der  aktuelle  Filename  mit  ei¬ 
nem  *  t  "  (Pfeil  nach  oben)  beginnt.  Dann  werden  die  ersten 
beiden  Buchstaben  vom  Filenamen  abgetrennt  und  das  ge¬ 
wünschte  Programm  nachgeladen.  Nach  dem  Laden  desakti- 
viert  sich  Hypra-Load  sofort  und  startet  das-"  geladene  Pro¬ 
gramm  durch  Simulation  des  RUN-Befehls.  Mehrteilige  Pro¬ 
gramme  laufen  also  ab  dem  zweiten  Teil  in  der  normalen  Lade¬ 
geschwindigkeit  ab.  Für  die  meisten  Anwendungsfälle  ist  die¬ 
se  Lösung  allerdings  vollkommen  befriedigend. 

Diese  Hypra-Load-Version  läuft  unserer  Erfahrung  nach  so¬ 
wohl  auf  C  64-  wie  auch  SX  64-Computern  und  dem  C  128 
im  64-er  Modus.  Als  Laufwerke  sind  die  1541  und  die  1571 
von  Commodore  verwendbar. 

Der  Bildschirm  bleibt  während  des  Ladevorgangs  ausge¬ 
schaltet,  da  sonst  der  VIC-Chip  die  schnellen  Bus-Routinen 
aus  dem  Takt  bringen  würde.  Das  Blinken  der  roten  Laufwerks¬ 
LED  ist  völlig  normal,  es  zeigt  jeweils  einen  übertragenen  Pro¬ 
grammblock  an.  Damit  läßt  sich  optisch  die  Arbeit  von  Hypra- 
Load  verfolgen. 

Weitere,  am  seriellen  Bus  angeschlossene,  Geräte  dürften 
die  Übertragung  nicht  stören.  Solange  Hypra-Load  aktiviert  ist, 
führen  Kassetten-Zugriffe  zum  System-Absturz! 

Soll  Hypra-Load  abgeschaltet  werden,  genügt  die  Befehls¬ 
folge  »POKE  1,55«. 

Der  VERIFY-Befehl  funktioniert  nicht  bei  aktiviertem  Hypra- 
Load. 

Für  diejenigen,  die  sich  für  die  Programmierung  des  Auto¬ 
starts  von  Hypra-Load  interessieren:  Er  wurde  durch  Verbie¬ 
gen  des  Stop-Vektors  realisiert.  (Karsten  Schramm/bs) 

Hypra-Perfekt 

Unsere  zweite  Hypra-Load-Version  ist  eine  Betriebssystem- 
Version.  Das  Original-Betriebssystem  des  Commodore  64 
wird  durch  ein  modifiziertes  Betriebssystem  ersetzt,  welches 
die  schnellen  Lade-Routinen  sowie  eine  Funktionstastenbele¬ 
gung  enthält. 

Somit  muß  das  Kernal-ROM  ausgetauscht  werden.  Als  neu¬ 
er  Programmträger  dient  ein  2764-EPROM,  dessen  Inhalt  mit 
dem  nachfolgend  abgedruckten  Programm  (Listing  3)  erzeugt 
wird.  Wie  das  von  statten  geht,  läßt  sich  mit  wenigen  Worten 
erklären.  Das  Betriebssystem  (Kernal)  des  Commodore  64 
befindet  sich  im  Speicherbereich  von  $E000  bis  SFFFF  und 
hat  somit  die  Länge  von  8  KByte.  Das  gesamte  Kernal  als  MSE- 
Listing  abzudrucken  würden  den  Rahmen  des  Sonderheftes 
sprengen.  Dies  wäre  auch  gar  nicht  notwendig,  da  ja  nur  Teile 
des  Betriebssystems  geändert  werden.  Deswegen  haben  wir 
die  Form  des,  dank  des  MSEs  etwas  altmodischen,  aber  hier 
angebrachten  DATA-Laders  gewählt. 

Das  abgedruckte  Programm  kopiert  zunächst  das  Kernal  in 
den  Speicherbereich  von  $6000  bis  $7FFF.  Wer  einen  ande¬ 
ren  Speicherbereich  verwenden  möchte,  muß  die  Leseschlei¬ 
fe  in  Zeile  30  on  den  Offset-Wert  in  Zeile  15  (OF)  verändern. 

Nach  dem  Kopieren  befindet  sich  ein  originalgetreues  Ab¬ 
bild  des  Kernais  im  RAM.  Der  nächste  Schritt,  der  automatisch 
vom  Programm  durchgeführt  wird,  ist  die  Veränderung  der  ein¬ 
zelnen  Speicherstellen.  Ist  dieser  Vorgang  beendet,  steht  un¬ 
ser  neues  Kernal  von  $6000  bis  $7FFF  im  Speicher  und  soll¬ 


te  sofort  mit  einem  Monitor  abgespeichert  werden.  Danach 
kann  man  es  dann  auf  ein  2764-EPROM  brennen. 

Bis  hierhin  war  alles  relativ  einfach,  jetzt  aber  kommt  die 
schwierigste  Hürde  auf  dem  Weg  zum  neuen  Betriebssystem. 
Ein  Adaptersockel  muß  gebaut  werden,  denn  leider  sind  die 
Pin-Belegungen  des  Original-Kernals  und  des  2764- 
EPROMS  nicht  identisch.  Wer  sich  diese  Arbeit  nicht  machen 
möchte,  der  kann  diesen  Adaptersockel  im  64’er-Hardware- 
service  demnächst  auch  kaufen.  Sollten  Sie  schon  eine 
Kernal-Umschaltplatine  besitzen,  wie  wir  sie  ebenfalls  anbie¬ 
ten  werden,  entfällt  der  Bastelaufwand  für  Sie  ebenfalls. 

Wer  sich  nun  den  Sockel  selber  bauen  will,  oder  muß,  der  be¬ 
sorge  sich  einen  24poligen  und  einen  28poligen  Sockel.  Das 
Bild  1  zeigt,  welche  Pins  der  Sockel  miteinander  verbunden 
werden  müssen.  Nach  der  Fertigstellung  sieht  das  Ganze  wie 
ein  Doppeldecker-Bus  mit  überhängendem  Dach  aus.  Im  obe¬ 
ren  Stockwerk  dieses  Busses  nimmt  nun  der  2764  mit  dem 
neuen  Betriebssystem  seinen  Platz  ein.  Die  24  Pins  des  unte¬ 
ren  Fahrwerks  finden  im  Steckplatz  U4  des  Computers  ihre 
Heimat.  Das  überhängende  Dach  zeigt,  zusammen  mit  der 
Kerbe  des  EPROMs,  in  Richtung  des  User-Ports. 

Sollte  sich  der  Computer  nach  dem  Einschalten  mit  geän¬ 
dertem  Farbbild,  aber  sonst  gewohnter  Anzeige  melden,  ha¬ 
ben  Sie  es  geschafft.  Ihnen  steht  nun  eine  recht  leistungsfähi¬ 
ge  Hypra-Load-Version  zur  Verfügung.  Neben  dem  Schnell¬ 
lade-System  wurden  noch  die  Funktionstasten  belegt.  Die  Be¬ 
legung  können  Sie  Bild  2  entnehmen.  Das  Laden  eines  Direc- 
torys  zerstört  nicht  mehr  das  aktuelle  Programm  im  Speicher. 

Um  die  Kompatibilität  zu  fertigen  Softwareprodukten  mög¬ 
lichst  groß  zu  halten,  wurde  auch  hier  eine  Abschaltautomatik 
installiert.  Sollte  schnelles  Laden  nicht  mehr  möglich  sein,  wird 
auf  langsames  Laden  umgestellt.  Wenn  diese  Automatik  ver¬ 
sagt,  kann  das  schnelle  Laden  auch  von  Hand  abgeschaltet 
werden.  Die  Speicherstelle  2  ist  zum  Steuerregister  umfunk¬ 
tioniert  worden.  Die  einzelnen  Funktionen  von  Hypra-Perfekt 
lassen  sich  folgendermaßen  schalten: 

POKE  2,0:  Grundzustand  von  Hypra-Perfekt,  alles  einge¬ 
schaltet 


28pollger  Sockel 

24pollger  Sockel 

1,28,27,26 

24 
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21 
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3 
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10 
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11 
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12 

10 

13 

11 

14,20 

12 

15 

13 

16 
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17 

15 

18 

16 

19 

17 

20,14 

18 

21 

19 

22 

20 

23 

18 

24 

22 

25 

23 

1,28,27,26 

24 

Pin  1  eines  jeden  Sockels  ist  links  von  der  Kerbe,  Pin  24 

beziehungsweise  28  ist  rechts  davon. 

Bild  1.  Das  Verbindungsschema  für  den  Adaptersockel 

rt-i&ira 


rwr 


3tn 


Hilfsprogramm 


C  64 


POKE  2,32:  Funktionstasten  abschalten 
POKE  2,64:  Directory  wieder  normal  laden 
POKE  2,128:  Schnelles  Laden  abschalten. 

Natürlich  sind  auch  Kombinationen  möglich,  so  zum  Beispiel 
»POKE  2,32+64+128«  schaltet  alle  Funktionen  ab. 

Besitzer  eines  Hypra-Perfekt-Kernals  müssen,  sofern  Sie 
keine  Umschaltplatine  besitzen,  leider  auf  die  Kassetten- 
Routinen  verzichten.  Die  RS232-Schnittstelle  ist  aber  voll  er¬ 
halten  geblieben. 

Wer  seine  individuelle  Farbkombination  beim  Einschalten 
haben  möchte,  braucht  nur  in  den  Zeilen  50  bis  70  die  Farb¬ 
werte  zu  ändern. 

Und  viel  Spaß  mit  »Flypra-Perfekt«. 

(Ernst  Schöberl/aw/bs) 


Fl  =  LOAD"$",8  ohne  Programmverlust 

F2  =  LOAD 

F3  =  LIST 

F4  =  SAVE 

F5  =  RUN 

F6  =  SYS64738 

F7  =  OPEN1.8.15, 

F8  =  CLOSEI 

SHIFT  8  RUN/STOP  lädt  und  startet  das  erste  Programm  von  der 
Diskette 


Bild  2.  Die  Belegung  der  Funktionstasten 
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Listing  1.  »Hypra-Load  2.1«.  Bitte  beachten  Sie  die  Hinweise  im  Text  und  die  Eingabehinweise  auf  Seite  18. 


10  OPEN  1,B,13 
ZB  OPEN  2,0,2,''*" 

30  PRINT*1  ,  "Ul  2  0  17  0" 

40  PRINT*1,"B-P  2  2" 

50  PRINT*2,CHR*<237> |CHR*<2> | 
60  PRINT*!, "U2  2  0  17  0" 

70  CLOSE  2,1 

READY. 


Listing  2.  Hilfsprogramm  zur  Erstellung  von  »Hypra- 
Load  2.1«.  Bitte  beachten  Sie  die  Hinweise  im  Text! 


10  POKE  56, 96s POKE  55,0:CLR  <236> 
15  0F=32768  <220> 
20  PRINT" <CLR,3DÜWN »KOPIEREN  DER  ROM-DATEN 

NACH  *6000" SPRINT  <209> 
30  POR  1=6*4096  TO  8*4096-1 : POKE  I,PEEK(I+ 

□FJsNEXT  I  <028> 
40  REM  EINSCHALTFARBEN  SETZEN  <160> 
50  POKE  58677-OF ,5s  REM  ZEICHEN  GRUEN  <172> 
60  POKE  60633— OF ,0:  REM  RAHMEN  SCHWARZ  <248> 
70  POKE  60634-OF , 0:  REM  HINTERGR.  SCHWARZ  <216> 
00  PR INT "LESEN  DER  DATA-ZEILEN" s PRINT: PRIN 


Listing  3.  Programm  zur  Erstellung  von 
»Hypra-Perfekt« 


Qfi 


C  64 


Hilfsprogramme 


T 

<184> 

8147 

DATA  234,234,173,0,221,42,42,102,176, 

100  T 

=0 

<077> 

106,102,176,165,176,73,255,96,234 

<200> 

110  T 

=T+lsREAD  AsIF  A=0  THEN  240 

<071> 

8148 

DATA  96,234, 234 ,234,234, 234 , 234 ,234,2 

120  READ  B:  REM  ANZAHL  DER  BYTES 

<099> 

34,234,234, 234 , 234 , 234 ,234,234,169 

<  12B> 

130  READ  PI:  REM  PRUEFSUMME 

<231  > 

8149 

DATA  3,141,0,221,32,251,237,138,162,2 

140  P2=0  SPRINT  "BLOCK  "  ;  T  ;  "  <2SPACE  >  '*  | 

<010> 

55, 234, 234, 234, 202, 20B, 252, 170,96 

<  1 80  > 

150  FOR  I=A-OF  TO  A-OF-l+B 

<039> 

8150 

DAT A  234 , 234 , 234 , 234 , 234 ,  1 20 , 1 69 , 1  ,  1 3 

160  READ  DsPOKE  I,D:P2=P2+D 

<193> 

3, 167,160,255,32,29,248,192,255,208 

<063  > 

170  NEXT  I 

<254> 

8151 

DATA  3,76,228,240,32,39,248,133,169,3 

100  IF  P20P1  THEN  210 

<101> 

2,39,248, 133, 16B, 165, 167,240,30,32 

<  193> 

190  PRINT" (3SPACE >OK " 

<026> 

8152 

DATA  39,248,32,39,240, 169,252,234,234 

200  GOTO  110 

<  1 44  > 

, 164, 169,20B,30, 1 98 , 1 6B , 1 98 , 1 60 , 1 98 

<015> 

210  PR INT "PRUEFSUMME  FALSCH:  ";P2;"  STATT 

8153 

DATA  168,169,254,24,229,168,133, 170,7 

j PI «PRINT 

<179> 

6 , 229 , 248 , 1 65 , 1 69 , 208 , B , 1 98 , 1 68 , 169 

<224> 

220  BET  A*:IF  A4“" "THEN  220 

<253> 

8154 

DATA  0,76,205,248,44,169,254,133, 168, 

230  GOTO  110 

<  174> 

1 60 ,0,32, 39 ,248, 145, 174,230,174,208 

<206> 

240  PRINT:PRINT"FERTIG! "SEND 

<180> 

8155 

DATA  2,230,175,198,168,208,241,162,0, 

8000 

REM  ***  BLOCK  1:  4EB3F-4EB41  »«» 

<201  > 

134,167,165,169,208, 159,198,170 

<203> 

8001 

DATA  60223,3,359 

<001> 

8160 

REM  «**  BLOCK  11s  *F900-*F9FF  **» 

<043> 

8002 

DATA  76,32,251 

<001  > 

8161 

DATA  63744,256,30043 

<025> 

0005 

REM  »»*  BLOCK  2s  4FB20-4FB6B  «»« 

<253> 

8162 

DATA  240,6,32,39,248,76,254,248,169,1 

8006 

DATA  64208,73,10154 

<240> 

6,  13,17 ,208, 141,17,208,165,171 ,141 

<  1 15> 

0007 

DATA  232,134,190,201 ,133,144,4,201,14 

8163 

DATA  0,221,169,64,133,144,24,96,255,1 

1, 144, 3, 76, 66, 235, 1S7, 119, 2, 72, 152 

<  171  > 

65,0,41,6,201,2,240,3,76,158,253 

<204> 

R00B 

DATA  72, 160,0,169,32,37,2,208,13,185, 

8164 

DATA  234,169,5,133,9,162,90,134,75,16 

162,251,221,1  19,2,240,11,200,192 

<  145> 

2,0,169,82,133,36,32,86,245,80,254 

<  177> 

B009 

DATA  224 , 208 ,243,104,168,104,76,66,23 

8165 

DATA  184, 173, 1,28, 197, 36, 240, 9, 19B, 75 

5,200, 185,162,251,201,133,144,4,201 

<254> 

,208,239, 1 69 ,10, 76 , 1 05 , 249 , 80 , 254 

<  121  > 

8010 

DATA  141,144,238,236,137,2,176,233,15 

Bl  66 

DATA  1B4, 173.1 .28.149,37.232,224.7,20 

7,119,2,232,134, 198,76,79,251 

<015> 

8,243,32,151,244,165,22,69,23,69 

<247  > 

0015 

REM  »**  BLOCK  3:  »FBA0-4FBDF  «»» 

<  1 69  > 

8167 

DATA  24,69,25,69,26,240,7,198,9,208,1 

B016 

DATA  64416,64,5759 

<104  > 

92,76,30,244,165,24,197,6,240,3,76 

<007> 

0017 

DATA  252,255,133,76,207,34,36,34,44,5 

8168 

DATA  1 1 , 244 ,133,34,169,6,133,49,76,92 

6, 13, 137, 76, 79,65, 6B, 134,76,73,03 

<087  > 

, 4, 165, 1B, 166, 19, 133, 22, 134, 23, 165 

<  1 39  > 

8018 

DATA  84,13,138,83,65,06,69,135,82,85, 

8169 

DATA  6,133,24,165,7,133,25,169,0,69,2 

78, 13, 139,83, 121 ,54,5?, 55, 51 ,56, 13 

<062> 

2,69,23,69,24,69,25,133,26,32,52 

<242> 

8019 

DATA  136,79,208,49,44,56,44,49,53,44, 

8170 

DATA  249,162,90,32,86,245,160,0,80,25 

34,140,67,76,79,83,69,49,13,136,255 

<004> 

4,184,173,1,28,217,36,0,240,6,202 

<162> 

8020 

DATA  255,255 

<237> 

8171 

DATA  208,237,76,81 ,245,200, 192, B, 208, 

Bl  00 

REM  *«*  BLOCK  4:  *E5EF-*E5F5  »»« 

<  180> 

234,32,86,245,80,254,184,173,1,28 

<035> 

0101 

DATA  58862, B, 1523 

<004> 

8172 

DATA  1 45 , 4B , 200 , 208 , 245 ,160,186,80,25 

8102 

DATA  32,235,240, 134,198, 189,255,240 

<244> 

4, 1B4, 173, 1,28,  153, 0,1, 200, 208, 244 

<092> 

8105 

REM  »**  BLOCK  5:  »F0D9-4F0EA  •«* 

<154> 

Bl  73 

DATA  32,224,248,165,56,197,71,240,3,7 

8106 

DATA  61657,45,5377 

<082  > 

6,246,244,32,233,245,197,58,240,3 

<015> 

8107 

DATA  76,207,34,58,42,34,44,56,44,49,5 

8174 

DATA  76,2,245,160,0,169,85,32,232,3,1 

8,88,32,8,249,76,40,245,162,0, 189 

<  055  >f  ~ 

5,0,6,32,232,3,200,200,247,240 

<  142> 

8108 

DATA  216,240,32,210,255,232,224,12,20 

81B0 

HEM  «»*  BLOCK  12:  SFA00-4FAFF  *** 

<089> 

8,245,162,6,120,96,234,255,255,255 

<123> 

8181 

DATA  64000,256,29911 

<249> 

0109 

DATA  13, 82, B5, 78, 58, 13 

<  062> 

Bl  82 

DATA  111,234,234,234,133,119,162,1,13 

8110 

REM  ***  BLOCK  6s  *F4AD-*F4B7  *** 

<  1 1B> 

8,44,0,24,240,251,169,0,141,0,24 

<  108> 

8111 

DATA  62637 , 1 1 , 1 5B6 

<  145> 

8183 

DATA  138,44,0,24,208,251,162,0,138,10 

8112 

DATA  201,4,176,7,169,0,133,186,234,23 

2,119,42,42,102,119,42,42,141,0,24 

<  137> 

4,234 

<  159> 

Bl  84 

DATA  138, 102,119,42,42,102,119,42,42, 

8115 

REM  «**  BLOCK  7:  4F4F9-4F500  »** 

<  139> 

141,0,24,138,102,119,42,42,102,119 

<068> 

8116 

DATA  62713,8,820 

<213> 

8185 

DATA  42,42,141,0,24,138,102,119,42,42 

8117 

DATA  165,2,48,4,76,44,247,234 

,102,119,42,42,141,0,24,1.62,2,202 

<025> 

8120 

REM  *»*  BLOCK  Bs  *F5EF-*F5F9  *«» 

<058> 

8186 

DATA  208,253,169,8,141,0,24,96,234,16 

8121 

DATA  62959,11,1586 

<  126> 

9fB, 141, 0,24, 96, 234, 234, 234, 234, 234 

<0i0> 

8122 

DATA  201,4,176,7,169,0,133,186,234,23 

B1B7 

DATA  234,234,234,234,234, 234 ,234,234, 

4,234 

<  1 69  > 

234,234,234,234,234,234, 173, 0,2B 

<075> 

8125 

REM  ***  BLOCK  9  s  »F72C-IF7FF  »** 

<246> 

0180 

DATA  9,8,141,0,28,173,0,6,208,3,76,15 

0126 

DATA  63276,212,31985 

<  179> 

8,253,197,24,208,249,133,6,173,1 

<003> 

8127 

DATA  160,0,177,187,201,36,208,63,76,2 

B1B9 

DATA  6,133,7,76,101,3,234,234,234,234 

24,251, 255 , 255 , 255 , 255 , 255 ,255,255 

<208> 

,234,234,234,234,234,234,234,234 

<169> 

8120 

DATA  255,165,186,32,12,237,169,111,32 

8190 

DATA  234,234,96,96,133,0,88,165,0,48, 

,185,237,169,77,32,221,237,169,45 

<032> 

252,120,96,120,169,8,141,0,24,234 

<153> 

0129 

DATA  32,221 ,23 7, 1 6*?  ,  69 , 32 , 22 1  ,237, 169 

0191 

DATA  165,24,Kl,B,6,133,6,165,2S,i.l, 

,69,32,221 ,237, 169, 193,32,221 ,237 

<  060  > 

1,6,133,7,169,4,133,120,169,226,32 

<201  > 

81  30 

DATA  32,254,237,32,239,237,76,21,249, 

8192 

DATA  130,4,201,2,144,51,160,0,132,120 

255 , 255 , 255 , 255 , 255 , 255 , 255 , 255  ,169 

<  1 12> 

,  164, 120, 1B5, 219, 254, 240, 1B,  88, 32 

<212> 

8131 

DATA  28,162,249,133,167,134,168,  169,0 

0193 

DATA  118,214,120,169,226,32,130,4,201 

,162,3,133,  169,134,170,165,  186,32 

<  069> 

,2,144,26,230,120,208,231,169,192 

<013> 

Bl  32 

DATA  12,237,169, 1 1 1 ,32, 185,237, 169,77 

B194 

DATA  32,  130,4,169,226,32,130,4,201,2, 

,32,221,237, 169,45,32,221 ,237,169 

<060> 

144,8,169,255,32,232,3,76,34,235 

<  144> 

Bl  33 

DATA  B7, 32,221 ,237,160,0,165,169,32,2 

8195 

DATA  173,0,6,240 

<091  > 

21 f 237, 165,170,32,221 ,237,169,30 

<  068  > 

0200 

REM  ***  BLOCK  13:  »FB00-4FB1F  «»* 

<  121  > 

Bl  34 

DATA  32,221 ,237, 177,167,32,221 ,237,20 

8201 

DATA  64256,32,4506 

<  1 95> 

0,192,30,144,246,32,254,237,24,165 

<096> 

8202 

DATA  248,197,24,240, 196,173,0,6,133,6 

8135 

DATA  167,105,30,133,167,144,3,230, 168 

,173,1,6,133,7,76,160,4,234,234,234 

<  1 1 1  > 

,24,165,169,166,170,105,30,133,169 

<  1 64  > 

8203 

DATA  234,160,0,185,25,244,153, 255 , 255 

Bl  36 

DATA  144,2,230, 170,224,5,144,173,201, 

,255,255 

<  166> 

0,144,169,165,186,32,12,237,169,111 

<  175> 

8210 

REM  ***  BLOCK  14:  »FBE0-4FC3F  *** 

<064> 

B137 

DATA  32, 185,237,169,77,32,221,237,169 

821 1 

DATA  64480,96, 1256B 

<079> 

,45,32,221,237,169,69,32,221,237 

<1 12> 

8212 

DATA  165,2,41,64,240,3,76,1,245,169,1 

Bl  38 

DATA  169,139,32,221,237,169,4,32,221, 

3,32,210,255,234,169,0,133,144,160 

<203> 

237,173,0,221 

<05B> 

8213 

DATA  2,132,169,32,19,238,133,170,32,2 

8140 

REM  •«*  BLOCK  10s  «F800-4FBFF  **• 

<198> 

25,255,208,3,76,51,246,164,144,208 

<195> 

B141 

DATA  63480,256,38681 

<  173> 

B214 

DATA  47,32,19,238,164,144,208,40,164, 

8142 

DATA  133,171,169,239,45,17,208,141,17 

169,136,208,225,166,170,32,205,189 

<242> 

,208,32,128,240,32, 152,248,32,63 

<167> 

8215 

DATA  169,32,32,210,255,32,19,238,166, 

8143 

DATA  247,0,72,166, 174,164,175,104,40, 

144, 20B, 18,170,240,6,32,210,255,76 

<245> 

BB, 96, 32, 39, 248, 201 ,255,240,248,160 

<139> 

8216 

DATA  30,252,169,13,32,210,255,160,2,2 

8144 

DATA  0,96,169,39,141 ,0,221 ,44,0,221 ,8 

08, 190,32,66,246, 166,45,164,46,96 

<067> 

0,251,169,3,141,0,221, 162,7,202,208 

<083> 

B217 

DATA  255 

<22B> 

8145 

DATA  253,234,173,0,221,42,42,102,176, 

9000 

DATA  0 

<253> 

106,102,176,234,234,173,0,221,42 

<227> 

9010 

REM  *»**  ENDE  »««» 

<199> 

8146 

DATA  42,102,176,106,102,176,234,234,1 

73,0,221,42,42,102,176,106,102,176 

<  143> 

6  64'. 

sr  Listlng  3.  (Schluß) 

frWrja 


Hilfsprogramm 


C  64/VC  20 


Strubs  —  ein  Precompiler 
für  Basic-Programme 

Bei  Strubs,  das  steht  für  »strukturiertes  Basic«,  handelt  es  sich  um  einen 
sogenannten  Precompiler,  ein  Programm,  welches  Programmtexte  mit 
gewissen  zusätzlichen  Befehlen  in  normale,  auf  jedem  Commodore  64 
oder  VC  20  ablauffähige  Programme  übersetzt. 


Das  Programm  Strubs  wurde  ursprünglich  zu  einer  Zeit  ent¬ 
wickelt,  als  Begriffe  wie  Förth  oder  Pascal  noch  Fremdworte 
für  den  C  64  waren.  Der  Zweck  war,  die  Entwicklung  von  Pro¬ 
grammen  übersichtlicher,  effizienter  und  bequemer  zu  gestal¬ 
ten _ 

Strubs  bietet  neue  Basicbefehle 


Auf  der  einen  Seite  ermöglicht  es  Strubs,  auf  sanftem  Weg, 
das  heißt  im  Rahmen  des  gewohnten  Basic  (aber  ohne  auf  un¬ 
übersichtliche  Klimmzüge  innerhalb  des  Commodore  Basic 
angewiesen  zu  sein),  also  ohne  gleich  eine  neue  Programmier¬ 
sprache  lernen  zu  müssen,  mit  der  Technik  strukturierter  Pro¬ 
grammierung  vertraut  zu  werden.  Auf  der  anderen  Seite  er¬ 
möglicht  es  Strubs,  sich  mit  der  Arbeit  mit  Compilern  vertraut 
zu  machen. 

Schließlich  bietet  die  Form  des  Precompilers  noch  erhebli¬ 
che  Geschwindigkeitsvorteile  gegenüber  vergleichbaren  In¬ 
terpretererweiterungen.  Um  diese  letzten  beiden  Punkte  zu 
verstehen,  ist  es  angebracht,  auf  die  unterschiedlichen  Ar¬ 
beitsweisen  von  Interpretern  und  Compilern  einzugehen. 

Bekanntlich  versteht  der  eigentliche  Computer,  das  heißt 
hier  der  Microprozessor,  nur  die  sogenannte  Maschinenspra¬ 
che.  Da  diese  aber  extrem  problemfern  und  unübersichtlich  ist, 
hat  man  verschiedene  höhere  Programmiersprachen  erfun¬ 
den,  um  dem  Programmierer  seine  Arbeit  zu  erleichtern.  Damit 
aber  ein  in  einer  solchen  Sprache  geschriebenes  Programm 
vom  Computer  verarbeitet  werden  kann,  muß  zunächst  eine 
Übertragung  wiederum  von  Programmen  vorgenommen  und 
zwar  von  Compilern  oder  von  Interpretern.  Diese  beiden  Pro¬ 
grammarten  unterscheiden  sich  grundlegend  in  ihrer  Arbeits¬ 
weise. 

Ein  Interpreter  besteht  im  wesentlichen  aus  einer  Reihe  von 
in  Maschinenaprache  geachriebenen  Unterprogrammen,  ei¬ 
ner  Tabelle,  welche  die  erlaubten  Befehle  und  die  Adresse  des 
zu  jedem  Befehl  gehörenden  Unterprogramms  enthält,  und 
schließlich  der  Variablenverwaltung  sowie  der  sogenannten 
Interpreterschleife. 

Diese  Schleife  geht  den  Programmtext  Schritt  für  Schritt 
durch.  Zu  jedem  Befehl  sucht  sie  in  der  Tabelle  die  zugehörige 
Unterprogrammadresse,  ruft  dieses  Unterprogramm  auf,  holt 
den  nächsten  Befehl  und  so  weiter,  bis  das  Programmende  er¬ 
reicht  ist.  Man  sieht  also,  daß  ein  großer  Teil  der  Arbeit  eines 
Interpreters  im  Suchen  besteht:  Suchen  in  der  Befehlstabelle, 
Suchen  in  der  Variablentabelle  und  nicht  zuletzt  Suchen  nach 
Sprungzielen  im  zu  interpretierenden  Programm. 

Diese  ewige  Sucherei  führt  nun  dazu,  daß  Programme  nur 
relativ  langsam  abgearbeitet  werden.  Eine  Interpretererweite¬ 
rung  (wie  etwa  Simons  Basic)  stellt  nun  einfach  zusätzliche 
Befehlsroutinen  zur  Verfügung  und  erweitert  die  Befehlstabel¬ 
le  um  die  neuen  Befehle  und  Adressen.  Durch  diese  Erweite¬ 
rung  der  Befehlstabellen  wird  jetzt  aber  leider  auch  der  Zeit¬ 
aufwand  für  das  Suchen  größer,  so  daß  die  Programme  noch 
langsamer  als  bisher  schon  ablaufen.  Simons  Basic  demon¬ 
striert  dies  sehr  anschaulich.  Ein  Beispiel  für  eine  Interpreter¬ 
erweiterung  werden  wir  weiter  unten  besprechen. 

Qfi 


Nehmen  wir  zur  Illustration  der  Arbeitsweise  eines  Interpreters 
eine  Programmzeile  wie  die  folgende: 

FOR  I  =  0  TO  999:  PRINT  I:  NEXT 
Der  Interpreter  muß  hier  lOOOmal  die  Befehlstabellen  nach 
dem  Befehl  PRINT  und  lOOOmal  die  Variablentabelle  nach  der 
Variablen  I  durchsuchen. 


Compiler  kontra  Interpreter 


Völlig  anders  arbeitet  der  Compiler:  Er  übersetzt  ein  Pro¬ 
gramm,  das  in  einer  Sprache  geschrieben  ist,  welche  nur  der 
Programmierer  versteht  (dieses  Programm  nennt  man  Quell¬ 
programm),  in  ein  äquivalentes  Programm  (das  Objektpro¬ 
gramm),  das  (meist  nur  noch)  die  Maschine  versteht.  Diese  bei¬ 
den  Begriffe  —  Quellprogramm  und  Objektprogramm  —  soll¬ 
ten  wir  uns  gut  merken;  sie  werden  noch  öfter  auftauchen. 

Der  größte  Teil  der  Sucharbeit  kann  nun  ein  für  allemal  bei 
der  üöersetzung  vom  Compiler  geleistet  werden.  Die  benötig¬ 
ten  Adressen  der  Befehlsroutinen,  der  Variablen  und  der 
Sprungziele  sind  für  immer  fest  in  das  Objektprogramm  einge¬ 
baut.  Dadurch  können  compilierte  Programme  oft  bis  zu  zehn- 
oder  mehrmal  schneller  sein  als  entsprechende  Interpreter¬ 
programme. 

Diesem  beträchtlichen  Gewinn  an  Geschwindigkeit  steht  al¬ 
lerdings  ein  nicht  minder  bedeutender  Verlust  an  Bequemlich¬ 
keit  gegenüber.  Zum  einen  erfordert  selbst  die  geringste  Pro¬ 
grammänderung  eine  vollständige  Neuübersetzung  des  Pro¬ 
gramms.  Dies  allein  kann  bei  umfangreichen  Programmen  er¬ 
hebliche  Zeit  beanspruchen,  zumal  häufig  auch  noch  diverse 
Zwischenschritte  erforderlich  sind,  auf  die  wir  hier  nicht  näher 
eingehen  wollen.  Zum  anderen  stellt  das  von  einem  einfachen 
Compiler  erzeugte  Objektprogramm  für  den  Programmierer 
meist  einen  großen  schwarzen  Kasten  dar,  in  den  tnineinzuse- 
hen  ihm  verwehrt  bleibt.  Er  kann  das  Programm  in  der  Regel 
nicht  einfach  unterbrechen,  um  sich  bestimmte  Variablenwer¬ 
te  anzusehen  oder  Variablen  bestimmte  Testwerte  zuweisen, 
um  damit  dann  einen  kritischen  Programmteil  ausführen  zu  las¬ 
sen,  mal  eben  eine  Zeile  ändern  und  was  der  Annehmlichkei¬ 
ten  beim  Programmtest  mit  einem  Interpreter  mehr  sind.  Bes¬ 
sere  Compiler  bieten  zwar  eine  Reihe  von  Optionen  und  Hilfs¬ 
programmen  für  die  Fehlersuche  und  das  Programmtesten  an, 
jedoch  bleibt  auch  hier,  verglichen  mit  einem  Interpreter,  diese 
Arbeit  reichlich  unbequem.  Ideal  ist  es  sicherlich,  äquivalente 
Interpreter  und  Compiler  zur  Verfügung  zu  haben.  Auch  ge¬ 
wisse  Mischformen  wie  zum  Beispiel  bei  der  Sprache  Forth 
sind  hier  interessant. 


Strubs  —  eine  Mischung  von  Inter¬ 
preter  und  Compiler 


Um  nun  aber  auf  das  Programm  Strubs  zurückzukommen: 
Auch  hier  haben  wir  es  in  gewisser  Hinsicht  mit  einer  Misch¬ 
form  zu  tun.  Das  selbst  nicht  lauffähige  Quellprogramm,  wel- 
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ches  der  Programmierer  unter  Benutzung  der  neuen  Befehle 
erstellt,  wird  von  Strubs  nicht  in  Maschinensprache  übersetzt, 
sondern  in  ein  normales  Basic-Programm,  das  dann  wie  bisher 
interpretiert  wir.  Dabei  werden  Programmteile,  die  keine  Erwei¬ 
terungen  enthalten,  mehr  oder  weniger  unverändert  übernom¬ 
men.  Dieses  von  Strubs  erzeugte  Objektprogramm  kann  nun 
wie  jedes  andere  Basic-Programm  —  auch  mit  Hilfe  von  Toolkits 
—  gelistet,  ausgetestet  und  sogar  geändert  werden.  Schließ¬ 
lich  ist  es  dann  noch  möglich,  dieses  Objektprogramm  mit  Hilfe 
eines  Basic-Compilers,  wie  zum  Beispiel  dem  Austro  Compi¬ 
ler,  weiter  zu  übersetzen.  Besonders. hilfreich  ist  es,  daß  einan¬ 
der  entsprechende  Programmzeileniim  Quellprogramm  und  im 
Objektprogramm  gleiche  Zeilennummern  besitzen,  so  daß  der 
Programmierer  sich  ohne  Schwierigkeiten  im  Objektraum  zu- 
rechfinden  kann.  Gegenüber  der  Methode,  den  Basic-Inter- 
preter  zu  erweitern,  bietet  dieses  Verfahren  Geschwindig¬ 
keitsvorteile:  Diese  ergeben  sich  einerseits  aus  der  Tatsache, 
daß  alle  Kommentare  und  Leerzeichen  gelöscht  werden  kön¬ 
nen,  andererseits  wird  wie  beim  Compiler  ein  Teil  der  Suchar¬ 
beit  während  der  Übersetzung  erledigt.  Dadurch  werden  zum 
Teil  erst  neue  Anweisungen  ermöglicht,  deren  Realisierung  im 
Rahmen  einer  Interpretererweiterung  zu  aufwendig  wäre. 

Schon  durch  die  Suche  nach  Sprungzielen  wirkt  der  Basic- 
Interpreter  langsam  genug:  Bei  jedem  Sprung  wird  das  Pro¬ 
gramm  von  Anfang  an  durchsucht,  bis  die  entsprechende  Zei- 
lennummmer  gefunden  ist.  Deshalb  empfiehlt  es  sich  auch, 
häufig  aufgerufene  Unterprogramme  möglichst  an  den  Pro¬ 
grammanfang  zu  setzen,  da  sie  dann  schneller  gefunden  wer¬ 
den. 


Wer  sucht,  der  findet:  aber  wann? 

Daß  sich  die  Suchzeit  überhaupt  in  Grenzen  hält,  liegt  nun 
daran,  daß  der  Programmtext  selbst  nicht  durchsucht  werden 
muß.  Vielmehr  braucht  der  Interpreter  nur  entlang  der  Kette 
aus  Zeilennummern  und  Zeigern  zur  nächsten  Zeile  zu  su¬ 
chen,  bis  die  gewünschte  Zeilennummer  gefunden  ist  (Bild  1). 
Sollte  nun  der  Interpreter  aber  bei  nicht  erfüllter  Bedingung  in 
einer  IF-Anweisung  das  zugehörige  ELSE  suchen,  bei  nicht  er¬ 
füllter  Eingangsbedingung  einer  FOR-Schleife  das  zugehörige 
NEXT  oder  zu  einem  WHILE  das  ENDWHILE,  dann  müßte  der 
gesamte  Programmtext  selbst  durchsucht  Werden. 

Interpreter  durchlaufen  jede  Schleife 
mindestens  einmal 

Deshalb  arbeiten  die  Basic-Interpreter  im  allgemeinen  so, 
daß  solche  Blöcke  —  wie  die  FOR-Schleife  —  mindestens  ein¬ 
mal  durchlaufen  werden.  Deshalb  muß  bei  solchen  Interpre¬ 


tern  —  sofern  sie  überhaupt  ein  ELSE  kennen  —  dieses  in  der 
gleichen  Programmzeile  wie  das  dazugehörige  IF  stehen. 
Deshalb  kennt  zum  Beispiel  Simons  Basic  die  REPEAT-UNTIL- 
Anweisung,  die  immer  mindestens  einmal  durchlaufen  wird, 
nicht  aber  die  WHILE-Anweisung.  Ein  Precompiler  aber  kann 
bei  der  Übersetzung  den  Abschlußbefehlen  eines  Blockes  — 
wie  ELSE  oder  ENDWHILE  —  ihre  Zeilennummern  zuordnen, 
so  daß  beim  Programmlauf  nicht  mehr  der  Programmtext 
selbst,  sondern  nur  die  Kette  der  Zeilennummern  durchsucht 
werden  muß. 

Vorübersetzung  nicht  nur  beim 
Precompiler 

Die  Methode  der  Vorübersetzung  zur  Erhöhung  der  Laufge¬ 
schwindigkeit  benutzt  im  übrigen  auch  der  Basic-Interpreter 
des  Commodore  64.  Und  zwar  findet  sich  die  Übersetzungs¬ 
funktion  im  Editor:  Sofort  bei  der  Eingabe  einer  Zeile  werden 
die  Basic- Befehle,  die  aus  mehreren  Zeichen  bestehen,  in  nur 
1  Byte  lange  Zeichen,  die  sogenannten  TOKEN,  übersetzt.  Ei¬ 
ne  Liste  dieser  Token  findet  sich  zum  Beispiel  im  Programmier¬ 
handbuch  zum  VC  20.  Diese  Vorübersetzung  bringt  zwar  ei¬ 
nen  schönen  Gewinn  an  Geschwindigkeit,  hat  allerdings  den 
Nachteil,  daß  Programmtexte  nicht  mehr  mit  komfortableren 
Editor-  beziehungsweise  Textprogrammen  erstellt  werden 
können.  Für  uns  ist  jedoch  vor  allen  Dingen  wichtig,  daß  diese 
Token  berücksichtigt  werden  müssen,  falls  der  Befehlsvorrat 
von  Strubs  erweitert  werden  soll,  oder  falls  Programme  für  In¬ 
terpretererweiterungen  wie  Simons  Basic  bearbeitet  werden 
sollen.  Aber  auf  diesen  Punkt  werden  wir  ausführlicher  einge- 
hen. 

Wenn  wir  mit  Strubs  arbeiten,  haben  wir  es  —  wie  bei  jedem 
Compiler  —  mit  (mindestens)  drei  Programmen  zu  tun:  Dem 
Übersetzungsprogramm,  dem  Quellcode  (Quellprogramm) 
und  dem  lauffähigen  Objektprogramm.  Diese  Programme 
müssen  sich  nun  irgendwie  den  zur  Verfügung  stehenden 
Speicherplatz  teilen.  Daß  das  Übersetzungsprogramm,  um  ar¬ 
beiten  zu  können,  im  Hauptspeicher  stehen  muß,  versteht  sich 
von  selbst. 

Eine  Möglichkeit  wäre  nun,  daß  das  Übersetzungsprogamm 
das  Quellprogramm  von  der  Diskette  einliest,  und  gleichzeitig 
das  erzeugte  Objektprogramm  auf  Diskette  schreibt.  Der 
Compiler  zu  Simons  Basic  arbeitet  zum  Beispiel  nach  dieser 
Methode.  Da  ein  Compiler  jedoch  einen  Programmtext  in  der 
Regel  mindestens  zweimal  durchliest  —  man  spricht  in  diesem 

Fall  von  2-Pass-Compilern  — >  ist  ©s  günstiger,  wenn  das  Quell¬ 
programm  sich  ebenfalls  im  Hauptspeicher  befindet.  Diesen 
Weg  gehen  zum  Beispiel  Pascal  64  und  Strubs.  Um  nun  den 
zur  Verfügung  stehenden  Platz  aufzuteilen,  benutzt  zum  Bei¬ 
spiel  Pascal  64  eine  sehr  einfache  und  wirksame  Methode: 


Zeiger 


Zeiger 


Zeilennr. 


Programmtext 


normaler  Zustand: 


Programmtextbereich 


Variablenbereich 


•  • 

1 

• 

Zei 

jer 

0 

ff 

Zeilennr. 


Programmtext 


bei  Strubs: 


Programmtextbereich 

ED1T-BEREICH 


Zeilennr. 


Programmtext 


_ i 


Bild  1.  Struktur  eines  Basic-Programms  und  dessen  Lage  im  Arbeitsspeicher 


STRUBS 

. 

zu  bearbeitendes 

— 

Variablen- 

Programm 

Programm 

bereich 

QQ 
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Der  Compiler  ist  selbst  in  Basic  geschrieben  und  enthält  eine 
unsichtbare  Zeile  mit  der  Zeilennummer  0,  die  ihrerseits  einen 
Sprung  zum  Übersetzungsprogramm  enthält.  Ein  Pascalpro¬ 
gramm  wird  nun  einfach  mit  den  Zeilennummern  zwischen  1 
und  9999  in  das  Compilerprogramm  eingefügt. 

Dieses  Verfahren  hat  allerdings  den  Nachteil,  daß  Program¬ 
me  immer  nur  zusammen  mit  dem  Compiler  abgespeichert 
und  editiert  werden  können.  Insbesondere  ist  es  damit  nicht 
möglich,  Quellprogramme  aus  fertigen  Bausteinen  (Modulen) 
zusammenzusetzen. 

Strubs  geht  andere  Wege 

Aus  diesem  Grund  wurde  für  Strubs  ein  anderer  Weg  ge¬ 
wählt:  Entsprechend  Bild  1  wurde  der  Speicher  des  Commo- 
dore  64  in  drei  Bereiche  aufgeteilt.  Am  Anfang  des  Arbeitsspei¬ 
chers  steht  das  Programm  Strubs  (Pointer  in  Zelle  43/44).  Der 
Edit-Bereich  für  Quellprogramme  beginnt  bei  (Wert  der  Varia¬ 
blen  EA).  Daran  anschließend  befindet  sich  der  (gemeinsame) 
Variablenbereich  (Pointer  in  Zelle  45/46).  Um  nun  vom  Edit- 
Bereich  aus  bequem  in  den  anderen  Speicherbereich  um¬ 
schalten  zu  können,  benutzt  Strubs  selbst  eine  kleine  Inter¬ 
pretererweiterung,  die,  wie  versprochen,  kurz  vorgestellt  wer¬ 
den  soll. 

Die  Eingabe  von »!«  bewirkt  nun  dasselbe  wie  die  Befehisfol- 
ge  »POKE  44,8:  RUN«.  Das  entsprechende  Assemblerlisting 
findet  sich  in  Bild  2.  Das  kleine  Programm  »Erweiterung«  holt 
zunächst  den  nächsten  Befehl.  Dann  muß  für  die  Routine  »Be¬ 
fehl  ausführen«  der  Status  gerettet  werden,  da  die  CHARGET- 
Routine  damit  wichtige  Informationen  übermittelt,  (dies  ist 
wichtig  und  wurde  in  dem  unten  erwähnten  Buch  übersehen). 
Nachdem  verglichen  wurde,  ob  ein  neuer  Befehl  vorliegt,  wird 
dann  entsprechend  zum  normalen  Programmverlauf  oder  zur 
Erweiterungsroutine  verzweigt.  Für  eigene  Versuche  mit  Inter¬ 
pretererweiterungen  können  an  dieser  Stelle  beliebige  Ma¬ 
schinenprogramme  (gegebenenfalls  mit  weiteren  Decodie¬ 
rungen)  gesetzt  werden.  Nur  sollte  zum  Abschluß  —  anders 
als  hier,  wo  ein  Basic-Befehl  aufgerufen  wird  —  ein  Sprung  zur 
Interpreterroutine  $A7E4  erfolgen,  wo  dann  der  nächste  Be¬ 
fehl  bearbeitet  wird.  Um  nun  die  Erweiterung  in  den  Basic- 
Interpreter  einzubinden,  benötigen  wir  dann  nur  noch  eine 
kurze  Initialisierungsroutine,  die  den  Zeiger  in  $0308  auf  den 
Anfang  der  Erweiterung  setzt. 

Wer  selbst  solche  Erweiterungen  entwickeln  möchte,  findet 
weitere  Informationen  und  viele  Anregungen  in  dem  Buch  »64 
Intern«  von  Data  Becker.  Für  weitergehend  Interessierte  emp¬ 
fiehlt  sich  die  gut  verständliche  Einführung  »Compilerbau«  von 
N.  Wirth,  Teubner,  Stuttgart  1981. 


Erweiterung: 

02C0 

207300 

JSR  0073 

;  Charget,  nächstes  Zeichen  holen 

02C3 

08 

PHP 

;  Status  retten 

02C4 

C921 

CMP  #21 

;  »!«,  neuer  Befehl? 

02C6 

F004 

BEO  02CC 

02C8 

28 

PLP 

;  nein,  dann  Status  wiederherstellen 

02C9 

4CE7A7 

JMP  A7E7 

;  und  normalen  Befehl  ausführen 

02CC 

28 

PLP 

; 

02CD 

A908 

LDA  #08 

;  Erweiterungsroutine: 

02CF 

852C 

STA2C 

;  entspricht  Poke  44,8:  RUN 

02D1 

A98A 

LDA  #8A 

;  RUN-TOKEN 

02D3 

4CE7A7 

IMP  A7E7 

;  Befehl  ausführen 

INIT: 

02EE 

A9C0 

LDA  #C0 

;  Erweiterung,  Low  Byte 

02F0 

8D0803 

STA  0308 

02F3 

A902 

LDA  #02 

;  Erweiterung,  High  Byte 

02FS 

8D0903 

STA  0309 

02F8 

60 

RTS 

Bild  2.  Interpreter-Erweiterung 

Anschließend  wollen  wir  nun  das  Programm  Strubs  vorstel¬ 
len.  Am  Anfang  der  Programmentwicklung  standen  folgende 
Vorstellungen,  die  durch  das  Programm  erfüllt  werden  sollten: 

1.  Unabhängigkeit  von  Zeilennummern 

2.  Unterstützung  strukturierter  Programmierung 

3.  Unterstützung  modularer  Programmentwicklung 

4.  Erweiterung  der  Dokumentationsfähigkeit  des  Programmte¬ 
stes.  Dabei  sollte  das  Programm 

5.  einfache  Handhabung  gewährleisten  und 

6.  effiziente  Fehlersuche  ermöglichen. 

Die  Unabhängigkeit  von  Zeilennummern  wird  erreicht  durch 
die  Verwendung  beliebig  langer  Labels  oder  relativer  Sprünge 
anstelle  von  Zeilennummern. 


Strubs  stellt  sich  vor 


Die  wichtigsten  Kontrollstrukturen  höherer  Programmier¬ 
sprachen  werden  von  Strubs  zur  Verfügung  gestellt: 

IF  — THEN  —  Fl 
IF  -  THEN  -  ELSE  -  Fl 
WHILE  -  EWHILE 
REPEAT  —  UNTIL 

LOOP  —  EXIT  (beliebig  oft)  —  ELOOP 

CASEOF  —  OF  (beliebig  oft)  —  ELSE  (optional)  —  ECASE 

Durch  die  Unabhängigkeit  von  Zeilennummern  und  eine  EX- 
TERN-Deklaration  wird  das  Anlegen  einer  Modulbibliothek  — 
sowohl  auf  Quellprogramm-  als  auch  auf  Objektprogrammebe¬ 
ne  —  unterstützt. 

Mit  Strubs  werden  Sie  ein  viel¬ 
seitiges  Werkzeug  in  Händen  halten 

Der  Dokumentationsfähigkeit  des  Programmtestes  dienen 
neben  den  bereits  erwähnten  Marken  und  Kontrollstrukturen 
ein  Tabulator  und  Kommentare  an  beliebiger  Stelle  auch  inner¬ 
halb  eines  Variablennamens  (zum  Beispiel  A’US’G'ABE'%  = 
AG%). 

Programmtests  können  wie  gewohnt  mit  dem  normalen 
Basic-Editor  geschrieben  werden. 

Schließlich  werden  wir  zur  Illustration  der  Erweiterung  des 
Befehlssatzes  von  Strubs  noch  eine  MAKRO-Funktion  imple¬ 
mentieren.  Von  besonderer  Bedeutung  ist,  daß  das  Programm 
von  Anfang  an  unter  dem  Aspekt  möglichst  einfacher  Erweiter- 
barkeit  konzipiert  wurde.  Damit  konnte  das  Programm  im 
Bootstrapping-Verfahren  entwickelt  werden,  so  daß  es  jetzt 
selbst  sowohl  als  Quellprogramm  wie  auch  als  Objektpro¬ 
gramm  vorliegt.  Wem  es  Spaß  macht,  der  mag  Strubs  einfach 
auch  als  ein  generelles  Übersetzungsprogramm  zur  Aufberei¬ 
tung  von  Programmtexten  auffassen  und  seine  gegenwärtigen 
Funktionen  als  Beispiel  möglicher  Implementationen. 


Die  Befehlsstruktur 


Gehören  Sie  auch  zu  denjenigen,  die  sich  manchmal  ein 
Programm  aus  einer  Zeitschrift  vornehmen,  um  zu  analysieren, 
wie  es  arbeitet  oder  um  eventuell  Teile  des  Programms  für  ei¬ 
gene  Programmprojekte  zu  verwenden?  Dann  erinnern  Sie 
sich  bestimmt  an  Programme,  bei  denen  Sie  sich  verzweifelt 
von  Sprung  zu  Sprung  bewegen  und  nach  nicht  allzu  langer 
Zeit  vollkommen  den  Überblick  verlieren.  Oder  vielleicht  ken¬ 
nen  Sie  folgende  Situation:  Sie  schreiben  ein  Programm  und 
erinnern  sich  angesichts  eines  bestimmten  Problems,  daß  Sie 
ein  ganz  ähnliches  Problem  schon  einmal  in  einem  anderen 
Programm  gelöst  haben.  Aber  sobald  Sie  sich  den  alten  Pro¬ 
grammtext  vornehmen,  um  den  entsprechenden  Programm¬ 
teil  in  ihr  neues  Programm  zu  übernehmen,  müssen  Sie  ent- 
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täuscht  feststellen,  daß  diese  spezielle  Problemlösung  so 
sehr  in  das  Programmgeflecht  verwoben  ist,  daß  es  Ihnen 
weitaus  einfacher  scheint,  den  entsprechenden  Programmteil 
vollkommen  neu  zu  entwickeln. 

Die  Ursache  für  solche  Erscheinungen  liegt  zum  Teil  darin, 
daß  viele  Basic-Programme  mehr  oder  weniger  aus  der  Sicht 
des  Computer  der  »Basic-Maschine«  —  direkt  am  Computer 
nach  dem  Verfahren  von  Versuch  und  Irrtum  entwickelt  wer¬ 
den.  Das  kann  in  Einzelfällen  sogar  soweit  führen,  daß  man 
zum  Schluß  zwar  sieht,  daß  das  Programm  läuft,  aber  selbst 
nicht  so  recht  weiß,  warum  eigentlich,  und  wie  es  funktioniert. 
Der  Hauptgrund  für  solche  Unübersichtlichkeit  aber  liegt  in  der 
Verwendung  zahlreicher  wilder  Sprünge  und  ausgefallener 
Programmier-Tricks.  (Daß  die  Verwendung  von  GOTO- 
Anweisungen  den  mathematischen  Beweis  für  die  Korrektheit 
von  Programmen  praktisch  unmöglich  macht,  ist  für  den  Infor¬ 
matiker  interessant,  braucht  uns  hier  aber  nicht  zu  interessie¬ 
ren.) 

Den  entgegengesetzten  Weg  geht  die  strukturierte  Pro¬ 
grammierung.  Sie  bedeutet  vor  allem  sorgfältige  Planung  und 
den  Verzicht  auf  GOTOs  und  unübersichtliche  Programmier¬ 
tricks.  Hier  steht  die  systematische  Analyse  des  Problems  im 
Vordergrund.  Die  eigentliche  Codierung,  das  heißt  die  Formu¬ 
lierung  des  Programmtextes  in  einer  bestimmten  Program¬ 
miersprache,  spielt  nur  eine  untergeordnete  Rolle. 

In  der  Problemanalyse  geht  es  darum,  ein  gegebenes  Pro¬ 
blem  in  relativ  selbständige  Teilprobleme  zu  zerlegen  und  de¬ 
ren  Beziehungen  zueinander  festzulegen.  Den  Aufbau  des 
Programms  Strubs  mit  den  jeweiligen  Zeilennummern  können 
Sie  Bild  3  entnehmen.  Das  komplette  Objektprogramm  ist 
ebenfalls  abgedruckt  (siehe  Listing  1). 

Entsprechend  setzt  sich  das  strukturierte  Programm  aus  ei¬ 
ner  Reihe  möglichst  selbständiger  Programmeinheiten  zu¬ 
sammen.  Dieses  Vorgehen  spiegelt  sich  im  Konzept  der 
Blöcke  und  Module. 

Ein  Block  ist  eine  Anweisung  oder  eine  Folge  von  Anweisun¬ 
gen  mit  genau  einem  Eingang  und  genau  einem  Ausgang.  Das 
heißt  man  darf  weder  in  einen  solchen  Block  hineinspringen, 
noch  aus  diesem  Block  herausspringen.  Solche  Blöcke  kön¬ 
nen  entweder  aneinandergereiht  oder  beliebig  tief  ineinander¬ 
geschachtelt  werden;  sie  dürfen  sich  aber  nicht  überschnei¬ 
den.  In  letzterer  Hinsicht  verhält  es  sich  mit  diesen  Blöcken  al¬ 
so  genauso,  wie  bei  den  bekannten  FOR-Schleifen  in  Basic 

Ein  strukturiertes  Programm  besteht  nun  ausschließlich  aus 
einer  geordneten  Hierarchie  solcher  Blöcke.  Der  kleinste 
mögliche  Block  besteht  aus  einer  einzelnen  Anweisung,  wie 
zum  Beispiel  PRINT  "Text".  Der  größte,  umfassendste  Block 
besteht  aus  dem  Programm  selbst. 

Da  ist  zunächst  einmal  die  einfache  IF-Anweisung,  die  schon 
von  Basic  her  bekannt  ist.  Dieses  normale  Basic-IF  kann  natür¬ 
lich,  wie  alle  Basic-Befehle,  weiterhin  benutzt  werden.  Zusätz¬ 
lich  bietet  Strubs  aber  eine  erweiterte  Form,  bei  welcher  der 
THEN-Teil  nicht  auf  den  Rest  einer  Programmzeile  begrenzt  ist, 
sondern  beliebig  viele  Zeilen  umfassen  kann,  die  durch  den 
Befehl  MFC  —  einfach  ein  umgedrehtes  IF  —  abgeschlossen 
werden.  Ein  Beispiel: 

10  !  IF  X=Y  THEN 
20  :  PRINT  "X  und  Y" 

30  :  PRINT  "  SIND  GLEICH” 

99  I  Fl 

Ist  die  Bedingung  hinter  IF  erfüllt,  so  werden  die  Zeilen  zwi¬ 
schen  der  IF  und  der  Fl-Anweisung  ausgeführt,  ansonsten 
wird  das  Programm  sofort  hinter  der  Fl-Zeile  fortgesetzt. 

Daneben  existiert  selbstverständlich  auch  die  vollständige 
Form 

10  !IF  X=Y  THEN 
20:  PRINT  "GLEICH’ 


50  IELSE 

60  :  PRINT  "UNGLEICH” 

99  I  Fl 

Ist  die  Bedingung  erfüllt,  dann  wird  der  Block  zwischen  IF 
und  ELSE  ausgeführt,  sonst  der  Block  zwischen  ELSE  und  Fl. 

Für  den  Fall,  daß  mehr  als  nur  zwei  Fälle  zu  unterscheiden 
sind,  bietet  Strubs  die  CASE-Anweisung: 

10  ICASEOF  X<0  THEN 

15  :  PRINT  "KLEINER  ALS  0" 

40  I  OF  X=0  THEN 

45  :  PRINT  "GLEICH  0" 

60  !  0FX>0  AND  Y  cOTHEN 
65:  PRINT  ”X>0  UND  Y<" 

80  I  ELSE 

85  :  PRINT  "KEINER  DER  FÄLLE  TRIFFT  ZU" 

99  !  ECASE 

Mit  dieser  Struktur  können  beliebig  viele  Fälle  unterschie¬ 
den  werden,  wobei  jedes  OF  mit  einer  beliebigen  Bedingung 
verbunden  werden  kann.  Es  sollte  aber  darauf  geachtet  wer¬ 
den,  daß  sich  die  Bedingungen  gegenseitig  ausschließen 
(sonst  wird  das  erste  Auftreten  einer  erfüllten  Bedingung  ge¬ 
wählt).  Nach  der  Bearbeitung  des  entsprechenden  Falles  wird 
das  Programm  immer  hinter  ECASE  fortgesetzt.  Die  Möglich¬ 
keit,  daß  keiner  der  Fälle  zutrifft,  kann  mit  Hilfe  der  ELSE- 
Anweisung  behandelt  werden.  Ist  dies  nicht  erforderlich,  kann 
der  ELSE-Teil  auch  entfallen. 

Damit  kommen  wir  nun  zu  den  Schleifen.  Die  FOR-Schleife 
kann  wie  bisher  benutzt  werden.  Die  WHILE-Schleife  wird 
durchlauft.  ,,  solange  die  Bedingung  erfüllt  ist.  Anschließend 
wird  das  Programm  hinter  EWHILE  fortgesetzt.  Da  die  Bedin¬ 
gung  am  Anfang  der  Schleife  abgefragt  wird,  kann  es  Vorkom¬ 
men,  daß  die  Schleife  auch  überhaupt  nicht  durchlaufen  wird. 


Bild  3.  Aufbau  von  Strubs 
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510 

520 

*  GESCHACHTELTE  LÜOP-BLOECKE  * 

530 

****************>:***#************ 

540 

620 

LOOP  'LI 

630 

PRINT"AEUSSERE  L00P1" 

640 

IF  X=l  THEN  IEXIT  'L00P1 

650 

i LOOP  'L2 

660 

PRINT  "INNERE  LOOP2" 

670 

IF  X-0  THEN  IEXIT  'L00P2 

680 

IELOOP  '  L2 

6S0 

HIER  WIRD  PROOR.  NACH  EXIT  L00P2  FORTGESETZT 

760 

X-X+l 

710 

I IF  X=2  THEN 

720 

PRINT  "LOOP  1  VERLASSEN:  IEXIT  'L00P1 

730 

I  FI 

743 

X=X+1 

750 

ELOOP  'LI 

760  PRINT"HIER  WIRD  PROGRAMM  NACH  EXIT  LOOP  1  FORTGESETZT" 

770 

re  ADV,  Bild  4.  Geschachtelte  Loop-Schleife 

Ein  Beispiel: 

10  !  WHILE  X< 5  IDO 

20  :  PRINT  "IMMER  NOCH  KLEINER  ALS  5” 

30  :  X  =  X  +  1 

99  IEWHILE 

Von  der  WHILE-Schleife  unterscheidet  sich  die  REPEAT- 
Schleife  in  zwei  Punkten:  Erstens  wird  die  Schleife  durchlau¬ 
fen,  bis  die  Bedingung  erfüllt  ist,  also  solange  sie  nicht  erfüllt 
ist.  Zweitens  wird  die  Bedingung  erst  am  Ende  der  Schleife  ab¬ 
gefragt,  so  daß  die  Schleife  immer  mindestens  einmal  durch¬ 
laufen  wird.  In  diesem  wie  im  nächsten  Beispiel  bezieht  sich 
die  Zeile  30  auf  den  Fall,  daß  X  beim  Eintritt  in  die  Schleife  grö¬ 
ßer  als  5  ist: 

10  !  REPEAT 

20  :  PRINT  "X  KLEINER  ALS  5" 

30  :  PRINT  "VIELLEICHT  ABER  AUCH  NICHT" 

40 : X  =  X+1 

99  !  UNTIL  X  >  =  5 

Eine  weniger  weit  verbreitete,  aber  sehr  mächtige  Schleifen¬ 
struktur  stellt  die  LOOP-Schleife  dar  (sie  befindet  sich  zum 
Beispiel  in  der  Programmiersprache  ADA): 

10  !  LOOP 

30  :  PRINT  "EVENTUELL  GROESSER  ALS  5" 

40:  IF  X>  =5  THEN  IEXIT 
50  :  PRINT  "KLEINER  ALS  5" 

60:  X  =  X+1 

99  IELOOP 

Es  handelt  sich  dabei  um  eine  Endlosschleife,  welche  mit 
Hilfe  des  Befehls  EXIT  verlassen  werden  kann.  Diese  Schleife 
bietet  im  wesentlichen  zwei  Vorteile:  Zum  einen  muß  die  Be¬ 
dingung  nicht  entweder  am  Anfang  oder  am  Ende  der  Schleife 
stehen,  sondern  kann  an  jeder  beliebigen  Stelle  innerhalb  des 
Blockes  abgefragt  werden.  Darüber  hinaus  ist  das  Beenden 
der  Schleife  nicht  nur  von  einer  Bedingung  abhängig,  sondern 
die  LOOP-Schleife  kann  beliebig  viele  EXIT-Anweisungen  ent¬ 
halten  (dadurch  wird  nicht  die  oben  erwähnte  Forderung  nach 
nur  einem  Ausgang  verletzt,  da  das  Programm  in  allen  Fällen 
hinter  dem  ELOOP  fortgesetzt  wird).  Damit  eignet  sich  diese 
Konstruktion  insbesondere  gut  für  die  Behandlung  von  Aus¬ 
nahmen  wie  zum  Beispiel  von  Eingabebefehlen  etc.  (eine  An¬ 
gelegenheit,  die  zum  Beispiel  in  Pascal  recht  umständlich  sein 
kann,  falls  man  auf  GOTOs  verzichten  will  oder  muß). 

In  Bild  4  (das  Zeichen  ’  kennzeichnet  Kommentare)  sehen 
Sie  ein  Beispiel  für  geschachtelte  LOOP-Schleifen.  Die  Aus¬ 
führung  einer  EXIT-Anweisung  bewirkt  die  Fortsetzung  des 
Programms  bei  der  ersten  Zeile  hinter  derjenigen  Schleife, 


welche  diese  EXIT-Anweisung  am  nächsten  umschließt.  Im 
Beispiel  enthält  die  äußere  Schleife  zwei  EXIT-Anweisungen  — 
eine  davon  vor,  die  andere  hinter  der  inneren  Schleife.  Die  in¬ 
nere  Schleife  enthält  eine  EXIT-Anweisung.  Grafisch  lassen 
sich  blockstrukturierte  Programme  am  besten  durch  Strukto- 
gramme  —  anstelle  der  verbreiteten  Flußdiagramme  —  dar¬ 
stellen.  Das  Struktogramm  für  die  LOOP-Schleifen  finden  Sie 
in  Bild  5.  Über  die  Diagramme  der  anderen  Strukturen  und  den 
Umgang  mit  Struktogrammen  können  Sie  sich  an  anderer  Stel¬ 
le  in  dieser  Zeitschrift  oder  in  den  unten  aufgeführten  Büchern 
informieren.  Kommen  wir  nun  zu  den  Modulen.  Dabei  handelt 
es  sich  um  besondere  Blöcke,  die  ein  bestimmtes  Teilproblem 
—  beispielsweise  das  Zeichnen  einer  Linie  in  einem  Grafikpro¬ 
gramm  —  unter  möglichst  weitgehender  Unabhängigkeit  vom 
restlichen  Programmtext  bearbeiten.  Stellen  Sie  sich  vor,  Sie 
finden  in  einer  Zeitschrift  ein  Pascal-Programm  zur  Einstellung 
von  Grafiken.  Dieses  Programm  benutzte  zum  Beispiel  die  An¬ 
weisung  PLOT  (X,Y)  zum  Zeichnen  eines  Punktes  mit  den 
Koordinaten  X  und  Y.  Ihr  Freund  möge  eine  Sprache  wie  Su¬ 
per-Pascal  besitzen,  die  diese  Anweisung  standardmäßig  ent¬ 
hält.  Er  tippt  das  Programm  ein,  es  läuft  —  fertig.  Sie  selbst  be¬ 
sitzen  aber  nur  ein  mageres  Mini-Pascal,  das  diesen  Befehl 
nicht  kennt.  Nun,  mit  Pascal  ist  das  kein  Problem:  Sie  schrei¬ 
ben  sich  eine  Procedur  PLOT  (X,Y),  fügen  diese  in  das  Pro¬ 
gramm  ein  —  fertig.  An  dem  Programmtext  selbst  brauchen 
Sie  nicht  die  geringste  Änderung  vorzunehmen.  Ja,  brauchen 
ihn  nicht  einmal  näher  anzusehen.  Woran  liegt  das? 

Vom  Problem  her  —  dem  Erstellen  einer  Grafik  —  ist  das 
Zeichnen  eines  Punktes  das  Zeichnen  eines  Punktes.  Das 
einzige,  was  interessiert,  ist,  daß  dazu  zwei  Koordinaten  erfor¬ 
derlich  sind.  Dieser  Tatsache  trägt  die  Sprache  Pascal  dadurch 
Rechnung,  daß  sie  keinen  Unterschied  macht  zwischen  dem 
Aufi  of  von  vorgegebenen  Standardanweisungen  und  selbst¬ 
definierten  Prozeduren. 

Wenn  Sie  in  einem  Basic-Programm  irgendwo  eine  Zeile 
PRINT  "TEXT’stehen  haben,  erwarten  Sie  selbstverständlich, 
daß  dadurch  nicht  50  Zeilen  weiter  der  Wert  der  Variablen  A 
verändert  wird.  Entsprechend  sorgt  nun  Pascal  dafür,  daß  eine 
selbstdefinierte  Prozedur  genausowenig  Auswirkungen  auf 
andere  Programmteile  hat  wie  der  Aufruf  einer  Standard-An¬ 
weisung.  Die  interne  Arbeitsweise  einer  solchen  Prozedur 
wird  vor  der  Programmumgebung  genauso  versteckt,  wie  dies 
bei  der  internen  Arbeitsweise  von  im  Sprachumfang  enthalte¬ 
nen  Anweisungen  der  Fall  ist.  Entsprechend  nennt  man  dieses 
Konzept  auch  »Information  Hiding«.  Programmiersprachen  wie 
ADA,  MODULA  oder  SIMULA  bieten  in  dieser  Hinsicht  noch 
sehr  viel  weitergehende  Möglichkeiten  als  Pascal. 
Schnittstellen: 

Der  Datenaustausch  mit  der  Umgebung  eines  Moduls  er¬ 
folgt  über  genau  definierte  Schnittstellen.  Bei  einer  solchen 
Schnittstelle  handelt  es  sich  um  eine  Menge  derjenigen  An¬ 
nahmen,  die  die  Programmumgebung  überein  Modul  macht— 
das  heißt  welche  Daten  es  als  Eingabe  erwartet,  welche  Daten 
es  daraufhin  wieder  ausgibt  und  welche  anderen  Module  es 
seinerseits  benötigt. 

Modulbibliothek: 

Die  relative  Eigenständigkeit  solcher  Module  sorgt  nun  nicht 
nur  für  einfache  Änderbarkeit  und  Erweiterbarkeit,  sondern  er¬ 
möglicht  auch  das  Anlegen  einer  sogenannten  Modulbiblio¬ 
thek.  Eine  solche  Bibliothek  enthält  eine  Reihe  von  Programm¬ 
bausteinen,  die  je  nach  Bedarf  in  zu  entwickelnde  Programme 
eingefügt  werden  können.  Dabei  kann  es  sich  um  Sortierrouti¬ 
nen,  Grafik-Routinen,  mathematische  und  statistische  Routi¬ 
nen  und  so  weiter  handeln.  Aber  auch  die  Entwicklung  von 
Spielen  läßt  sich  auf  diese  Weise  vereinfachen:  Man  kann  Bi¬ 
bliotheken  fertiger  Sprites,  von  eigenen  Zeichensätzen  oder 
von  diversen  Soundroutinen  anlegen. 

Das  wichtigste  Hilfsmittel  zur  Unterstützung  modularer  Pro¬ 
grammentwicklung  stellen  sicherlich  die  lokalen  Variablen  dar. 
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Leider  gibt  es  solche  nicht  in  Basic  und  auch  Strubs  kann  keine 
lokalen  Variablen  bieten.  So  ist  es  auch  weiterhin  erforderlich, 
beim  Einsetzen  oder  Ändern  eines  Moduls  darauf  zu  achten, 
ob  und  an  welchen  Stellen  Variablen  des  Moduls  in  anderen 
Programmteilen  benutzt  werden,  und  gegebenenfalls  Umbe¬ 
nennungen  vorzunehmen.  Der  zweite  große  Nachteil  von  Ba¬ 
sic  —  die  leidigen  Zeilennummern  —  braucht  uns  dagegen  nur 
noch  wenig  zu  beschäftigen.  Strubs  bietet  alle  Möglichkeiten, 
die  erforderlich  sind,  um  ein  Programm  vollkommen  unabhän¬ 
gig  von  Zeilennummern  zu  schreiben.  Als  erstes  sind  da  natür¬ 
lich  die  oben  besprochenen  Kontrollstrukturen  zu  nennen. 

Darüber  hinaus  können  bei  allen  Sprüngen  Zeilennummern 
durch  Label  (Marken)  ersetzt  werden.  Solche  Label  werden 
durch  das  Zeichen  »£«  gekennzeichnet  und  abgeschlossen 
durch  ein  Leerzeichen,  Doppelpunkt,  Komma  oder  Zeilenen¬ 
de.  Die  dürfen  zwar  reservierte  Basic-Worte  enthalten,  dann 
können  sich  aber  wegen  der  vorhin  schon  erwähnten  Token 
bei  der  Ausgabe  der  Markentabelle  seltsame  Effekte  ergeben. 
Die  Label  werden  definiert,  indem  sie  an  den  Anfang  einer  Zei¬ 
le  gesetzt  werden  und  können  beliebig  lang  sein: 

10  EX-AUSGEBEN: 

20  :  PRINT  "X:";X 
30  RETURN 

200  X=1:GOSUB  EX-AUSGEBEN 
210  X  =  2:GOSUB  EX-AUSGEBEN 

Schließlich  bietet  Strubs  noch  die  Möglichkeit  relativer 
Sprünge.  Diese  dienen  vor  allem  dazu,  kurze  Schleifen  inner¬ 
halb  einer  einzigen  Zeile  zu  konstruieren,  ohne  dafür  extra  ein 
Label  zu  definieren: 

90  NC=NC+1:C=PEEK(NC):IF  C>0  THEN  Z$+CHR$(C): 
GOTO  ETHIS 

Der  Befehl  GOTO  ETHIS  bewirkt  einen  Sprung  an  den  An¬ 
fang  derjenigen  Zeile,  in  der  dieser  Befehl  steht. 

Da  bei  der  Arbeit  mit  Strubs  Quellprogramme  in  der  Regel 
weit  umfangreicher  als  die  Objektprogramme  sind,  bietet 
Strubs  die  EXTERN-DEKLARATION,  die  es  ermöglicht,  Modu- 
le  und  Programmteile  getrennt  zu  übersetzen  und  erst  auf  der 
Objektprogrammebene  zusammenzufügen.  Hierbei  müssen 
die  einzelnen  Programmteile  allerdings  verschiedene  Zeilen¬ 
nummern  belegen.  In  der  Extern-Deklaration  wird  ein  Name 
vereinbart,  unter  dem  ein  Programm  ein  externes  Modul  an¬ 
sprechen  kann.  Diesen  Namen  wird  die  Einsprungadresse 
(bei  Maschinenprogrammen)  beziehungsweise  die  Zeilen¬ 
nummer  bei  Basic-Routinen  zugewiesen: 

20  REM  VEREINBARUNG: 

30  I  EXT:  £MAPRO:740,£PLOT:  50000 

90  REM  AUFRUF: 

99  SYS  EMAPRO:  X=13:Y=90:GOSUB  EPLOT 

Kommen  wir  zur  Dokumentation:  Vom  Hobby- Programmie¬ 
rer  kann  kein  Mensch  erwarten,  daß  er  Berge  von  Dokumenta¬ 
tionsmaterial  anlegt,  die  den  Umfang  des  Programmtextes  um 
ein  Vielfaches  übersteigen.  Deshalb  ist  es  gerade  hier  wichtig, 
Programme  weitgehend  selbstdokumentierend  zu  schreiben. 
Im  Gegensatz  zu  höheren  Programmiersprachen  mit  ihren 
zahlreichen  Deklarationspflichten  ist  der  Basic-Programmierer 
nahezu  ausschließlich  auf  Kommentare  angewiesen.  Da 
Strubs  Kommentare  bei  der  Übersetzung  eliminiert,  stehlen 


Bild  5. 

Struktogramm  der 
Loop-Schleife 


diese  weder  Speicherplatz  noch  Laufzeit.  Der  Programmierer 
kann  also  ohne  Bedenken  einen  exzessiven  Gebrauch  von 
Kommentaren  machen. 

Kommentare  werden  gekennzeichnet  durch  das  Zeichen 
»  ’ «.  Steht  dieses  Zeichen  direkt  am  Zeilenanfang,  so  wird  die 
ganze  Zeile  gelöscht.  Sonst  wird  der  Programmtext  bis  zum 
zweiten  »  ’ « oder  bis  zum  Zeilenende  überlesen.  Außer  inner¬ 
halb  von  Befehls-  und  Markennamen  können  Kommentare  an 
jeder  beliebigen  Programmstelle  eingefügt  werden.  Kommen¬ 
tare,  die  in  das  Objektprogramm  übernommen  werden  sollen, 
können  wie  bisher  mit  REM  in  den  Programmtext  eingefügt 
werden.  Beispiel: 

10  '  DIESE  ZEILE  WIRD  VOLLSTÄNDIG  GELÖSCHT 
20  A  a’US  a’G  aÄBE  ä$="ENTSPRICHT  AG$” 
KOMMENTAR 

Die  Lesbarkeit  von  strukturierten  Programmen  wird  verbes¬ 
sert  durch  das  Einrücken  von  Zeilen  entsprechend  der  Block¬ 
struktur.  Hierzu  dient  der  Tabulator  (Bild  4):  Ein  Doppelpunkt 
am  Zeilenanfang  gefolgt  von  Leerzeichen. 

Wenn  Sie  Quellprogramme  schreiben,  achten  Sie  vor  allem 
auf  folgendes:  Jeder  der  neuen  Befehle  muß  durch  ein  Ausru¬ 
fezeichen  gekennzeichnet  werden,  zum  Beispiel  IREPEAT, 
und  benötigt  —  außer !  DO  —  eine  eigene  Programmzeile.  Fol¬ 
gende  Konstruktion  ist  also  zum  Beispiel  nicht  erlaubt: 

40  IREPEAT  X=X+1  !UNTILX>5 

Marken  beginnen  grundsätzlich  mit  einem  Pfund-Zeichen  £. 
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Um  die  Korrektheit  von  Konstruktionen  zu  überprüfen,  kön¬ 
nen  Sie  die  Syntax-Diagramme  in  Bild  6  benutzen.  Wenn  sich 
ein  Weg  entlang  der  Linien  finden  läßt,  der  der  Konstruktion 
entspricht,  dann  ist  diese  in  Ordnung.  Sie  können  sich  aber 
auch  an  den  verschiedenen  Beispielen  im  Rahmen  dieses  Arti¬ 
kels  orientieren. 

Das  beste  Beispiel  für  ein  Quellprogramm  erhalten  Sie, 
wenn  Sie  die  Programmdiskette  mit  dem  Programm  Strubs  be¬ 
stellen.  Diese  Diskette  enthält  neben  dem  lauffähigen  Objekt¬ 
programm  auch  das  ausführlich  dokumentierte  Quellpro¬ 
gramm  von  Strubs,  dessen  Abdruck  aus  Platzgründen  nicht 
möglich  ist. 


Programmentwicklung  mit  Strubs 


Bei  der  Blockschachtelung  ist  darauf  zu  achten,  daß  sich 
verschiedene  Blöcke  nicht  überschneiden  dürfen  und  daß  je¬ 
der  Block  korrekt  abgeschlossen  wird.  Hierbei  kann  man  sich 
immer  das  Beispiel  der  FOR-NEXT-Schleifen  in  Basic  vor  Au¬ 
gen  halten.  Vollkommen  unmöglich  ist  beispielsweise  folgen¬ 
de  Konstruktion: 

10  IREPEAT 
20  :  IWHILE  ...  IDO 
30  IUNTIL  ... 

40  :  IEWHILE 

Nun  wird  es  aber  allmählich  Zeit,  mit  der  Praxis  zu  beginnen. 
Laden  Sie  das  Programm  Strubs  in  Ihren  Computer  und  starten 
es  mit  »RUN«.  Nun  erscheint  ein  Menü.  Geben  Sie  hier  »E«  ein, 
um  in  den  Editbereich  zu  gelangen  (siehe  dazu  die  erste  Fol¬ 
ge).  Der  Computer  meldet  sich  mit  »READY«,  das  heißt  also, 
Sie  befinden  sich  jetzt  im  Direktmodus.  Hier  können  Sie  nun 
(fast)  so  arbeiten,  als  sei  Strubs  gar  nicht  vorhanden.  Geben 
Sie  zunächst  »NEW«  ein.  Jetzt  können  Sie  das  kleine  Pro¬ 
gramm  aus  Bild  7  eintippen  und  wie  sonst  gewohnt  mit  »SAVE 
”RENUMBER.QP”,8«  abspeichern. 

Mit  diesem  »QP«  hat  es  folgende  Bewandtnis:  Bei  Compilern 
ist  es  allgemein  üblich,  die  verschiedenen  Files,  die  zu  den  ein¬ 
zelnen  Phasen  der  Übersetzung  gehören,  einheitlich  zu  kenn¬ 
zeichnen,  der  Austro-Compiler,  arbeitet  zum  Beispiel  mit  den 
Files  »name«,  *p/name«,  »z/name«  und  »c/name«.  Um  Quell¬ 
programme  und  Objektprogramme  auseinanderhalten  zu  kön¬ 
nen,  sollten  Sie  sich  entsprechend  von  Anfang  an  daran  ge¬ 
wöhnen,  dem  Programm  immer  ein  »QP«  für  Quellprogramm 
beziehungsweise  ein  »OP«  für  Objektprogramm  hinzuzufü¬ 
gen.  Nun  kann  das  Programm  übersetzt  werden.  Geben  Sie 
ein  »IRETURN«  und  es  erscheint  das  Menü  von  Strubs.  Die 
Übersetzung  wird  mit  »U«  gewählt.  Strubs  fragt  nun  nach  dem 


Namen  für  das  Objektprogramm.  Geben  Sie  ein:  RENUM- 
BER.OP.  Da  das  übersetzte  Programm  direkt  auf  Diskette  ge¬ 
schrieben  wird,  achten  Sie  darauf,  daß  die  Floppy  eingeschal¬ 
tet  ist.  Nun  erscheint  auf  dem  Schirm  die  Meldung  »1.  Lauf«, 
gefolgt  von  der  Ausgabe  der  Blockstruktur.  Nach  Beendigung 
des  2.  Laufs  sollte  die  Meldung  »0  FEHLER«  erscheinen.  Ist 
dies  der  Fall,  dann  können  Sie  mit  »E«  wieder  in  den  Edit-Be- 
reich  gelangen.  Hier  steht  immer  noch  das  Quellprogramm. 
Um  sich  das  übersetzte  Programm  anzusehen,  laden  Sie  es 
mit  »LOAD  "RENUMBER.OP’’,8«.  Es  sollte  mit  dem  Listing  in 
Bild  8  übereinstimmen.  Aber  starten  Sie  das  Programm  nicht. 

Jetzt  übersetzen  Sie  einmal  genauso  verschiedene  kleine 
Testprogramme  — testen  Sie  doch  einmal  die  LOOP,  REPEAT-, 
und  WHILE-Befehle  —  und  sehen  sich  die  Ergebnisse  an.  Da¬ 
bei  werden  Sie  feststellen,  daß  einige  Bedingungen  im  Objekt¬ 
programm  in  negierter  Form  erscheinen.  Daß  Basic  keine  bool- 
schen  Variablen  kennt,  hat  eine  wichtige  Konsequenz:  Beim 
Test,  ob  eine  Variable  ungleich  0  ist,  darf  man  nicht  —  wie  dies 
normalerweise  häufig  in  Basic  formuliert  wird  —  beispielswei¬ 
se  schreiben 
IF  A  THEN  .... 

sondern  muß  bei  jeder  Bedingung  die  vollständige  Form 
IF  AoOTHEN  ... 

verwenden.  Dies  liegt  daran,  daß  die  Bedingung  NOT(A)  außer 
für  —1  immer  erfüllt  ist. 

Zweitens  kann  man  sehen,  daß  in  den  Objektprogrammen 
manchmal  neue  Zeilen  auftauchen,  die  das  Quellprogramm 
nicht  enthielt.  Strubs  generiert  solche  Zeilen  als  Sprungziele. 
Damit  immer  Platz  für  solche  Zeilen  ist,  sollte  der  Abstand  der 
Zeilennummern  im  Quellprogramm  immer  mindestens  2  betra¬ 
gen. 

Ist  bisher  alles  wie  oben  beschrieben  verlaufen,  dann  kön¬ 
nen  Cie  sich  freuen.  Sind  irgendwelche  Fehler  aufgetreten, 
dann  vergleichen  Sie  noch  einmal  genau  das  Testprogramm 
mit  dem  Listing  in  Bild  7  und  hoffen  Sie,  daß  der  Fehler  hier 
liegt.  Wenn  Sie  keine  Abweichungen  feststellen,  dann  haben 
Sie  Pech  —  Sie  haben  das  Programm  Strubs  falsch  eingetippt. 

Wie  steht  es  aber  mit  Fehlern  im  Quellprogramm?  Syntax- 
Fehler  können  sich  auf  drei  verschiedene  Arten  bemerkbar 
machen:  Vor  allem  Fehler,  die  nicht  mit  den  neuen  Befehlen  Zu¬ 
sammenhängen,  führen  wie  gewohnt  beim  Lauf  des  Objekt¬ 
programms  zu  den  bekannten  Fehlermeldungen.  Fehler  in  be¬ 
zug  auf  die  neuen  Befehle  quittiert  Strubs  mit  Abbruch  der 
Übersetzung,  falls  eine  Fortsetzung  nicht  sinnvoll  erscheint, 
oder  mit  Eintragung  in  eine  Fehlerliste  und  gleichzeitiger  Kenn¬ 
zeichnung  der  fehlerhaften  Zeile  im  Objektprogramm.  Die  Feh¬ 
lerliste  kann  man  sich  mit  »F«  ansehen. 

Ein  Abbruch  der  Übersetzung  mit  entsprechender  Fehler¬ 
meldung  am  Bildschirm  erfolgt  vor  allem  bei  Verstößen  gegen 
die  Blockstruktur  (und  bei  Speicherplatzproblemen  wie  Stack- 


54990  '********  RENUMBER  *************** 

55800  £RENUMBER:  PRINT"3  *****  RENUMBER  ******" 

55010  ZR=40*256+1 :  INPIJT"SM  STRRTNR. " ; ZN '  INPUT  "  SCHRITTWEITE"; SW 


Bild  7.  Das  Quellprogramm  des 
RENUMBER-Befehls 


55020 
55030 
55040 
55050 
55060 
55070  RETURN 

RERDV. 


LÜOP 

I FPEEK <  ZR+ 1 ) =0THEN  IEXIT  'FERTIC 

HX=ZN/25S :  POKE  ZR+2 ,  ZN-HX#256  ••  POKE  ZR+3 ,  HK :  ZP=PEEK  <  ZR  > +256*PEEK  <  ZR+ 1  > 
ZN=ZN+SW 
ELOOP 


Bild  8.  Das  von  Strubs  erzeugte 
Objektprogramm.  Wie  es  in  Strubs 
einzufügen  ist,  steht  auf  Seite  107. 


55000  PRINT "3  *****  REHUMBER  *****.*." 

55010  Zfi=40*256+LINPUT"KH  STRRTNR. " ; ZN :  INPUT"  SCHRITTWEITE" ; SH 
55020  '• 

55030  I FPEEK  <  ZR+ 1 ) =0THEN5506 1 

55040  HX=ZH/256 : PQKEZR+2, ZN-HZ*256 ■ POKEZfi+3, HZ : ZR=PEEK<ZR)+256*PEEK(ZR+1 > 
55050  ZN=ZN+SW 

55060  OOTO55020 

55061  • 

55070  RETURN 

RERDV. 
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Overflow  oder  Listen  voll).  Bei  Fehlern  mit  den  Blöcken  —  zum 
Beispiel  vor  einem  ELSE  fehlt  das  IF  oder  zu  einem  WHILE 
fehlt  das  EWHILE  etc.  —  gibt  es  ein  Problem,  das  nicht  nur  bei 
Strubs,  sondern  generell  bei  allem  Compilern  auftaucht:  Der 
Fehler  wird  nicht  an  der  Stelle  seines  Auftretens  bemerkt,  son¬ 
dern  erst  viel  später.  Die  Zeilennummer  bei  einer  Fehlermel¬ 
dung  wie  »BLOCKSCHACHTELUNG:  ANFANG  FEHLT«,  sagt 
also  nichts  weiter  aus,  als  daß  der  Fehler  erst  hier  bemerkt  wur¬ 
de.  Um  bei  der  Suche  nach  dem  Fehler  zu  helfen,  gibt  Strubs 
aber  während  der  Übersetzung  ein  Schema  der  Blockstruktur 
aus,  mit  dessen  Hilfe  sich  solche  Fehler  leicht  lokalisieren  las¬ 
sen.  Bei  Meldungen  wie  »zu  viele  Marken«,  »zu  viele  WHILE/ 
REPEAT«  etc.  empfiehlt  es  sich,  das  Programm  in  kleinere  Tei¬ 
le  zu  zerlegen,  diese  getrennt  zu  übersetzen  und  anschlie¬ 
ßend  wieder  zusammenzufügen. 

Wie  man  dazu  vorgeht,  behandeln  wir  weiter  unten.  Die  ent¬ 
sprechenden  Listen  sind  allerdings  so  großzügig  dimensio¬ 
niert,  daß  dieser  Fall  sehr  selten  eintreten  wird. 

Sollte  während  der  Übersetzung  aus  irgendeinem  Grund  ein 
unkontrollierter  Programmabbruch  erfolgen  (zum  Beispiel 
OUT  OF  MEMORY  ERROR),  dann  empfiehlt  es  sich  mit  »GO¬ 
TO  5000«  dafür  zu  sorgen,  daß  offene  Disk-Files  ordnungsge¬ 
mäß  geschlossen  werden. 

Die  Beseitigung  von  Fehlern,  die  Strubs  bei  der  Überset¬ 
zung  entdeckt,  gestaltet  sich  relativ  einfach:  Notieren  Sie  sich 
die  Zeilennummern  zu  jedem  Fehler  und  schalten  in  den  Edit- 
bereich  (mit  »E«).  Dort  kann  das  Quellprogramm  geändert  wer¬ 
den,  dann  wird  mit »!« und  Wahl  von  »U«  neu  übersetzt.  Da  das 
Quellprogramm  so  lange  im  Edit-Bereich  bleibt,  bis  es  durch 
»NEW«  oder  Laden  eines  anderen  Programms  gelöscht  wird, 
kann  dieser  Vorgang  so  lange  wiederholt  werden,  bis  der  letz¬ 
te  Fehler  beseitigt  ist.  Sobald  die  Übersetzung  mit  der  Mel¬ 
dung  »0  Fehler«  beendet  wird,  geht  es  ans  Testen  des  Objekt¬ 
programms. 

Hierzu  wird  Strubs  durch  Eingabe  von  »S«  verlassen.  Da¬ 
durch  wird  ein  Kaltstart  ausgeführt,  der  die  Interpretererweite¬ 
rung  abschaltet  und  den  Speicher  säubert.  Nun  laden  Sie  das 
Objektprogramm  unter  dem  Namen,  den  Sie  bei  der  Überset¬ 
zung  angegeben  haben,  und  starten  es  mit  RUN.  Dieses  Pro¬ 
gramm  wird  nun  wie  jedes  normale  Basic-Programm  ausgete¬ 
stet.  Dazu  können  selbstverständlich  auch  Toolkits  mit 
TRACE-  und  DUMP-Funktionen  verwendet  werden.  Da  die 
Zeilennummern  denen  des  Quellprogramms  entsprechen, 
empfiehlt  es  sich,  ein  Listing  des  Quellprogramms  zur  Hand  zu 
haben.  Fehler  in  der  Programmlogik  lassen  sich  damit  leichter 
finden  und  beheben. 

Die  Bequemlichkeit,  die  Strubs  dadurch  bietet,  daß  Pro¬ 
grammänderungen  und  Verbesserungen  im  Objektprogramm 
selbst  vorgenommen  und  sofort  ausgetestet  werden  können, 
erfordert  auf  der  anderen  Seite  allerdings  eine  gewisse  Diszi¬ 
plin,  damit  die  Verbindung  zum  Quellprogramm  nicht  verloren 
geht.  Jede  vorgenommene  Änderung  sollte  sorgfältig  notiert 
und  nicht  zu  viele  Änderungen  auf  einmal  vorgenommen  wer¬ 
den.  Dann  wird  wieder  das  Programm  Strubs  und  das  Quell¬ 
programm  (in  den  Editierbereich)  geladen.  Verbessern  Sie  das 
Quellprogramm  entsprechend  Ihren  Notizen  und  übersetzen 
es  erneut.  Dieser  Vorgang  wird  so  lange  wiederholt,  bis  das  Er¬ 
gebnis  zufriedenstellend  ist. 

Dieser  soeben  beschriebene  Ablauf  kann  allerdings  in  den 
meisten  Fällen  vereinfacht  werden:  Bis  auf  zwei  Ausnahmen 
können  Objektprogramme  auch  direkt  im  Editbereich  getestet 
werden.  Damit  entfällt  die  Notwendigkeit,  Strubs  für  jede  Über¬ 
setzung  neu  zu  laden.  Nach  der  Übersetzung  wird  mit  »E«  der 
Editbereich  gewählt,  dort  das  Objektprogramm  geladen  und 
getestet.  Anschließend  wird  wieder  das  Quellprogramm  in  den 
Editbereich  geladen,  verbessert  und  mit »!«  und  »U«  neu  über¬ 
setzt  und  so  weiter. 

Bei  Programmen,  die  nicht  im  Editbereich  getestet  werden 
können,  handelt  es  sich  erstens  um  Programme,  die  an  ei¬ 


ner  festgelegten  Stelle  im  Speicher  stehen  müssen.  Strubs 
selbst  ist  solch  ein  Programm.  Es  muß  unbedingt  am  normalen 
Basic-Anfang  stehen.  Solche  Programme  sind  allerdings  ziem¬ 
lich  selten.  Häufiger  dagegen  findet  sich  der  zweite  Fall:  Pro¬ 
gramme,  die  den  Speicherbereich  von  700  bis  800  verän¬ 
dern.  Hier  steht  die  in  Folge  1  erwähnte  Interpreter-Erweite¬ 
rung  von  Strubs.  Dadurch  sind  vor  allem  Programme  betroffen, 
die  in  diesem  Bereich  Sprites  oder  Maschinenprogramme  be¬ 
nutzen. 

Kommen  wir  noch  einmal  auf  das  Schreiben  und  Editieren 
von  Quellprogrammen  zurück.  Bisher  haben  wir  nur  davon  ge¬ 
sprochen,  daß  die  Programmtexte  im  Editbereich  editiert  wur¬ 
den.  Diese  Methode  hat  insbesondere  bei  der  Entwicklung 
umfangreicher  Programme  einen  Nachteil:  Da  Strubs  selbst 
mit  einer  Interpreter-Erweiterung  arbeitet,  kann  man  nicht 
gleichzeitig  andere  Interpreter-Erweiterungen  —  zum  Beispiel 
Toolkits  oder  das  DOS  —  benutzen.  Möchte  man  auf  Befehle 
wie  MERGE,  AUTO,  FIND  etc.  nicht  verzichten,  dann  kann  man 
die  Quellprogramme  vollkommen  unabhängig  von  Strubs  ent¬ 
wickeln  und  erst  anschließend  das  fertige  Quellprogramm  in 
den  Editbereich  laden. 

Es  zeigt  sich,  daß  die  meisten  Beschränkungen  bei  der  Ar¬ 
beit  mit  Strubs  ihren  einzigen  Grund  in  der  kleinen  Interpreter- 
Erweiterung  haben.  Wie  bereits  in  der  ersten  Folge  erwähnt, 
besteht  der  einzige  Sinn  dieser  Erweiterung  darin,  das  Starten 
von  Strubs  vom  Editbereich  aus  dadurch  bequemer  zu  gestal¬ 
ten,  daß  die  Befehlsfolge 
POKE  44,8:  RUN 

durch  Eingabe  von  »!«  abgekürzt  werden  kann.  Wenn  Sie  be¬ 
reit  sind,  diese  Befehlsfoige  jedesmal  von  Hand  einzugeben, 
können  Sie  auf  die  Erweiterung  verzichten,  indem  Sie  im  Pro¬ 
gramm  die  Zeilen  45600  bis  45680  einfach  weglassen.  Damit 
fallen  dann  die  oben  erwähnten  Beschränkungen  weg,  das 
heißt  die  unter  Fall  2  erwähnten  Programme  können  im  Editbe¬ 
reich  getestet  werden  und  Strubs  kann  zusammen  mit  einer 
Programmierhilfe  benutzt  werden.  Aber  editieren  Sie  keine 
Quellprogramme  unter  Simons  Basic.  Dazu  sind  weitere  An¬ 
passungen  erforderlich,  auf  die  wir  später  näher  eingehen. 
Insbesondere  wenn  ein  Programm  aus  fertigen  Modulen  zu¬ 
sammengesetzt  werden  soll,  sind  solche  Programmierhilfen 
erforderlich. 

Dieser  Vorgang  verläuft  auf  der  Quellprogramm-Ebene  auf¬ 
grund  der  Unabhängigkeit  von  Zeilennummern  relativ  einfach. 
Die  einzelnen  Programmteile  werden  in  beliebiger  Reihenfolge 
zusammengesetzt.  Dazu  kann  ein  Toolkit  oder  auch  das  kleine 
MERGE-Programm  aus  dem  64'er,  Ausgabe  4/84  benutzt 
werden.  Dabei  können  ruhig  gleiche  Zeilennummern  auftreten 
und  auch  die  Reihenfolge  der  Zeilennummern  ist  beliebig.  An¬ 
schließend  wird  der  fertige  Programmtext  mit  Hilfe  einer 
RENUMBER-Routlne  vernünftig  durchnumeriert.  Da  Basic  kei¬ 
ne  lokalen  Variablen  kennt,  ist  allerdings  vor  dem  Zusammen¬ 
setzen  auf  die  Variablennamen  zu  achten.  Um  unerwünschte 
Seiteneffekte  zu  vermeiden,  sind  eventuell  einige  Umbenen¬ 
nungen  vorzunehmen.  Etwas  aufwendiger  gestaltet  sich  der 
Prozeß,  wenn  verschiedene  Programmteile  erst  auf  der 
Objekt-Ebene  zusammengesetzt  werden  sollen.  Hierbei  ist 
darauf  zu  achten,  daß  sich  die  Bereiche  der  Zeilennummern 
nicht  überschneiden.  Weisen  Sie  jedem  Programmteil  einen 
bestimmten  Zeilennummernbereich  zu  und  verlegen  diesen 
Teil  gegebenenfalls  mit  RENUMBER  in  diesen  Bereich.  An¬ 
schließend  werden  nun  in  jedem  Programmteil  alle  externen 
Routinen,  die  dieser  Teil  aufruft,  mit  Hilfe  der  EXTERN-Deklara- 
tion  vereinbart  (das  sind  die  Routinen,  die  erst  nach  der  Über¬ 
setzung  angefügt  werden).  Das  oben  für  die  Variablennamen 
Gesagte  gilt  hier  entsprechend.  Jetzt  können  die  einzelnen 
Teile  getrennt  übersetzt  und  anschließend  in  der  richtigen  Rei¬ 
henfolge  verknüpft  werden. 

Falls  Sie  keine  Erweiterung  besitzen,  dann  können  Sie 
Strubs  um  eine  RENUMBER-Routine  erweitern:  Fügen  Sie  die 
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Zeilen  aus  Bild  8  in  das  Objektprogramm  von  Strubs  ein  —  und, 
falls  Sie  das  Quellprogramm  besitzen,  dort  entsprechend  die 
Zeilen  aus  Bild  7.  Um  nun  diese  Routine  anzubinden,  müssen 
nur  noch  zwei  Zeilen  in  das  Menü  eingefügt  werden: 

40110  PRINT  "[CDOWNj  [REV  ON)  R  (REV  OFFJENUMBER” 
und 

40210  IF  L$="R"  THEN  GOSUB  55000:  GOTO  40050 
beziehungsweise  für  das  Quellprogramm: 

40210  IF  Z$=”R”  THEN  GOSUB  ERENUMBER:  GOTO 
EMENUE 

Diese  Routine  kann  dann  mit  »R«  aufgerufen  werden,  um  ein 
Programm,  das  sich  im  Editbereich  befindet,  umzunumerie¬ 
ren.  Das  Programm  Strubs  arbeitet  nicht  mit  der  Datasette, 
sondern  es  benötigt  eine  Floppy.  Damit  der  für  Strubs  unter¬ 
halb  des  Edit-Bereichs  reservierte  Platz  nicht  überschritten 
wird,  ist  darauf  zu  achten,  daß  beim  Eintippen  des  Programms 
keine  Blanks  eingefügt  werden. 

Der  Editbereich  beginnt  bei  40*256+1.  Vor  dem  1.  Start 
von  Strubs  läßt  sich  mit  PEEK(46)  feststellen,  ob  Strubs  diese 
Grenze  nicht  überschreitet  (der  Wert  muß  kleiner  als  40  sein, 
im  Originalprogramm  liegt  er  bei  34). 

Da  Strubs  den  Zeiger  für  »Variablen-Anfang«  heraufsetzt, 
sollte  es  immer  von  dem  1.  Start  abgespeichert  werden  (auch 
bei  Veränderungen).  Sollte  man  dies  einmal  vergessen,  kann 
man  durch  »POKE  46,39:CLR«  vor  dem  Abspeichern  Strubs 
in  die  richtigen  Grenzen  verweisen.  Die  notwendigen  Ände¬ 
rungen  für  VC  20  (mit  16  KByte)  sind  dem  Bild  9  zu  entneh¬ 
men,  Hier  beginnt  der  Editbereich  bei  46*256+1. 


Zusätzliche  Funktionen 


Die  strukturierte  Programmierung  bietet  vor  allem  Vorteile  in 
bezug  auf  Wartung,  Änderungen  und  Erweiterbarkeit  von  Pro¬ 
grammen.  Dies  gilt  auch  für  das  Programm  Strubs.  Um  in  den 
Genuß  dieser  Vorteile  zu  gelangen,  ist  allerdings  der  Zugang 
zum  Quellprogramm  erforderlich.  Wenn  Sie  sich  das  Objekt¬ 
programm  ansehen,  werden  Sie  feststellen,  daß  es  auch  nicht 
viel  aussagekräftiger  als  ein  unkommentiertes  Assemblerli- 
sting  ist.  Wenn  Sie  an  der  Entwicklung  eigener  Programmer¬ 
weiterungen  interessiert  sind,  sollten  Sie  sich  deshalb  beim 
Verlag  das  Quellprogramm  besorgen.  Da  ich  hier  davon  ausge¬ 
hen  muß,  daß  die  meisten  Leser  das  Quellprogramm  nicht  be¬ 
sitzen,  lohnt  es  sich  gar  nicht  erst,  systematisch  die  einzelnen 
Programmteile  vorzustellen. 

Statt  dessen  wollen  wir  nur  die  für  Programmerweiterungen 
wichtigsten  Programmelemente  vorstellen  und  anhand  einiger 
exemplarischer  Erweiterungen,  die  auch  ohne  sich  weitere 
Gedanken  zu  machen,  einfach  eingetippt  werden  können,  auf¬ 
zeigen,  wie  man  Erweiterungen  implementieren  kann  und  was 
dabei  zu  beachten  ist.  Aus  dem  gleichen  Grund  geben  wir  nur 


die  Änderungen  an,  die  im  Objektprogramm  vorzunehmen 
sind.  Eine  Anpassung  an  das  Quellprogramm  dürfte  keine  Pro¬ 
bleme  bereiten. 

Achten  Sie  bei  allen  Programmänderungen  darauf,  daß  das 
geänderte  Programm  abgespeichert  wird,  bevor  es  zum  er¬ 
sten  Mal  gestartet  wird,  da  das  Programm  den  Zeiger  auf  das 
Programmende  verstellt.  Sollte  das  Programm  durch  Erweite¬ 
rungen  so  lang  werden,  daß  es  in  den  Editbereich  hineinreicht, 
kann  der  Anfang  des  Editbereichs  in  Schritten  zu  256  Byte 
nach  oben  verschoben  werden,  um  Platz  zu  schaffen.  Dazu  ist 
in  den  Zeilen  70  bis  80  die  Zahl  40  überall,  wo  sie  auftaucht, 
durch  eine  größere  Zahl  (jeweils  4  für  jedes  Kilobyte)  zu  erset¬ 
zen. 


Die  wichtigsten  Programmelemente 

Eine  grobe  Übersicht  über  den  Aufbau  des  Programms  ha¬ 
ben  wir  bereits  gegeben.  Bevor  wir  uns  nun  mit  einzelnen  Er¬ 
weiterungen  beschäftigen,  wollen  wir  zunächst  einmal  die 
wichtigsten  Programmelemente  vorstellen,  die  man  für  Ände¬ 
rungen  und  Erweiterungen  des  Programms  benötigt.  Wie  be¬ 
reits  erwähnt,  liest  Strubs  das  Quellprogramm  zweimal  vom 
Anfang  bis  zum  Ende  durch.  Um  Zeit  zu  sparen,  wird  im  1.  Lauf 
nur  jeweils  der  Anfang  einer  Zeile  untersucht.  Deshalb  müssen 
alle  Befehle,  die  bereits  im  1.  Lauf  zu  behandeln  sind,  auch  am 
Anfang  einer  Zeile  stehen,  während  Befehle,  die  nur  im  2.  Lauf 
behandelt  werden,  überall  stehen  können.  Ein  Beispiel: 

Die  Definition  von  Marken  muß  am  Zeilenanfang  erfolgen, 
während  der  Aufruf  von  Marken  an  jeder  Stelle  erfolgen  kann. 
Die  Aufgabe  des  1 .  Laufs  besteht  darin,  verschiedene  Tabellen 
anzulegen,  mit  deren  Hilfe  dann  im  2.  Lauf  das  endgültige  Ob- 
jektprogtan  m  erzeugt  wird. 

Jede  dieser  Tabellen  besteht  aus  einem  oder  mehreren  Ar- 
ray(s),  einer  Variablen,  deren  zweiter  Buchstabe  ein  »M«  für 
»Maximal«  ist  und  die  Dimension,  das  heißt  die  maximale  Zahl 
von  Einträgen  festlegt,  und  aus  einer  Variablen,  deren  zweiter 
Buchstabe  ein  »P«  für  »Pointer«  ist  und  die  auf  den  jeweils 
nächsten  freien  Listenplatz  zeigt.  Bei  Speicherplatzproblemen 
brauchen  nur  die  Werte  der  Dimensionsvariablen  im  Init-Teil  ge¬ 
ändert  zu  werden.  Möchte  man  zum  Beispiel  mehr  als  99  Mar¬ 
ken  (die  jetzige  Maximalzahl)  benutzen,  dann  schreibt  man  in 
Zeile  45060  zum  Beispiel  »MM=150:...«. 

Die  Tabellen  werden  in  den  Zeilen  45050  bis  45200  defi¬ 
niert  (Bild  10).  Die  Dimension  des  Stacks  bestimmt  die  mögli¬ 
che  Schachtelungstiefe.  Dazu  kommen  die  Tabellen  der  neuen 
Befehle  (Zeile  45260  bis  45274)  und  der  Fehlermeldungen 
(Zeile  45480  bis  45514). 

Dem  schrittweisen  Lesen  des  Quellprogramms  dienen  die 
Variablen  C  und  NC.  Die  Variable  C  enthält  den  Code  des  je¬ 
weils  zuletzt  gelesenen  Zeichens,  wobei  der  Wert  0  ein  Zeilen- 


40050 

40052 

40053 
40055 
40053 
40868 


FRINT"T ; " 

PRINT  "  *  —  STRUBS  —  #" 
PRINT  "  *  PRECOMPILER  *" 
PRINT  "  *  BITTE  UfiEHLEN  #" 
PRINT  "  ****»*********#**" 
PRINT"MÄ»aESDIT" 


Bild  9.  Diese  Änderungen  sind  für  die  Anpassung  von 
Strubs  an  den  VC  20  (mit  mindestens  16  KByte 
Erweiterung)  erforderlich. 


45600  I=0;REfiDW 

45610  POKE704+I»W; 1=1+1 : RERBW : IFU<256THEN45610 
45620  BFITR32  ..115 , 0 , 5,20! ,  33,240,4,40,76,231,199 
45630  DPTR169, 18, 133,44, 169, 138,76,231,199,993 


i5L'**  - STRUBS.  4.  QP  —  ** 

45050  '  **  MfiRKEN-TABELLE : 

45060  filNIT:  tlfTfiX' =39-11  IM  Mfl*(MM),f1Ptf<MM)  :MP=0 
45069  ' 

45120  ' 

45130  '  **  LOOP-TABELLE- 

45131  '  *L0(. . ,0>“ZNR.LOQP 

45132  '  *L0C..,1)-ZHR.  ZUOEHOERIOES  ELOOP 

45135  L'OOP'M' fIX' =  1.40 '-BIM  LO'OP'JCCLrt,  1)  •  L'OOP'P'OINTER/=0 
4513?  ' 

45140  '  **  I P-TP, BELLE : 

45145  lM-flX'-278-:I)II1  IJidM)  :  IP=0 
45149  ' 

4518?  ' 

45189  '  H«N  STfiCK- 

45190  SM'9X'=60d!W  S'TflCK'JKSW) :SP'TR'-0 
45200  ' 

REPrw.  Bild  10.  Tabellen 
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ende  markiert.  Die  Variable  NC  enthält  die  Adresse  des  näch¬ 
sten  zu  lesenden  Zeichens. 

Im  2.  Lauf  wird  zeilenweise  das  Objektprogramm  erzeugt, 
wobei  die  jeweils  aktuelle  Zeile  in  der  Variablen  Z$  aufgebaut 
wird.  Dabei  enthalten  die  beiden  ersten  Zeichen  von  Z$  Low- 
und  Highbyte  der  Zeilennummer  (so  wie  sie  später  im  Spei¬ 
cher  steht),  und  das  letzte  Zeichen  der  fertigen  Zeile  besteht 
aus  dem  Zeichen  CHR$(0). 

Die  relevanten  Zeichencodes,  auf  die  Strubs  reagiert,  wer¬ 
den  in  den  Zeilen  45240  bis  45254  definiert  (Bild  11),  Die  Va¬ 
riable  ZA  enthält  die  Adresse  des  Anfangs  der  Zeile,  die  gera¬ 
de  bearbeitet  wird.  In  EA  steht  die  Startadresse  des  Editbe- 
reichs. 

Damit  kommen  wir  zu  den  für  Erweiterungen  wichtigen  Mo¬ 
dulen  von  Strubs.  Die  Prozedur  »NEXTCHAR«  sucht  ab  Adres¬ 
se  NC  das  nächste  relevante  Zeichen  des  Quellprogrammtex¬ 
tes  und  liefert  dessen  Code  in  der  Variablen  C.  Dabei  werden 
Leerzeichen  (Zeile  250)  und  Kommentare  (Zeile  280-295) 
überlesen.  Strings  werden  direkt  in  die  Ausgabezeile  Z$  über¬ 
tragen  (Zeile  350).  Der  Zeiger  NC  wird  auf  das  nächste  zu  le¬ 
sende  Zeichen  gesetzt.  Die  Prozedur  »HOLNAME«  (Zeile 
750-830)  liest  ab  aktueller  Adresse  NC  einen  Namen  (zum 
Beispiel  Befehl,  Label),  und  zwar  bis  eines  der  Trennzeichen 
»:«,  »,«,  Blank  oder  Zeilenende  erscheint.  Der  Name  wird  in  der 
Variablen  T$  ausgegeben,  C  enthält  das  erste  relevante  Zei¬ 
chen  hinter  dem  Namen  (das  ist  außer  beim  Blank  das  Trenn¬ 
zeichen),  und  NC  zeigt  auf  das  nächste  Zeichen. 

Die  Prozedur  »SCHREIBZEILE«  (Zeile  550-580)  generiert 
auf  der  Diskette  aus  den  nacheinander  eingegebenen  Zeilen 
Z$  das  zusammenhängende  Objektprogramm  und  gibt  die 
Nummer  der  aktuellen  Zeile  auf  dem  Bildschirm  aus.  Die  Varia¬ 
ble  AA  (Linkadresse)  darf  außerhalb  dieser  Routine  nicht  ver¬ 
ändert  werden! 

Die  Prozedur  »ERROR«  (Zeile  8050  bis  8099)  erwartet  als 
Eingabe  einen  Fehlercode  ER.  Dabei  handelt  es  sich  um  den 
Index  der  Fehlermeldung  in  der  Tabelle  der  Fehlermeldungen. 
Die  Zeilennummer  und  die  Fehlermeldung  werden  auf  dem 
Bildschirm  ausgegeben  und  zugleich  in  eine  Fehlertabelle  ein¬ 
getragen,  die  man  sich  nach  der  Übersetzung  auf  Bildschirm 
oder  Drucker  ausgeben  lassen  kann.  Zusätzlich  wird  die  Feh¬ 
lermeldung  in  die  Ausgabezeile  Z$  geschrieben,  so  daß  sie 
auch  im  Objektprogramm  erscheint.  Die  Übersetzung  wird  mit 
der  folgenden  Zeile  fortgesetzt. 

Die  Prozedur  »ABBRUCH«  (Zeile  50000  bis  50030)  sorgt 
für  einen  kontrollierten  Abbruch  der  Übersetzung.  Sie  erwar¬ 
tet  ebenfalls  als  Eingabe  den  Fehlercode  ER  und  gibt  die  ent¬ 
sprechende  Fehlermeldung  aus.  Danach  wird  die  Tabelle  der 
bisher  bemerkten  Fehler  ausgegeben,  offene  Files  ordnungs¬ 
gemäß  geschlossen  und  Strubs  neu  gestartet. 

Die  Prozedur  »WARTEN«  (Zeile  49550  bis  49570)  fordert 
den  Benutzer  auf,  eine  Taste  zu  drücken  und  wartet  auf  den 
Tastendruck. 

Die  Prozedur  »INIT«  (Zeile  45050  bis  45999)  enthält  die  De¬ 
finition  der  Variablen  und  Tabellen  sowie  die  Interpretererwei¬ 
terung. 

Im  »MENÜ«  (Zeile  40050  bis  40495)  können  die  verschie¬ 
denen  Funktionen  angewählt  werden. 

Die  Prozeduren  »BEFEHLE  IM  1.  LAUF«  (Zeile  1550-2497) 
und  »BEFEHLE  IM  2.  LAUF«  (Zeile  2550-3640)  werden  von 


Strubs  aufgerufen,  sobald  im  Quellprogramm  das  Erken¬ 
nungszeichen  »!« für  Befehle  (Code  in  der  Variablen  BE)  ent¬ 
deckt  wird.  Sie  holen  den  Namen  des  Befehls,  suchen  diesen 
in  der  Befehlstabelle  und  rufen  entsprechend  dem  Index  (+1) 
des  Befehls  in  dieser  Tabelle  ein  Unterprogramm  auf.  Falls  der 
Befehl  nicht  in  der  Tabelle  gefunden  wird,  wird  eine  entspre¬ 
chende  Fehlermeldung  ausgegeben.  Im  1.  Lauf  kommt  noch 
die  Ausgabe  der  Blockstruktur  hinzu.  Hierzu  dient  die  Variable 
In  (für  Indentmodus).  IN=0  bedeutet,  auf  der  gleichen 
Schachtelungsebene  zu  bleiben. 

Damit  haben  wir  nun  das  notwendige  Wissen  zusammen, 
um  an  dem  Programm  Strubs  einige  Änderungen  und  Erweite¬ 
rungen  vorzunehmen. 


Andere  Anwendungen 


Bei  den  Programmtexten,  die  Strubs  übersetzt,  handelt  es 
sich  zwar  um  erweiterte  Basic-Programme,  aber  nichtsdesto¬ 
weniger  um  Basic-Programme.  Deshalb  ist  es  relativ  einfach, 
Strubs  auch  zur  Bearbeitung  ganz  normaler  Basic-Programme 
einzusetzen.  Zwei  sinnvolle  Möglichkeiten  wollen  wir  im  fol¬ 
genden  vorstellen. 

1.  Ein  SPEED-UP-Programm,  um  normale  Basic-Programme 
schneller  zu  machen. 

2.  Ein  Programm,  das  besser  lesbare  Listings  erstellt. 

Dabei  ist  zu  beachten,  daß  die  Änderungen,  die  wir  dazu  vor¬ 
nehmen,  nicht  wie  die  Makro-Funktion  eine  Erweiterung  des 
eigentlichen  Programmes  Strubs  und  seiner  Funktion  darstel¬ 
len,  sondern  daß  wir  zwei  völlig  neue  Programme  mit  völlig 
neuen  Aufgaben  erhalten.  Deshalb  sollten  auch  die  erhaltenen 
Pronin  nme  unter  neuen  Namen,  beispielsweise  »SPEED-UP« 
und  »LISTER«,  abgespeichert  werden.  Das  Arbeiten  mit  die¬ 
sen  Programmen  unterscheidet  sich  nicht  von  der  Arbeit  mit 
dem  »normalen«  Strubs-Programm. 


Schnellere  Basic-Programme 


Zunächst  wollen  wir  Strubs  so  ändern,  daß  es  normale  Ba¬ 
sic-Programme  in  Programme  übersetzt,  die  keine  Leerzeichen 
und  Kommentare  mehr  enthalten  und  dadurch  schneller  ab¬ 
laufen.  Wie  Sie  sich  erinnern  werden,  benutzt  Strubs  für  Kom¬ 
mentare,  die  gelöscht  werden  sollen,  ein  eigenes  Zeichen  » '  «. 
Kommentare,  die  mit  REM  gekennzeichnet  werden,  bleiben 
Im  Objektprogramm  erhalten.  Da  Strubs  bereits  alle  Blanks 
entfernt  (außer  in  Strings),  brauchen  wir  nur  noch  dafür  zu  sor¬ 
gen,  daß  Strubs  auf  das  REM-Token  reagiert  wie  bisher  auf  das 
Kommentarzeichen  »'«.  Die  relevanten  Zeichencodes,  auf  die 
Strubs  reagiert,  werden  in  den  Zeilen  45250  bis  45254  defi¬ 
niert  (Bild  11).  Wir  brauchen  nur  in  Zeile  45250  das 
KO=ASC(»'«)  durch  KO=143  (143  ist  das  REM-Token)  erset¬ 
zen,  und  schon  ist  das  Speed-Up-Programm  fertig.  Genauso 
können  Sie  die  Erkennungszeichen  für  Label  und  die  neuen 
Befehle  ändern.  Dies  ist,  um  Konflikte  zu  vermeiden,  für  den 
Fall  sinnvoll,  daß  Sie  mit  Strubs  Programme  für  Interpreterer¬ 
weiterungen  übersetzen,  die  ihrerseits  »I«  oder  das  Pfundzei¬ 
chen  als  Erkennungszeichen  für  ihre  neuen  Befehle  benutzen. 


45240  '  **  RELEVANTE  ZEICHENCODES  m 

45250  DP=RSC  KO '  MMENTRR '  =RSC  "  >  :  LP '  BEL ' =RSC  <  ) :  NIJ$=CHR$  <  0  > :  BL  =RSC  <"  "  > 

45253  BE ' FEHL '  =RSC <"!">: TE •' KT ( " " ) •"  =34 iß' Q •' T O-CODE ' * =CHE$ <  1 37 > 

45254  I'F'C/ ODE ' $=CHR$ ( 1 39 > : TH ' EN-CODE ' = 1 67 : HO ' T' $»CHR$ C 1 63 '■  K OM ' M ' fi-COBE ' =44 

Bild  11.  Relevante  Zeichencodes 
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Haben  Sie  in  Ihren  Listings  häufig  Grafik-  und  Steuerzei¬ 
chen?  Dann  können  Sie  sich  viel  Ärger  ersparen,  wenn  Sie  das 
Listing  vorher  mit  dem  Programm  »LISTER«  aufbereiten.  »Ll- 
STER«  übersetzt  Basic-Programme  in  Programmtexte,  in  de¬ 
nen  die  schwer  entzifferbaren  Steuer-  und  Grafikzeichen  in¬ 
nerhalb  von  Strings  durch  lesbare  Worte  »(CDOWN«)  oder 
»(HOME)«  ersetzt  sind  (Bild  12). 


Listing 

Dazu  ändern  wir  eine  Zeile  innerhalb  der  Prozedur  »NEXT- 
CHAR«.  In  Zeile  350  werden  gelesene  Zeichen  mit  dem 
ASCII-Code  C  innerhalb  von  Strings  direkt  in  die  Ausgabezeile 
Z$  übertragen.  Wenn  wir  nun  in  Zeile  350Z$=Z$+CHR$(C) 
durch  Z$=Z$+C$(C)  ersetzen,  dann  können  wir  ein  Array 
C$(255)  definieren,  das  in  jedem  ASCII-Wert  den  String  ent¬ 
hält,  der  dafür  im  Objektprogramm  erscheinen  soll.  Die  Defini¬ 
tion  dieses  Arrays  gehört  in  das  Modul  »INITIALISIERUNG«: 
45300  DIM  C$(255):FOR  1=0  TO  255:C$(I)=CHR$(I): 
NEXT 

Damit  haben  wir  zugleich  unser  Array  mit  den  normalen  Wer¬ 
ten  vorbesetzt.  Jetzt  bleiben  nur  noch 
45310  C$(17)="(CDOWN)":C$(19)="(HOME)” 

45312  C$(28)=”(ROT)":C$(31)="<BLAU)" 

...  etc. 

Hier  können  Sie  nun  jedem  Zeichen  ein  beliebiges  Wort  zu¬ 
ordnen:  Den  ASCII-Code  der  einzelnen  Zeichen  finden  Sie  im 
C-64  Handbuch  auf  Seite  135  oder  Sie  können  ihn  einfach 
durch  Eingabe  von 
PRINT  ASCf’X”) 

feststellen,  wobei  »X«  für  das  interessierende  Zeichen  steht. 
Bei  sehr  vielen  Zeichen  innerhalb  eines  Strings  kann  es  aller¬ 
dings  Vorkommen,  daß  die  Zeilen  zu  lang  werden.  Deshalb 
sollten  die  Worte  möglichst  kurz  gewählt  werden. 


Makros 


An  einem  etwas  umfangreicheren  Beispiel  wollen  wir  nun 
zeigen,  wie  man  neue  Strubs-Befehle  implementiert  und  wie 
man  die  Prozeduren  von  Strubs  benutzen  kann.  Dies  soll  am 
Beispiel  einer  Makro-Funktion  demonstriert  werden. 

Makros,  vor  allem  von  Assemblern  her  bekannt,  stellen  so 
etwas  wie  Abkürzungen  für  kurze  Programmausschnitte  dar. 
Dadurch  verringert  sich  die  Tipparbeit  und  vor  allem  werden 
die  Quellprogramme  übersichtlicher. 

In  der  Makro-Definition  wird  ein  Makro-Name  definiert  und 
diesem  ein  Programmstück  zugeordnet.  Überall,  wo  nun  im 
Quellprogramm  ein  Makro  aufgerufen  wird,  erscheint  im  Ob¬ 
jektprogramm  an  dieser  Stelle  das  entsprechende  Programm¬ 
stück.  Ein  einmal  definiertes  Makro  kann  wie  ein  Label  beliebig 
oft  aufgerufen  werden. 

Für  die  Definition  eines  Makros  wollen  wir  den  Befehl 
»IDMAKRO«  und  für  den  Aufruf  eines  Makros  den  Befehl  »!M« 
wählen.  Ein  Beispiel  mag  die  Wirkungsweise  der  neuen  Befeh¬ 
le  demonstrieren: 

10  !DMAKRO:NAME  SYS  833:X=PEEK  (878) 

200  PRINT  X:!M,NAME:PRINT  X 


Die  Definitionszeile  1 0  wird  gelöscht,  da  sie  nur  für  die  Über¬ 
setzung  notwendige  Informationen  enthält.  Die  Zeile  200  mit 
dem  Makro-Aufruf  sieht  im  Objektprogramm  folgendermaßen 
aus: 

200  PRINTX:SYS833:X=PEEK(878):PRINTX 

Einige  Beispiele  für  Makros  und  deren  korrekte  Benutzung 
sowie  das  sich  ergebende  Objektprogramm  zeigt  Bild  13.  Vor 
allem  ist  darauf  zu  achten,  daß  Makronamen  wie  alle  Befehls¬ 
und  Labelnamen  mit  einem  der  Trennzeichen  abgeschlossen 
werden  müssen.  Insbesondere  darf  bei  der  Makrodefinition 
und  beim  Aufruf  mit  nachfolgenden  Parametern  (Spritemakros 
in  Zeile  1 20  und  130)  nicht  das  Blank  hinter  dem  Makronamen 
vergessen  werden!  Jede  Makrodefinition  benötigt  eine  eigene 
Zeile.  Eine  Übergabe  von  Parametern  an  ein  Makro  ist  nicht 
möglich.  Achten  Sie  bei  der  Arbeit  mit  Makros  darauf,  daß  die 
entstehenden  Zeilen  des  Objektprogramms  nicht  zu  lang  wer¬ 
den.  Zeilen,  die  länger  als  80  Zeichen  sind,  lassen  sich  nicht 
mehr  editieren.  Zeilen,  die  länger  als  256  Zeichen  werden, 
führen  zum  unkontrollierten  Abbruch  der  Übersetzung  mit 
»String  too  long  error«.  In  diesem  Fall  kann  man  mit  »GOTO 
50000«  die  Nummer  der  verantwortlichen  Zeile  erfahren  und 
offene  Files  schließen. 

Um  die  Übersetzung  zu  ermöglichen,  muß  im  1.  Lauf  eine  Ta¬ 
belle  der  Makronamen  und  der  zugehörigen  Programmaus¬ 
schnitte  angelegt  werden.  Im  2.  Lauf  werden  dann  alle  Aufrufe 
durch  den  zugehörigen  Text  ersetzt.  Die  Verteilung  auf  zwei 
Läufe  bietet  den  Vorteil,  daß  ein  Makro  (ebenso  wie  Label) 
auch  schon  vor  der  Definition  aufgerufen  werden  kann. 

Zur  Implementation  sind  folgende  Schritte  erforderlich:  Zu¬ 
nächst  muß  dem  Übersetzungsprogramm  mitgeteilt  werden, 
daß  es  zwei  neue  Befehle  gibt.  Dann  müssen  wir  die  notwendi¬ 
ge  Tabell“  definieren  und  auch  entsprechende  Fehlermeldun¬ 
gen  vorsehcjn.  Diese  Erweiterungen  gehören  in  den  INITTeil. 

Schließlich  muß  noch  dafür  gesorgt  werden,  daß  Strubs 
weiß,  wie  es  im  1.  und  2.  Lauf  auf  die  neuen  Befehle  zu  reagie¬ 
ren  hat.  Die  Befehlstabelle  wird  in  Zeile  45265  definiert.  Hier 
erhöhen  wir  die  Zahl  der  Befehle  um  2  und  fügen  dann  noch 
eine  DATA-Zeile  mit  den  beiden  neuen  Befehlsnamen  ein: 
45265  BM  =  15:... 

45275  DATA  DMAKRO.M 

Wählt  man  Befehlsnamen,  die  reservierte  Basic-Worte  ent¬ 
halten,  dann  müssen  die  Tokens  berücksichtigt  werden  (wie 
dies  für  IF  in  der  Zeile  45271  geschieht).  Für  einen  Befehl 
»DEFMAKRO«  wäre  zum  Beispiel  BE$(14)=CHR$(150)  + 
"MAKRO"  zu  setzen  (150=DEF-Token). 

Für  die  Tabelle  wählen  wir  ein  Array  NA$(NM,1),  da  der  Name 
M  bereits  für  die  Markentabelle  vergeben  ist.  Die  Dimension 
(..,0)  soll  die  Namen  und  die  Dimension  (..,1)  den  zugehörigen 
Text  aufnehmen. 

45155  NM  =  40:DIM  NA$(NM,1):NP  =  0 

Damit  können  41  Makros  definiert  werden.  Indem  wir  die 
Zahl  der  Fehlermeldungen  von  9  auf  11  erhöhen,  erhalten  wir 
die  beiden  neuen  Fehlercodes  10und11für»zu  viele  Makros« 
und  »Undefiniertes  Makro«. 

45480  EM  =  11:DIM... 

45500  FOR  1=0  TO  EM:READ  ... 

45515  DATA  ”ZU  VIELE  MAKROS",  "UNDEFINIERTES 
MAKRO" 


IS  REM  ****  LI  STER-DEMO  WmKMMMW'M 
30  PR I  NT " 

20  REM  MI RH  ZU- 

39  PR  I  MT "  <CB><CRXCUXCLXRON><RQFXHO>TESTCDELX I HSXUHTXREBXORMXB! .ÜXBIKXP 
URXVELXCYN>" 

RERIi't.  Bild  12.  Beispiellister 


A  Art 
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10  REM  *****  MAKROS  BEISPIELE  ******** 

20  ! BMRKRG : STOPRN  POKE  78$, 49 
! BMflKRO : STQPflUS  POKE  708,52 
!  BMflKRO  •  REflBJOV  ,TS=PEEKt5632?) 

! BMflKRO -WARTE  POKE  198, 0: WA IT  198,1 
!  BMflKRO : CLOSEflLL  SVS  65511 
! BMflKRO 'SPRITEXPOS  POKE  53248*2* 

! BMflKRO 'SPRITEVPOS  pQKE  53249+2* 

! BMflKRO ; SPRITEAN  POKE  53269 , PEEK < 53269 >  OP  2* 


30 

40 

50 

60 

70 

30 

90 

95 

96 
100 
110 
120 
130 
140 


********  AUFRUFE :  ************ 

!  M ,  STOPAUS : !  M ,  CLOSEflLL  MM,  STOPAN 
! M, REflBJOV- PRINT  J3 
! M, SPRITEAN  5- !M, WARTE 
! M , SPP I TEXPOS  5,240: !M, SPRITEVPOS  5,170 
!M, FEHLER 


REP.BV, 

1 0  REM*****MRKROSBE  I  SP  I ELE****.**** 

1 00  P0KE738 , 52  '•  SVS655 1 1  =  P0KE788 , 49 
118  JS-PEEK<5€320> : PRINT JS 

120  P0KE53269,  PEEK <  53269  >0R2  T5 '  POKE  198, 0  '•  WA  IT  19« ,  1 
130  POKE53248+2*5,240:POKE53249+2*5, 170 
140  *****  F.RR: UNDEFINIERTES  MAKRO******** 

EERBV. 


Bild  13.  Beispiele  Makros 


0  *********  SPEED-UP  ***************** 

45250  DP=ASC<"  :K0-143--LB«nSC("«“)  •  NIJ*=CHR*<0)  :BL=RSC<"  “> 

RERDV. 

0  ******  UISTER  ********************* 

350  Z*=2*+C-*<C>'HC=NC+1'C=PEEK<NCVIF  C  AND  COTE  THEN  35? 

R5303  DIR  C£(255>  'EOR  1=0  TO  255 '■  CSC I >=CHR*<  I ) : NEXT 

45310  CSC  17>=”<CD>”  '•  CS<2S)="<CR>"  : C*<145)=”<CU>"  -CtC  157)=“<CL>" 

45312  0*<1®>="<R0N>I".C*<146>="<R0F>"  :C*(19>»"<H0>*  ■C*tl^7)«"<nm>" 
45314  C*<20>=“<DEL>"  ■C*«14e>»"<INS>“ 

45316  C*C3>=“<MHT>"  -C*<2S)="<RED>"  : C*C30>"“<ORN>"  •C*C31>="<BLU>" 

4531?  Ci<!44)="<®LK>'l:C*a56)="<PUR>"-C*(158)="<VEL>,''C*(15R>=,,<W>" 

RERDV. 

0  **********  MAKROS  ****************** 

1571  IF  IM4  THEN  ON  1-14  OOSUB  2350,2380 
2350  IF  NP9NM  THEN  ER=10:OOTO  50000 

2355  Zä= . OOSUB  750:NA*(NP,0)=TS 

2360  Z*»Z*+CHR*<CV-  OOSUB  250:  IF  C08  THEN  2360 
2370  NR*<NP,1)=Z*:NP-NF+1:!N=0 
2375  RETURN 
23=0  IN»0 : RFTURN 

2571  IF  I>14  THEN  ON  1-1«  OOSUB  3700,3750 
37?i>  7*="":c*0: RETURN 
3750  OOSUB  750 

3755  FOR  1=0  TO  NP:!F  Nfl*(I,01OT*  THEN  NEKT 
3760  !F  !>=NP  THEN  OOTO  =050 

3765  Z*-Z**Nfl*a,l):RETURN 
45155  MM-40.D1M  NR*(NM, 1) :NP=0 
45265  BN*15:DIN  BESCBM) 

45275  DATA  DMAKRO,M 

45400  EM*11  DIM  ERXC30 , 1 )  '•  E=*0 'DIM  FRSCFMl 

45500  FDP  '*0  TO  EM: READ  ER*<P  N6XT 

45515  DATA  "ZU  VIELE  MAKROS“ , "UNDEFINIERTES  MAKRO" 
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Bild  14.  Die  besprochenen  Erweiterungen  auf  einen  Blick 

Nun  müssen  wir  in  die  beiden  Module  »BEFEHLE  IM  1. 
LAUF«  beziehungsweise  »BEFEHLE  IM  2.  LAUF«  jeweils  zwei 
Routinen  für  die  neuen  Befehle  einfügen.  Da  die  beiden  Vertei¬ 
lerzeilen  bereits  voll  sind,  legen  wir  zwei  neue  Verteilerzeilen 
an,  die  dann  aber  auch  gleich  für  zehn  weiter,  neue  Befehle 
Platz  bieten: 

1571  IF  I  >  1 4  THEN  ON  1-14  GOSUB  2350,2380 
für  den  1.  Lauf  und 

2571  IF  I  >  1 4  THEN  ON  1-14  GOSUB  3700,3750 
für  den  2.  Lauf. 

Die  Routine  für  »IDMAKRO«  im  1.  Lauf  soll  prüfen,  ob  noch 
Platz  in  unserer  Makro-Tabelle  ist  und,  falls  nicht,  mit  entspre¬ 
chendem  Fehlercode  die  Abbruch-Routine  anspringen: 
2350  IF  NP>NM  THEN  ER=10:GOTO  50000 


Bild  15.  Variablenliste 

Jetzt  können  wir  mit  Hilfe  der  Prozedur  »HOLNAME«  den 
Makro-Namen  lesen  und  in  unserer  Tabelle  speichern: 

2355  Z$="":GOSUB750:NA$(NP,0)=T$ 

Nun  übertragen  wir  den  Rest  der  Definitionszeile  mit  Hilfe 
von  »NEXTCHAR«  nach  Z$  (dadurch  werden  auch  Strings  mit 
übertragen.  Als  Ausgabezeile  dient  Z$  ja  erst  im  2.  Lauf). 
2360  Z$=Z$+CHR$(C):GOSUB  250:IF  C<>0  THEN 
2360 

Nun  brauchen  wir  nur  noch  den  Text  in  die  Tabelle  aufzuneh¬ 
men,  den  Zeiger  zu  erhöhen  und  den  Indentmodus  angeben. 
2370  NA$(NP,1)=Z$:NP=NP+1:IN=0 
2375  RETURN 

Der  Aufruf  eines  Makros  interessiert  im  1.  Lauf  nicht,  also: 
2380  IN=0:RETURN 

Im  2.  Lauf  soll  die  Definitionszeile  gelöscht  werden.  Dazu  lö¬ 
schen  wir  den  Ausgabestring  und  weisen  C  den  Code  für  Zei¬ 
lenende  zu: 

3700  Z$="”:C=0:RETURN 

Beim  Aufruf  eines  Makros  mit  »!M«  holen  wir  zunächst  den 
Namen  des  Makros  mit  »HOLNAME«  und  suchen  ihn  in  der  Ta¬ 
belle: 
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3750  GOSUB  750 

3755  FOR  1=0  TO  NP:  IF  NA$(l,0)<  >T$  THEN  NEXT 
Falls  der  Name  nicht  gefunden  wird,  erfolgt  ein  Sprung  zur 
Error-Routine  mit  dem  Code  für  »Undefiniertes  Makro«: 

3760  IF  l>NP  THEN  ER=11:  GOTO  8050 
Nun  ist  nur  noch  das  definierte  Programmstück  in  die  Ausga¬ 
bezeile  zu  übertragen: 

3760  Z$=Z$+NA$(I,1):RETURN 
Dadurch,  daß  diese  Makro-Erweiterung  Zeile  für  Zeile  be¬ 
sprochen  wurde,  um  zu  zeigen,  wie  man  die  von  Strubs  vorge¬ 
gebenen  Prozeduren  benutzen  kann,  ist  vielleicht  der  Ein¬ 
druck  entstanden,  eine  solche  Erweiterung  sei  relativ  kompli¬ 
ziert.  Wenn  Sie  sich  aber  das  Ganze  noch  einmal  genauer  an- 
sehen,  können  Sie  feststellen,  daß  für  die  Implementation  neu¬ 
er  Befehle  im  Prinzip  nur  drei  Schritte  erforderlich  sind: 

1.  Eintrag  der  neuen  Befehlsnamen  in  die  Befehlstabelle 

2.  Einfügen  der  entsprechenden  Routinen 

3.  Eintrag  der  Adressen  dieser  Routinen  in  die  beiden  Vertei¬ 
lerzeilen 

Die  ganze  Arbeit  des  Suchens  und  Decodierens  übernimmt 
Strubs  automatisch. 

Wie  neue  Funktionen  (beispielsweise  die  Ausgabe  der 
Makro-Tabelle)  in  das  Menü  aufgenommen  werden  können, 
haben  Sie  bereits  in  der  letzten  Folge  am  Beispiel  der 
RENUMBER-Funktion  gesehen. 

Eine  Zusammenstellung  der  oben  besprochenen  Erweite¬ 
rungen  finden  Sie  in  Bild  14. 


Strubs  und  Interpretererweiterungen 


Wollen  Sie  mit  Strubs  Programme  für  Interpretererweiterun¬ 
gen  bearbeiten,  dann  sind  einige  weitere  Dinge  zu  beachten. 
Entfernen  Sie  zunächst  die  Interpretererweiterung  von  Strubs. 

Falls  die  Erweiterung,  die  Sie  benutzen  wollen,  nicht  in  den 
Editor  eingreift,  sondern  ihre  neuen  Befehle  durch  besondere 
Zeichen  (meistens  »!«)  gekennzeichnet  werden,  dann  ändern 
Sie  wie  bereits  oben  beschrieben  die  entsprechenden  Erken¬ 
nungszeichen,  die  Strubs  benutzt. 

Bei  Erweiterungen  wie  Simons  Basic,  die  in  den  Editor  ein- 
greifen  und  die  neuen  Befehle  wie  der  Basic- Interpreter  durch 
eigene  Tokens  darstellen,  ist  es  am  einfachsten,  den  Strubs- 
Befehlen,  deren  Namen  solche  Befehle  enthalten,  neue  Na¬ 
men  zu  geben.  Im  Fall  von  Simons  Basic  sind  davon  beispiels¬ 
weise  Strubs-Befehle  wie  »IREPEAT«,  »IUNTIL«  oder  »IELSE« 
etc.  betroffen. 

Dazu  sind  nur  die  Namen  in  den  DATA-Zeilen  45272  bis 
45274  zu  ändern.  Sie  können  die  betroffenen  Strubs-Befehle 
aber  auch  wie  oben  am  Beispiel  von  »DEFMAKRO«  beschrie¬ 
ben  aus  den  Tokens  zusammensetzen.  Dabei  ist  aber  zu  be¬ 
rücksichtigen,  daß  die  Token  von  Simons  Basic  aus  zwei  Zei¬ 
chen  und  nicht  wie  die  normalen  Token  aus  nur  einem  Zeichen 
bestehen. 

Eine  Liste  der  von  Strubs  benutzten  Variablen  bietet  Bild  15. 
Dabei  kennzeichnet  das  Zeichen  »*«  Zeilennummern,  in  de¬ 
nen  eine  Wertzuweisung  an  die  Variable  erfolgt. 

Um  sich  an  die  Arbeitsweise  von  Strubs  zu  gewöhnen,  kön¬ 
nen  Sie  das  Quellprogramm  »Menü«  (Listing  2)  eingeben. 
»Menü«  faßt  immer  zehn  Programme  auf  einer  Bildschirm¬ 
seite  zusammen,  die  man  mit  den  Cursor-Tasten  durchblättern 
kann.  Bei  Programmen,  die  größer  sind  als  »Menü«,  muß  in  der 
ersten  Zeile  der  Pointer  auf  das  Basic-Ende  korrigiert  werden 
(siehe  Zeile  1  von  »Menü«,  Listing  3).  Hängt  man  bei  Program¬ 
men,  die  von  »Menü«  geladen  werden  sollen,  an  das  Pro¬ 
grammende  LOAD’’Menü.obj"  ,8  dann  wird  bei  Programmende 
»Menü«  automatisch  geladen  und  gestartet. 

(Matthias  Törk/og) 


5  REM  STRUBS4/4. 9. 83 

51  PRINT" ICLR>  " ; TAB (10) ; "***************** 

<221> 

" 

<  189> 

52  PRINT  TAB  (10)-."*  — STRUBS.  4  —  *" 

55  PRINT  T AB (10) ; " * 1 3SPACE }M . TOERK <5SPACE > 

<  154> 

<  165> 

57  PRINT  TAB (10) ; "*  4352  HERTEN {3SPACEJ*" 

<079> 

58  PRINT  TAB ( 10) ; "*****************" 

70  IF  NOT (PEEK (46) <40  OR (PEEK (46) =40  AND  P 

<  181  > 

EEK  (45X3)  )  THEN  75 

<  103> 

73  POKE  46 , 40: POKE  45,3:P0KE  40*256, 0:CLR 

<062> 

75  : 

<051  > 

80  EA=40*256+1 

<094> 

100  GOSUB  45060 

<057> 

140  GOTO  40050 

<  193> 

250  IF  PEEK (NC) =BL  THEN  NC=NC+l:GOTO  250 

<032> 

260  C=PEEK(NC> 

<054> 

265  IF  COKO  THEN  320 

280  NO=NC+liC=PEEK(NC>  :  IF  C  AND  COKO  THEN 

<  147> 

280 

<222> 

290  IF  C  THEN  NC=NC+1 : C=PEEK (NC) 

<017> 

295  IF  C=BL  THEN  250 

<038> 

320  IF  COTE  THEN  NC=NC+1  s RETURN 

350  ZS=ZS+CHRS(C> :NC=NC+1:C=PEEK(NC> : IF  C 

<  124> 

AND  COTE  THEN  350 

<  164> 

370  NC=NC+1 

<017> 

390  RETURN 

<  194> 

550  IF  LEN  (ZS)  <4  THEN  RETURN 

<013> 

555  PRINT  FN  AD(ZA+2) 

<060> 

560  AA=AA+LEN(ZS)+2 

<075> 

565  H7.=AA/256 

<  1  1  2> 

570  PRINT#1,CHR*(AA-256*H7.)  :CHRS(H7.)  ;ZS; 

<206> 

580  RETURN 

<130> 

750  TS='"' 

<091  > 

790  : 

795  C=PEEK (NC) : IF  C=DP  OR  C=KM  OR  C=BL  OR 

<004> 

C=0  THEN  Bll 

<200> 

800  NC=NC+ 1 :  TS=TS+CHRS ( C  > 

<  126> 

810  GOTO  790 

<  168> 

811  : 

<025> 

820  NC‘=<vi.‘+l  :  IF  C=BL  THEN  GOSUB  250 

<050> 

830  RETURN 

<126> 

1050  GOSUB  750 

<  1 06  > 

1120  IF  NOT <TS="THIS"> THEN  1131 

<252> 

1125  H=FN  AD (ZA+2) 

<  1 15> 

1130  GOTO  1175 

<  103> 

1131  s 

<091  > 

1140  FOR  1=0  TO  MP: IF  MAS ( I > OTSTHEN  NEXT 

<060> 

1160  IF  I >MP  THEN  ER=2:G0T0  8050: 

<110> 

1170  H=MA7.(I)+DI 

<164> 

1175  : 

<  135> 

1180  ZS=ZS+MIDS(STRS(H) ,2) 

<  102> 

1190  RETURN 

<232> 

1550  GOSUB  750 

<09B> 

1560  FOR  1=0  TO  BM:  IF  TSOBES  ( I )  THEN  NEXT 

<098> 

1565  IF  I >BM  THEN  ER=0:GOTO  B050 

<237> 

1567  BS— BES ( I ) : IF  1=3  THEN  BS="IF" 

<  189> 

1569  1=1+1 

1570  ON  I  GOSUB  1 600 , 1 6B0 , 1640 ,2010 , 2040 , 2 
100,2160,2210,2260,2400,1710,1740,181 

<028> 

0,1860 

<  187> 

1574  PRINT  FN  AD ( ZA+2) ; 

<242> 

1575  IF  IN=0  THEN  PRINT  TAB (TA) s BS: RETURN 
1577  IF  IN=1  THEN  PRINT  TAB (TA) ; BS: TA=TA+1 

<241  > 

: RETURN 

1579  IF  IN=2  THEN  PRINT  TAB (TA-1 > j BS: RETUR 

<094> 

N 

15B1  IF  IN=3  THEN  TA=TA-1 : PRINT  TAB (TA) ; BS 

<048> 

: RETURN 

<235> 

1586  RETURN 

<  120> 

1600  IF  SP>SM  THEN  ER=3:S0T0  50000 

<031  > 

1605  IF  LP>LM  THEN  ER=5:GOTO  50000 

1610  S7.(SP)=LP:SP=SP+1:LO7.(LP,0)=FN  AD(ZA+ 

<075> 

2>-DI:LP=LP+l 

<122> 

1615  IN=1: RETURN 

<024> 

1640  SP=SP-1:IF  SP<0  THEN  ER=l:GOTO  50000 

<077> 

1650  L07.(S7.(SP)  ,1)=FN  AD  (ZA+2) -DI 

<  173> 

1660  IN=3: RETURN 

<  133> 

1680  IN=0: RETURN 

<057> 

1710  GOSUB  1600: RETURN 

<153> 

1740  GOSUB  1640: RETURN 

<055> 

1B10  GOSUB  1600: RETURN 

<255> 

1060  GOSUB  1640: RETURN 

<  177> 

2010  IF  SP >SM  THEN  ER=3:G0T0  50000 

<1B7> 

2011  IF  IP>IM  THEN  ER=4: GOTD  50000 

Listing  1.  Das  Objektprogramm  Strubs. 

<250> 

Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  16. 
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2020 

S7.  (SP)  =IP:  IP=IP+1:SP=SP+1 

<  1 19> 

3400 

Z*="  ,,:C=0:  RETURN 

<033> 

2025 

IN=ls RETURN 

<  1  B0> 

3450 

GOSUB  2590 

<225> 

2040 

IF  SP<1  THEN  ER=1 : GOTO  50000 

<045> 

3460 

Z*=Z*+IC*+NO*+” (" 

<213> 

2041 

IF  IP>IM  THEN  ER=4: GOTO  50000 

<024> 

3470 

IF  COBE  AND  C  THEN  Z*=Z*+CHR*  (C) :  GOS 

2044 

I7.(S7.(SP-1)  >=FN  AD(ZA+2)+l-DI 

<052> 

UB  250: GOTO  3470 

<039> 

2050 

87.  (SP— 1  >  =IPs  IP=IP+1 

<  167> 

3480 

Z*=Z*+") "+CHR*(TH> 

<068> 

2052 

IN=2: RETURN 

<241  > 

3490 

Z*=Z*+MID*  (STR*  (L07.  (SV.  (SP-1  >  ,  1 )  +DI  +  1 ) 

2100 

IF  SP<1  THEN  ER=1 : GOTO  50000 

<  107> 

,2) 

<  139> 

2105 

SP=SP-1:  I7.(S7.(SP)  >=FN  AD(ZA+2)-DI 

<214> 

3495 

C=0: RETURN 

<0B0> 

2107 

IN=3: RETURN 

<072> 

3550 

GOSUB  2630: RETURN 

<063> 

2160 

IF  SP >SM  THEN  ER=3:G0T0  50000 

<0B3> 

3580 

GOSUB  2590: RETURN 

<014> 

2165 

S7.  (SP)  =-l :  SP=SP+1 

<042> 

3600 

Z*=Z#+IC*+NO*+" <" 

<099> 

2170 

GOSUB  2010 

<  134> 

3610 

IF  C  THEN  Z#=Z*+CHR*(C> : GOSUB  250: GOT 

2180 

IN=1: RETURN 

<081  > 

0  3610 

<018> 

2210 

GOSUB  2040 

<014> 

3620 

SP=SP-1 : IN=3 

<090> 

2230 

GOSUB  2010 

<  194> 

3630 

Z  *= Z  *+  "  )  "  +CHR*  ( TH )  +M I D*  ( STR#  ( L07.  ( S7.  ( S 

2240 

IN=2: RETURN 

<  1  73> 

P> , 0) +DI ) ,2) 

<253> 

2260 

H=FN  AD  C  ZA+2) —DI 

<020> 

3640 

RETURN 

<142> 

2270 

: 

<214> 

4060 

Z*=CHR* (PEEK( ZA+2) )+CHR*(PEEK( ZA+3) ) 

<029> 

2275 

IF  SP<1  THEN  ER=1 : GOTO  50000 

<026> 

4080 

NC=ZA+4: GOSUB  250 

<068> 

2280 

SP=SP-1:  I=S7.(SP) 

<210> 

4090 

IF  C=DP  THEN  GOSUB  250 

<064> 

2290 

IF  I<0  THEN  2311 

<022> 

4100 

IF  NOT (C=LA> THEN  4110 

<  106> 

2300 

17.(1  >=H 

<240> 

4105 

GOSUB  750: IF  C=DP  THEN  GOSUB  250 

<  12B> 

2310 

GOTO  2270 

<220> 

4108 

IF  C=0  THEN  Z#=Z*+" :  " 

<091  > 

2311 

B 

<001> 

4110 

: 

<022> 

2320 

IN=3: RETURN 

<031  > 

4115 

NC=NC-1 : IF  C=0  THEN  Z*=Z*+NU* 

<064> 

2400 

3 

<090> 

4130 

:  IF  C=0  THEN  4397 

<03B> 

2410 

IF  MP>MM  THEN  ER=6:G0T0  50000 

<206> 

4132 

GOSUB  250 

<100> 

2415 

IF  C  AND  COLA  THEN  GOSUB  250:  GOTO  24 

4150 

IF  NOT (C=BE) THEN  4359 

<  125> 

15 

<0B2> 

4155 

GOSUB  2550 

<039> 

2420 

IF  C  THEN  GOSUB  750 

<  144> 

4358 

GOTO  4378 

<022> 

2423 

IF  C  THEN  GOSUB  250 

<082> 

4359 

: 

<017> 

2425 

IF  C<48  OR  057  THEN  ER=9:G0T0  8050 

<  133> 

4360 

IF  C=LA  THEN  GOSUB  1050 

<  164> 

2430 

MA*(MP)=T*:H=C 

<  138> 

4378 

3 

<036> 

2440 

GOSUB  750 

<226> 

4380 

Z*=Z*+CHR*(C> 

<009> 

2450 

MA7.  <  MP )  =VAL  ( CHR# ( H  >  +T#  > -D I 

<  129> 

4396 

GOTO  4130 

<154> 

2460 

MP=MP+1 

<21 1  > 

4397 

3 

<055> 

2470 

IF  C=0  THEN  2481 

<  155> 

4398 

RETURN 

<138> 

2480 

GOTO  2400 

<206> 

5050 

PRINT" <CLR,3SPACE }***»*  UEBERSETZEN <4 

2481 

: 

<  171  > 

SPACE  >****  C3D0WN  > " 

<252> 

2485 

IN=0: RETURN  G  <100>Df  1 

Jf  S  iflc*.: 

IF  NOT  <FN  AD (EA) <EA+5  DR  FN  AD (EA) >EA 

2550 

GOSUB  750 

<080> 

+B3) THEN  5054 

<110> 

2560 

FOR  1=0  TO  BM: IF  T*< >BE* ( I ) THEN  NEXT 

<082> 

5053 

PRINT"KEIN  PROGRAMM  VORHANDEN" : GOSUB 

2565 

IF  I >BM  THEN  ER=0:GOTO  8050 

<221  > 

49550: RETURN 

<  004  > 

2568 

1  =  1  +  1 

<011> 

5054 

: 

<204> 

2570 

ON  I  GOSUB  2590,2685,2630,3010,3090,3 

5058 

PRINT "BITTE  DISK  EINLEGEN <SPACE , 2D0WN 

1 90 , 3260 ,3310,3360,3400,3450, 3550 , 358 

, SPACE >" 

<  196> 

0,3600 

<003> 

5060 

PRINT"NAME  FUER  OBJEKT-PROGRAMM" 

<  187> 

2575 

RETURN 

<093> 

5065 

POKE  198 , 1 : POKE  631,34 

<  107> 

2590 

IF  C=0  THEN  Z*=Z*+ . 

<097> 

5070 

INPUT  F# 

<126> 

2595 

S7.  ( SP )  =LP :  SP=SP+ 1 :  LP=LP+ 1 

<  1 16> 

5080 

OPEN  1,8,1 ,F*+" ,P, W" : OPEN  15,8,15 

<  1 60  > 

2597 

RETURN 

<115> 

5090 

INPUT#15,E,E*: IF  E=0  THEN  5101 

<02B> 

2630 

SP=SP-1 

<216> 

5095 

PRINT "DISK  ERR: " ; E; E* 

<  1 13> 

2640 

Z*=Z*+GT*+MID*  (STR*  (L07.(S7.  (SP)  ,0)  +DI ) 

5096 

INPUT"NEUER  VERSUCH" ;  Z* 

<082> 

,2) +NU* 

<  1 78  > 

5098 

CLOSE  1 : CLOSE  15 

<  1B4> 

2642 

GOSUB  550 

<15B> 

5099 

IF  Z*<  >" J "THEN  RETURN 

<230> 

2647 

L=PEEK ( ZA+2)  +  1 : H=PEEK  <  ZA+3) : IF  L>255 

5100 

GOTO  5060 

<  1B2> 

THEN  L=0:H=H+1 

<148> 

5101 

: 

<251  > 

2648 

Z*=CHR*  <L> +CHR* (H>  +  " i " 

9> 

5120 

AA=EA 

<090> 

2650 

RETURN 

<168> 

5130 

PR I NT# 1 , CHR* ( AA  AND  256) ; CHR* (AA/256) 

2685 

B*=""t IF  RIGHT* (Z* , 1 ) <  >CHR* ( 167) THEN 

; 

<012> 

B*=GT* 

<013> 

5135 

PR I NT "1. LAUF" 

<  162> 

2693 

Z*=Z*+B*+MID*  (STR*  (L07.  (S7.  (SP-1 )  ,  1  >  +DI 

5136 

TA=7 

<164> 

+1) ,2) 

<004> 

5140 

GOSUB  5555 

<097> 

2695 

RETURN 

<213> 

5143 

IF  SP>0  THEN  PRINT  SPs : ER=B: GOTO  5000 

3010 

Z*=Z*+IC*+NO*+" ( "+CHR* (C) 

<073> 

0 

<090> 

3020 

GOSUB  250:  IF  COTH  AND  C  THEN  Z*=Z*+C 

5145 

PR INT "2. LAUF" 

<1B8> 

HR* (C): GOTO  3020 

<003> 

5150 

GOSUB  6550 

<050> 

3030 

Z*=Z*+"  )  "+CHR*  (TH)  +MID*  (STR*  ( 17.  ( IP)  +D 

5160 

PRINTttl , CHR# (0) 5  CHR* (0)  ; 

<012> 

I)  ,2) 

<004> 

5180 

CLOSE  1 : PRINT" IDOWN>**"; EP; "  ERRORS  * 

3036 

IP=IP+1:C=0: RETURN 

<  13B> 

•»":  GOSUB  49550 

<  086  > 

3090 

Z*=Z*+GT*+M  I D*  ( STR*  ( 1 7.  ( I P )  +D I )  ,  2 )  +NU* 

<233> 

5190 

RETURN 

<168> 

3100 

GOSUB  550 

<10B> 

5555 

ZA=EA 

<115> 

3120 

L=PEEK ( ZA+2) +1:H=PEEK< ZA+3) : IF  L>255 

5570 

IF  NOT  (ZAO0)  THEN  5931 

<037> 

THEN  L=0:H=H+1 

<  1 13> 

5580 

NC=ZA+4:C=PEEK(NC) :NC=NC+1 

<077> 

3130 

Z*=CHR*  <L) +CHR* (H) +" : " 

<239> 

5585 

IF  C=DP  THEN  GOSUB  250 

<035> 

3140 

IP=IP+1: RETURN 

<  159> 

5590 

IF  C=LA  THEN  GOSUB  6050: IF  C=DP  THEN 

3190 

L=PEEK  <  ZA+2 )  :  H=PEEK  ( ZA+3 ) 

<  1 41  > 

GOSUB  250 

<137> 

3200 

. . . . . . 

<053> 

5620 

IF  C=BE  THEN  GOSUB  1550 

<108> 

3210 

RETURN 

<220> 

5920 

ZA=FN  AD (ZA) 

<  140> 

3260 

GOSUB  3010: RETURN 

<  131  > 

5930 

GOTO  5570 

<  1 08  > 

3310 

GOSUB  3090 

<011> 

5931 

s 

<065> 

3320 

Z*=LEFT*  ( Z*  ,  LEN  ( Z* )  - 1 ) 

<172> 

5935 

RETURN 

<  151  > 

3330 

GOSUB  3010 

<032> 

6050 

IF  MP>MM  THEN  ER=6:G0T0  50000 

<034> 

3340 

RETURN 

<096> 

6070 

GOSUB  750 

<044> 

3360 

GOSUB  3190 

<022> 

6100 

M A*  ( MP )  =T* :  MA7.  ( MP )  =FN  AD  <  Z  A+2 )  -D I :  MP= 

3370 

RETURN 

<  126> 

MP+1 

<05B> 

4HO 
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6120  RETURN 

6550  ZA=EA:Z1=FN  AD (ZA) 

6560  LP=0iSP=0t IP=0 
65B0  : 

65B5  IF  NOT ( PEEK ( Z  A+4 ) <  >KO ) THEN  6650 
6590  GOSUB  4060 
6600  GOSUB  550 
6650  : 

6655  ZA=Z 1 : Z1=FN  AD(Zl) 

6660  IF  NOT <Z 1=0) THEN  6580 
66B0  RETURN 

8050  PRINT"ERROR  IN"jFN  AD (ZA+2) ,ER* (ER) 
8060  IF  EP<EM  THEN  ERX (EP,0) =FN  AD(ZA+2)-D 
1 1  ER'/.  (EP,  1 )  =ER:  EP=EP+1 
8080  Z*=LEFT* (Z*, 2) +"*»***  ERR ä " +ER* ( ER  >  + " 
********" 

8090  C*=NU*:C=0 
8099  RETURN 

8860  PRINT" CCLR, 5D0WN)" 

8870  PRINT  TAB (9) j "*********************" 
8880  PRINT  TAB (9) ; "**  ZURUECK  MIT: C4SPACE) 
**" 

8BB2  PRINT  TAB(9)j"**  '  !  '  CRETURN 3C2SPAC 
E>**" 

8940  PRINT  TAB (9)  j  "*********************" 
8950  POKE  44 ,EA/256: POKE  EA-1 ,0: CLR: END 
8990  END 

40050  PR I NT " CCLR  > " 5  TAB  <10)5" ************** 
***" 

40052  PRINT  TAB ( 10) ; "*  —  STRUBS C2SPACE > — 

*" 

40053  PRINT  T AB (10) ; " * C2SP ACE > PRECOMP I LER C 
2SPACE>*" 

40055  PRINT  TAB ( 10) ; "*  BITTE  WAEHLEN  *" 
40058  PRINT  TAB (10) ; "*****************" 
40060  PRINT" C3D0WN , RVSON >E CRVOFF >D I T " 

40070  PRINT“ (DOWN , RVSON >U CRVOFF  >EBERSETZEN 

40080  PR I NT " CDOWN , RVSON  >M  CRVOFF  JARKEN-TABE 
ULE  AUSGEBEN" 

40090  PR I NT " CDDWN , RVSON  >F  CRVOFF  JEHLER-T ABE 
LLE  AUSGEBEN " 

40100  PR I NT “ CDOWN , RVSON  >S CRVOFF  JCHLUSS “ 
40160  GET  Z*:IF  Z*=""THEN  40160 
40170  IF  Z*="E" THEN  8860 

40180  IF  Z*="U"THEN  GOSUB  5050: GOTO  40050 
40190  IF  Z*="S"THEN  SYS  64738 
40195  IF  Z*="M"THEN  GOSUB  48050: GOTO  40050 
40200  IF  Z*="F"THEN  GOSUB  49050:  GOTO  40050 
40495  GOTO  40050 

45060  MM=99:DIM  MAS ( MM ) , MAX ( MM ) : MP=0 
45135  LM=140:DIM  LOX (LM , 1 ) : LP=0 
45145  IM=270: DIM  IX(IM):IP=0 
45190  SM=60: DIM  S7.(SM)  :SP=0 
45220  DI =32766 

45250  DP=ASC (":"): KO=ASC ("•"): LA=ASC ( " £" ) « 
NU*=CHR* ( 0 ) : BL=ASC ( "  ” ) 

45253  BE= ASC ("!">: TE=34 : GT*=CHR* ( 1 37 ) 

45254  I C*=CHR* (139): TH= 1 67 : NO*=CHR* ( 1 68 ) : K 
M=44 

45265  BM=13: DIM  BE*(BM) 

45270  FOR  1=0  TO  BM: READ  BE*(I):NEXT 

45271  BE*(3)=IC* 

45272  DATA  LOOP, EXIT, ELOOP, IF, ELSE, FI 

45273  DATA  CASEOF , OF , ECASE , EXT 

45274  DATA  WH I LE , EWH ILE, REPE AT , UNT I L 
45410  DEF  FN  AD ( X ) =PEEK ( X ) +256*PEEK ( X + 1 ) 
45480  EM=40: DIM  ER7. (EM ,  1  >  : EP=0: DIM  ER*(40> 
45500  FOR  1=0  TO  9: READ  ER*(I);NEXT 

45510  DATA "FALSCHER  BEFEHL" , "BLOCKSCHACHTE 
LUNG:  ANFANG  FEHLT" 

45511  DATA" UNDEFINIERTE  MARKE" , "STACK  VOLL 

45512  DATA "ZU  VIELE  IF/ELSE/CASE/OF” , "ZU  V 
IELE  LOOP/WH ILE/REPEAT" 

45513  DATA"  ZU  VIELE  MARKEN"  ,,  "BLOCK  NICHT 
GESCHLOSSEN" 

45514  DATA"EXTERN  DECLARATION" 

45600  1=0: READ  M 

45610  POKE  704+1, W: 1=1+1: READ  W: IF  W<256  T 
HEN  45610 

45620  DATA  32,115,0,8,201,33,240,4,40,76,2 
31,167 

45630  DATA  169,8,133,44,169,138,76,231,167 
,999 

45650  FOR  1=0  TO  10: READ  W:POKE  750+1, W 
45660  NEXT 


<080> 

<148> 

<  149> 
<206> 
<09B> 

<  156> 
<050> 
<020> 

<  140> 
<0B4> 
<134> 
<224> 

<227> 

<  174> 

<  108> 
<027> 
<057> 
<091  > 

<  143> 

<  180> 

<  161  > 
<0B0> 
<102> 

<053> 

<  171  > 

<222> 

<205> 

<046> 

<250> 

<031  > 

<  174> 

<043> 

<  153> 
<101> 
<096> 

<  164> 

<  173> 

<  141  > 
<031  > 

<  161  > 
<204> 
<088> 

<  107> 
<060> 

<  186> 

<  109> 
<067> 

<098> 

<20B> 

<032> 

< 132>  r 
<044> 

<  133> 
<085> 

<  198> 

<  1 80> 

<  193> 

<007> 

<017> 

<  163> 

<230> 

<  1 13> 
<247> 

<  154> 

<  139> 

<  127> 
<241  > 
<203> 


45670  SYS  750 

45680  DATA  169,192,141,8,3,169,2,141,9,3,9 
6 

45999  RETURN 

48050  IF  MP=0  THEN  RETURN 
48055  H=0 

48057  PRINT" CCLR, DOWN, 6SPACE>**  MARKENTABE 
LLE  AUSGEBEN  **" 

48060  INPUT" C2D0WN, SPACE > AUF  DRUCKER  (J/N) 
" :  B* 

48070  IF  NOT <B*="J") THEN  48091 
48075  PRINT"  DRUCKER  AN?": GOSUB  49550 
48080  OPEN  1,4 

48090  GOTO  4B104 

48091  : 

48100  OPEN  1,3 
48102  H=— 1 
48104  : 

48120  FOR  1=0  TO  MP-1 

48140  PR I NT# 1 , MAX ( I ) +D I , M  A* ( I ) 

48150  IF  I-INT( 1/10) *10=0  THEN  IF  I  AND  H 
THEN  GOSUB  49550 
48180  NEXT 

4B185  CLOSE  1 : GOSUB  49550 
48190  RETURN 

49050  IF  EP=0  THEN  RETURN 
49055  H=0 

49057  PRINT" CCLR, DOWN, 6SPACE5**  FEHLERTABE 
LLE  AUSGEBEN  **" 

49060  INPUT" C2D0WN, SPACE > AUF  DRUCKER  (J/N) 
"SB* 

49070  IF  NOT (B*="J"> THEN  49091 
49075  PRINT" CDOWN, SPACE 5DRUCKER  AN7C2D0WNJ 
": GOSUB  49550 
49080  OPEN  1,4 

49090  GOTO  49104 

49091  : 

49100  OPEN  1,3 
49102  H=— 1 
49104  : 

49110  p6gJNT#l , EP ; "  ERRORS" 

49120  FÜR  1=0  TO  EP-1 

49140  PRINT#1 ,ERX (1,0) +DI ; ER* (ERX (1,1)) 
49150  IF  I— INT (I/10>*10=0  THEN  IF  I  AND  H 
THEN  GOSUB  49550 
49180  NEXT 
49185  CLOSE  1 
49191  GOSUB  49550 
49190  RETURN 
49550  PR I NT “  —  >  C2LEFT  > " ; 

49560  GET  B*: IF  B*=" "THEN  49560 
49570  RETURN 

50000  PRINT" CDOWN)*  FEHLER  BEHEBEN,  DANN  N 
EU  VERSUCHEN  *" 

50008  PRINT : PRINT  ER*(ER)j"  IN  " ; FN  AD(ZA+ 
2) 

50010  PRINTttl ,CHR* (0) ; CHR* (0) ; 

50020  CLOSE  1 
50030  GOSUB  49550 

50040  GOSUB  49050  ®  &*'«- 

50050  RUN 

Listing  1.  Das  Objektprogramm  Strubs  (Schluß) 


<0S7> 

<098> 

<0B0> 

<  137> 
<231  > 

<  134> 

<050> 

<036> 

<  176> 

<  150> 
<231  > 
<05B> 

<  138> 
<243> 
<071> 
<042> 

<  147> 

<097> 

<  1B3> 
<025> 
<241  > 
<057> 
<215> 

<216> 

<034> 

<0B4> 

<094> 
<134> 
<231  > 
<042> 

<  122> 
<227> 
<055> 
<005> 
<022> 

<  158> 

<079> 

<  167> 

<  173> 
<029) 
<225) 
<238) 
<223) 
<095) 

<165) 

<026) 

<157) 

<246) 

<106) 

<212) 

<051) 


o  ------  DIE  7FILE  1  RICHTET  DIE  POINTER  AUF  DAS  BASIC-ENDE  AUS.  ----- -■ 

1  POKE  43,PEEK<174>  i  PÜKfc  46.  PEEK(173>  i  CLR  i  GOTO  ‘HPTPRG 

2  ' .  AH  ZEILE  1«  STEHEN  DIE  MENUEDATEN . 

S  NEM" DATAZEILEN  ENTHALTEND PROBKAMHNAME) , _<IADENAME - 

90  DATA  "ENDE . " . " 

100  DATA  tt,i» 

200  ' 

1000  • MLNUL 

10-.0  l 
10-10  « 

1050  I 

1060  J 

1070  I 


1090  ! 
1  100  : 
1110: 
1120  : 
1130  ! 
I  140 
1150 
1160  ! 
1170 
1100  : 
1190 
1200  i 
1730 
1240 
1250 
1260 
1270 
1200 
1290 
1300 
1310 


•IF  AN/ 10- INT  < AN/ 10  >  -  0  THEN 

M ’ ABKEN ' D  * URCHLAEUFE *  -  AN/ 10-  1 
!  ELBE 

MD  -  INT (AN/ 10) 

•F  1 

.HAUPT SCHLEI FE . 

MASKENZAfcHLER-  -  0 
•LOOP 

GOSUB  F MASKE 
TASTENZAEHLER1  •  l 
(LOOP 

GOSUB  ».PFEIL  i  GOSUD  -TAGTE 


Listing  2.  »Menue«,  das 
erste  Strubs-Listing 


(CABEOF  TASTE* 
•EXIT 

!OF  TASTE- 
T  =  T-l 
! OF  TABTE* 
T  ■  T+l 

* ECABE 
•EL DOP 

•CASEOF  TA'STE-  - 
!EXIT 

! OF  TASTE- 
M  =  M-l 
»OF  TASTE* 

M  =  M+l 

! ECABE 


-1  THEN 

IF  T  <  1  THEN  JEXIT 
1  THEN 

IF  T  >  10  DR  T*M»10  >  AN  THEN  »EXIT 


-1  THEN 
IF  M  <  0 
1  THEN 

IF  M  >  MD  THEN  M  -  MD 


THEN  M  -  0 


Hilfsprogramm 
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1370  i  ! LLUUP 

1323  ' . HAUPTSCHLE1FE  ENDE 

1330  GOTO  «LADEN 
1340  • 

1  500  •  MASKE 
1510  i 
1520  « 

1530  i 
1540  i 
•  1550  « 

1560  t 
1370  i 
13B0  RETURN 
1590  ' 

1700  «  JE  ILE  1 

1710  i  PRINT  CHR* <1471 1 Afi< 12) "PROGRAMMAUSWAHL" 


GOSUB  • 7EILE1 

1  =  M«10*I  '  M  IST  MABKENSE I T ENZ AEHLER 
•WHILE  I  M« 10*10  AND  I  <»  AN * ZAHL ’  'DO 
PRINT  «  PRINT  TAB<5>  P ' RG * N * AME * * ( I > 

I  -  1  +  1 
'E WH ILE 
BOSUB  «HELP 


1770  i  PRINT 
1730  RETURN 
1740 

1 000  • HELP 
IU10  i 
1070  i 
1023  i 
IB26  i 
1030  RETURN 
1040  1 

i  '700  « CR8RP0. 
1910  I 
1920  RETURN 
1930 

7000  «PFEIL 
7003  • 

2010 
2020  i 
2030  i 
2040  i 

2050  i  »LBL1 
2060  i  *  LDL 2 
2070  RF  TURN 
7077  ' 

7200  -TASTE 
2210  i 
2220  t 
2230  i 
2240  i 
2250  i 

2260  i 

2270  « 

2280  : 

2290  « 

7300  i 
2310  : 

2320  s 
2330  RETURN 
2332  ’ 

2400  «.LADEN 
2410 
2470 
2430 


IAB  ( 1 2)  ** 


2  -  24  «  5  -  2  i  GOBUD  +CRSRPO. 
PRINT  RO*"F  1  «  •  QD£N"RF*"  "| 
PRINT  RO* "F3  ->  UINTEN"RF4"  '•» 
PRINT  RO*"RETURN  ->  LOAD“RF*| 


PRINT  CHR*(19>  LEFT*(CD»,Z-I)  LEFT* ICR« ,S- 1 ) i 


0  IST  DER  VEKTOR  /UM  LOESCHEN  ODER  BETZEN  DFB  PFEILS 

/  -  T«2*2  i  S  -  2  i  GUÜUD  CCRBRPO. 

IF  0  -  I  THEN  -.LDL  1 
PRINT  i  GOTO  CLBL2 

PRINT  “  "«0*0 


!  LOOP 

GET  TASTE*  «  IF  TASTE*  -  ""  THEN  ETHIS 
’CASEOF  TASTE  *  -  CHR*<133>  THEN  ’Fl -TASTE  GEDR. 
0=1«  GOSUB  -PFEIL 
TA-BTE-  -  -1  «  ! EX  IT 

'OF  TA ’ STE ’ *  -  CHR*(  13)  THEN  RETURN  GEDR. 

TA-BTE*  -  0  i  'EXIT 

•OF  1 A  *  STE ' *  =  OHR* (134)  THEN  'F3-TASTE  GEDR. 

0  -  1  «  GOSUB  »PFEIL 
TA  STE *  -  I  i  IEXIT 
! ECASE 
•ELOOP 


*  T  ASTENZAEHLER 
GOSUB  LCRBRPO. 


2440  « 

2450  * 

2460  ' 

2470  s 
2490  ENDE 
2495  • 

7700  *: SCHLUSS 


NUMMER'  -  M * ASKENZ AEHLER *  »  10 
ZEILE*  -  T«2+2  l  S* PALTE*  -  6 
PRINT  RO*  P  *  RG ‘ N ' AME  *  * ( NU )  RF* 

IF  LEFTKP  RG  N'AME'SINU»  ,4>  -  "ENDE"  THEN  +SCHLUSS 
(NOCH  ZU  IMPLEMENTIERENDE  FUNKTION«  LADEN  VON  MPGS» 

LOAD  L  * ADE  *N  * AME '* (NU) ,8 


S46R  OnLIlT 


PRINT  CHR* ( 147) j 

PRINT  LEFT* (CD* , 10)  TAB(5)j 

PRINT  RG*  '•  F5  =>  MENUE 

PRINT  TAB (5)  RG*  "  F7  =>  ANDERE  DISK" 

PRINT  TAB (5)  RO*  "RETURN  «>  ENDE 
!  LOOP 

GET  TA  STE  *  «  IF  TA  * STE *  *  =  ""  THEN  »THIB 

' CASEOF  TASTE**  -  CHR*(I35>  THEN  *F5-TA5TE  GEDR. 

RUN 10000 

•OF  TA  STE*  =  CHR* < 136»  THEN  "F7-TASTE  GEDR. 

PRINT  «  PRINT  TAB (5)  "BITTE  ANDERE  DISK  EINLEGEN," 
PRINT  TAB (5)  "DANN  BEL.  TASTE  DRUECKEN ! " 
GET  TA-BTE**  «  IF  TA ‘STE**  ■  —  THEN  «THIB 
OPEN 15, 8, 15, "1”  «  CLOSEI 5 
LOAD  " MENUE ",B 

•DF  TA’BTE**  =  CHR* (  13)  THEN  RETURN  GEDR. 

PRINT  CHR* (147) 

PRINT  "BITTE  DISKETTE  DEM  LAUFWERK  ENTNEHMEN," 
PRINT  "DANN  LAUFWERK  UND  RECHNER  ABBCHALTEN. " 

PRINT  «  PRINT  "BY,  BY  "• 

END 

! ECASE 
•ELOOP 


010 


■  ■■■•■  HAUPTPROORAMM  ••»•«.**-•••• 
MENUE  VERB  ION  VUM_0 1 . 05.  H4 

- GERD-  BOMBETZKI - 

- FUHRMANNBTR. - 47 _ 

4600  D0RTMUND_-13 - 


IIÄOI2  REM- 
10014  REM" 

100 16  REM" 

10018  REM" 

10020  REM" - - TEL. «  0231/213636 

10022  * 

10030  « 

10040  « 

10030  * 

10060  ’ 

100/0 

10100  •  INI  I 
10130  I 


GOSUB  «  INI  I 
GOTO  «MENUE 


10140  « 

10150  « 

10160  i 
10170  i 
10100  « 

10190 

10200  * - 

10210  • 

10220  i 
10230  « 

10235  * 

10740  i 
10250  « 

10/60  « 

107.90  RETURN 
10295  1 
10300  • ANZAHL 
10310  « 

10320  « 

10330  i 
10340  « 

10350  « 

10360  RETURN 
10370  ’ 

READY. 


GOSUB  E ANZAHL  «  IF  AN* ZAHL*  -  0  THEN  -SCHLUSS 

D1M  P'RG'N  AME  MAN  ZAHL  ),  L *  ADE  N * AMF * • ( AN  ZAHL  * ) 

REBIORE 

FOIR  I  «  I  TO  AN  ZAHL 

READ  P  ‘  RG  *  N  ‘  AMF.  *  *  ( I  >  ,  L  *  ADE  '  N  AMC  *  •  ( 1 ) 

NEXT 


- GL ORAL VAR I ABLENDE F INI  I  ION- 


CD* 
.  CR* 


•’«"  CURSOR  DOWN' 
“»«"  'CURSOR  RIGHT* 


RO*  -  ”N" 
HM  - 


RVB  ON 
RVS  OFF 


FOR  1  -  1  TO  7 
CD*  -  CD* -CD» 
NEXT 


CR*  *  CR* »CR* 


RESTORE  «  AN* ZAHL*  -  -1 
•REPEAT 

READ  PRBNAME*,  L  *  ADF.  *  N  '  AME  *  * 
AN  *  ZAHL  *  -  AN ' ZAHL  *  •  1 
’UNTIL  P  *  RG  ‘  N  '  AME  *  -  mte" 


Listing  2.  Quellcodeprogramm  »Menue«  (Schluß) 


1  PQKE45 , PEEK  < 1 74  >  s P0KE46 , PEEK  < 1 75) 3  CLR  s GOTO 1 0000 
5  REM“ DATAZE I LEN_ENTHALTEN__< PROGRAMMNAME > ,  _<  LADENAME  > 

98  DATA  "ENDE . . . 

100  DAT  Ate , te 
1000  : 

1030  IFNOT  < AN/ 10-INT ( AN/ 10) =0) THEN1051 
1040  MD=AN/10-1 

1050  GOTO1070 

1051  : 

1060  MD=INT<AN/10> 

1070  ! 

1090  M=0 
1100  : 

1110  GOSUB 1500 
1120  T=1 
1130  : 

1140  GOSUB2000! GOSUB2200 
1150  IFNOT <  TA=0 ) THEN 1171 
1160  GQTQ1241 

1170  GOTO 1230 

1171  IFNOT <TA=-1)THEN1 191 
1180  T=T-1 : IFT< 1THEN1241 

1190  GOTO1230 

1191  IFNOT <TA=1)THEN1230 

1200  T=T+ls IFT>10DRT+M»10>ANTHEN1241 
1230  : 

1240  GOTO1130 

1241  : 

1250  IFNOT <TA=0> THEN 1271 
1260  GOTO  1321 

1270  GOTO1310 

1271  IFNOT (TA=— 1 ) THEN 1291 
1280  M=M-X« IFM<0THENM=0 

1290  GOTO1310 

1291  IFNOT (TA=1)THEN1310 
1300  M=M+ls IFM>MDTHENM=MD 
1310  : 

1320  GOTO 1100 

1321  : 

1330  GOTO2400 
1500  : 

1510  GOSUB 1700 
1520  I=M*10+1 

1 530  IFNOT ( I< =M* 10+1 0AND I<=AN ) THEN1 56 1 
PRINT : PRINTTAB (5) PN* ( I ) 

55u  1=1+1 

1560  GOTO 1530 

1561  : 

1570  GOSUB 1800 
1580  RETURN 
1700  3 

1710  PR INTCHR# ( 1 47 ) TAB (12) "PROGRAMMAUSWAHL" 

1 720  PRINTTAB  < 1 2) " =============== " 

1730  RETURN 
1800  s 

1810  Z=24bS=2 3 GOSUB 1900 

1820  PRINTR0*"F1  =>  OBEN"RF*"  "i 

1823  PRINTR0*"F3  =>  UNTEN"RF*"  "| 

1826  PR 1NTR0*" RETURN  =>  LOAD"RF*i 
1B30  RETURN 
1900  3 

1 9 1 0  PR I NTCHR*  < 1 9  >  LEFT#  <  CD* , Z- 1 >  LEFT*  < CR* , S- 1 >  j 
1920  RETURN 

2000  s 

2020  2 -T+2+2. B=2t GOSUB 1900 

2030  IFQ-1THEN2050 
2040  PRINT"==>" s  GOTO2060 
2050  PRINT . . 

2060  s 
2070  RETURN 

2200  f 

2210  s 

2220  GETTA*b IFTA*=" " THEN2220 
2230  IFNOT <TA*=CHR# 1 133) ) THEN2261 
2240  0= 1 s  GOSUB2000 
2250  TA=-1 3  G0T02321 

2260  BOTO2310 

2261  IFNOT ( T A*=CHR* (13)) THEN228 1 
2270  TA=0i 60T02321 

2280  GOTO2310 

2201  IFNQT ( T A*=CHR*  < 1 34 ) ) THEN23 1 0 
2290  Q= 1 s  GOSUB2000 

2300  TA=1  s  G0T02321 
2310  s 

2320  GOTO2210 

2321  : 

2330  RETURN 
2400  3 

2410  NU=M*10+T 
2420  Z=T*2+2b  S=6s  GOSUB1900 
2430  PR I NTRO*PN* ( NU ) RF* 

2440  IFLEFT# (PN* (NU) , 4) =" ENDE " THEN2700 
2470  LOADLN# (NU) ,B 
2700  s 

2710  PRINTCHR* < 147) j 
2720  PRINTLEFT*(CD*,10)TAB<5); 


Listing  3.  Das 
Objektprogramm  »Menue« 


fJ-r-onllnM. 


C  64/VC  20 


Hilfsprogramm 


2730  PRINTRO*"  F5  =>  MENUE 

2740  PRINTTAB (5) RQ*"  F7  =>  ANDERE  DISK" 

2750  PRINTTAB (5) RO*"RETURN  =>  ENDE 
2760  : 

2770  GETTA*:  IFTA*=" "THEN2770 
27B0  IFN0T<TA*=CHR*<133> > THEN2801 
2790  RUN10000 
2B00  BQTO2920 

2B01  IFN0T<TA*=CHR*<136> > THEN2B61 

2B10  PRINT! PRINTTAB (5) "BITTE  ANDERE  DISK  EINLEGEN," 
2820  PRINTTAB <5> "DANN  BEL.  TASTE  DRUECKEN 1 " 

2830  GETTA*! IFTA*= “ “THEN2B30 
2840  ÜPEN15.B, 15, " I " ! CL0SE15 
2850  LOAD " MENUE ",B 
2860  GQTO2920 

2B61  IFNOT<TA*=CHR*<13) ) THEN2920 
2B70  PR I NTCHR*  < 1 47 ) 

2BB0  PRINT"BITTE  DISKETTE  DEM  LAUFWERK  ENTNEHMEN," 
2890  PR  INT "DANN  LAUFWERK  UND  RECHNER  ABSCHALTEN." 
2900  PR  I  NT :  PR  I  NT  "  BY ,  BY  !  " 

2910  END 
2920  i 

2930  GOTO2760 

2931  ! 

10000  : 

10012  REM  "  . . MENUE _ VERB  I ON _ VOM _ 0 1.05.84 _ 

10014  REM" - GERD- _ SOMBETZKI - 


10016  REM". _ FUHRMANNSTR _ 47 _ 

10018  REM" _ 4600— DORTMUND _ 13 _ 

10020  REM" — , - TEL.  i_0231/213656 _ 

10030  GOSUB10100 
10040  GOTO 1000 
10100  ! 

10130  GOSUB10300: IFAN=0THEN2700 
10140  DIMPN*(AN) ,LN*(AN) 

10150  RESTORE 

10160  FORI=lTOAN 

10170  READPN* ( I ) , LN* ( I ) 

10180  NEXT 

10220  CD*="M"iRO*="S" 

10230  CR*="M"sRF*="B" 

10240  F0RI=1T07 

10250  CD*=CD*iCD*:CR*=CR*+CR* 

10260  NEXT 
10290  RETURN 
10300  : 

10310  RESTORE: AN=-1 
10320  ! 

10330  READPN*, LN* 

10340  AN=AN+1 

10350  IFNOT (PN*="@" ) THEN 10320 
10360  RETURN 

ready.  Listing  3.  Das  Objektprogramm  »Menue«, 
so  wie  wie  es  von  Strubs  generiert  wurde  (Schluß) 


Wie  spät  ist  es 
bitte? 

Haben  Sie  auch  schon  beim  Program¬ 
mieren  jedes  Zeitgefühl  verloren  und 
vielleicht  einen  Termin  verpaßt?  Mit 
diesem  Uhr-Programm  dürfte  das 
nicht  mehr  passieren.  Zusätzlich  zur 
ständigen  Zeitanzeige  kann  noch  eine 
Alarmfunktion  aufgerufen  werden. 

Mit  »Piep  Piep  Piep«  erinnert  Sie  dieses  Programm  daran, 
daß  es  schon  wieder  nach  Mitternacht  ist.  Es  ist  vielleicht  bes¬ 
ser,  die  neueste  Version  zu  speichern  und  ins  Bett  zu  gehen. 
Aber  genug  der  Vorrede,  gehen  wir  »in  medias  res«. 


Das  Programm  CIA-Uhr  wird  bei  jedem  Interrupt  des  C  64 
einmal  abgearbeitet,  also  60mal  pro  Sekunde.  Dabei  wird  die 
Echtzeituhr  des  C  64  abgefragt,  die  Alarmzeit  überprüft  und 
die  Uhrzeit  auf  den  Bildschirm  gedruckt.  Im  Gegensatz  zu  TI 
oderTIS  hat  die  Echtzeituhr  eine  große  Ganggenauigkeit.  Die 
Variable  TI  wird  nämlich  nur  bei  jedem  Interrupt  hochgezählt. 
Ein  Interrupt  muß  aber  nicht  jede  60stel  Sekunde  stattfinden. 
Beispielsweise  werden  beim  Speichern  oder  Laden  von  Pro¬ 
grammen  wesentlich  weniger  Interrupts  pro  Sekunde  vom 
Computer  ausgelöst  als  im  READY-Modus. 

Das  Programm  muß  mit  dem  MSE  eingegeben  werden. 
Nach  dem  Laden  mit  LOAD"UHR",8,1  (1,1)  muß  NEW  eingege¬ 
ben  werden,  damit  kein  OUT  OF  MEMORY  ERROR  auftritt. 
Gestellt  wird  die  Uhr  durch  SYS  49152, "Uhrzeit”, 'Alarmzeit". 
Die  Zeiten  müssen  6stellig  angegeben  werden.  Die  Alarmzeit 
kann  auch  weggelassen  werden. 

Bei  RUN/STOP-RESTORE  verschwindet  die  Anzeige  vom 
Bildschirm,  während  die  Uhr  intern  aber  weiterläuft.  Mit  SYS 
49152  wird  die  Anzeige  wieder  aktiviert.  Das  Maschinen¬ 
programm  kann  auch  in  andere  Speicherbereiche  verschoben 
werden.  Man  sollte  dazu  wissen,  daß  in  den  Bereichen  SC0A3 
bis  $C0A6  und  $C137  bis  $C14D  Tabellen  stehen. 

(Jörg  Dorchain/hm) 


Programm 

:  uhr 

C000  c230 

C0b0 

, 

a9 

14 

Bd 

06 

d4 

a9 

0i 

Bd 

*9 

c  1 70 

x 

48 

b2 

a0 

ff 

cB 

bl 

14 

3B 

14 

c0bB 

: 

18 

d4 

60 

a9 

09 

8d 

43 

cl 

15 

cl  78 

: 

©9 

30 

90 

ec 

99 

45 

cl 

C0 

8/ 

C000 

: 

78 

a9 

36 

Bd 

14 

03 

a9 

c  0 

0e 

C0C0 

: 

60 

6c 

37 

cl 

a9 

14 

Bd 

00 

ce 

c  1  80 

: 

05 

d0 

fl 

a0 

ff 

cB 

bl 

14 

b3 

C00B 

: 

Bd 

15 

03 

58 

ad 

01 

de 

29 

05 

c0cB 

: 

d4 

a9 

la 

Bd 

01 

d4 

a9 

21 

49 

C  188 

: 

c9 

3a 

b0 

de 

C0 

05 

dB 

f  5 

99 

C010 

: 

71 

Bd 

0* 

de 

a9 

85 

Bd 

0d 

cc 

C0d0 

: 

Bd 

04 

d4 

a0 

14 

4c 

10 

cl 

10 

Cl  90 

: 

a0 

ii 

a2 

00 

cB 

b9 

45 

cl 

eb 

c0 1 0 

: 

de 

ad 

0e 

de 

09 

00 

Qd 

0e 

dl 

c0dB 

3 

a9 

20 

Bd 

04 

d4 

aß 

0a 

4c 

88 

Cl98 

z 

0a 

0a 

0a 

0a 

8d 

44 

Cl 

c8 

ff 

C020 

: 

de 

4c 

cl 

ad 

0d 

de 

29 

5@ 

C0B0 

: 

10 

cl 

a9 

cl 

Bd 

00 

d4 

a9 

b5 

cla8 

i 

b9 

45 

cl 

0d 

44 

cl 

9d 

4b 

6d 

C028 

: 

04 

f0 

03 

20 

bb 

c  0 

ad 

43 

68 

C0e8 

: 

22 

Bd 

01 

d4 

a9 

21 

Bd 

04 

8e 

C  1  dB 

s 

cl 

q8 

e0 

03 

d0 

e6 

a2 

00 

45 

C030 

i 

cl 

f0 

03 

20 

cl 

C0 

a0 

00 

d3 

C0f0 

i 

d4 

a0 

14 

4c 

10 

cl 

a9 

20 

99 

clb0 

: 

aB 

0b 

f  8 

bd 

4b 

cl 

10 

b0 

b3 

C038 

ad 

0b 

de 

ae 

0B 

de 

29 

10 

a4 

C01B 

: 

Bd 

04 

d4 

a0 

0a 

4c 

10 

cl 

97 

Clb8 

: 

c9 

24 

d0 

03 

a9 

00 

18 

b0 

84 

C040 

s 

1B 

4a 

4a 

4a 

4a 

20 

9b 

C0 

Bl 

Cl00 

a0 

00 

8c 

41 

cl 

a9 

c4 

Bd 

83 

clc0 

: 

a7 

c9 

12 

90 

04 

e9 

12 

09 

CC 

C04B 

: 

ad 

0b 

de 

ae 

08 

de 

29 

0f 

b2 

c  108 

: 

37 

cl 

a9 

C0 

Bd 

38 

cl 

60 

05 

clcB 

80 

99 

00 

de 

eB 

88 

bd 

4b 

11 

C050 

: 

a2 

00 

20 

9b 

C0 

bd 

a3 

C0 

78 

C110 

: 

Bc 

42 

cl 

a9 

ld 

Bd 

37 

cl 

01 

cldB 

: 

cl 

C9 

60 

b@ 

93 

99 

00 

de 

64 

C058 

: 

20 

9b 

C0 

eB 

ad 

0a 

de 

29 

84 

cl  1B 

a9 

cl 

Bd 

38 

cl 

ce 

42 

cl 

2b 

cldB 

e8 

SB 

bd 

4b 

cl 

c9 

60 

b0 

2a 

C060 

: 

•10 

4a 

4a 

4a 

4a 

20 

9h 

C0 

B7 

c  1 20 

: 

d0 

14 

ac 

41 

cl 

b9 

39 

cl 

a0 

cle0 

: 

87 

99 

00 

de 

dB 

a9 

00 

8d 

cS 

C068 

ad 

0a 

de 

29 

0f 

20 

9b 

C0 

5B 

c  1 28 

: 

Bd 

37 

cl 

cB 

b9 

39 

cl 

Bd 

62 

cleB 

: 

08 

de 

60 

20 

4e 

cl 

20 

0c 

06 

C070 

: 

bd 

a3 

C0 

20 

9b 

C0 

eB 

ad 

f  2 

e  130 

: 

3B 

Cl 

c8 

8c 

41 

cl 

60 

c4 

3a 

C110 

c2 

ad 

0i 

de 

09 

80 

8d 

bi 

dl 

C07B 

c 

09 

de 

29 

f  0 

4a 

4a 

4a 

4a 

0c 

cl38 

: 

C0 

d8 

C0 

e2 

C0 

f  3 

C0 

00 

9  f 

C 118 

: 

de 

20 

51 

cl 

20 

0C 

c2 

78 

cf 

C080 

: 

20 

9b 

C0 

ad 

09 

de 

29 

0f 

8e 

c  1 40 

cl 

00 

00 

00 

10 

00 

00 

00 

03 

c200 

a9 

24 

8d 

14 

03 

a9 

C0 

8d 

3d 

C0BB 

: 

20 

9b 

C0 

bd 

a3 

C0 

20 

9b 

56 

c  1 48 

: 

00 

00 

00 

00 

00 

00 

20 

a6 

16 

c  200 

: 

15 

03 

58 

60 

aß 

ff 

c8 

b9 

62 

c090 

: 

C0 

eB 

ad 

08 

de 

20 

9b 

C0 

ef 

c  1 50 

: 

C0 

20 

06 

e2 

20 

fd 

ae 

20 

eb 

C210 

43 

Cl 

f  0 

f  a 

C0 

09 

d0 

03 

6f 

C098 

: 

4c 

31 

ea 

1B 

69 

b0 

99 

le 

19 

cl58 

9e 

ad 

20 

81 

ad 

20 

a3 

b6 

91 

c2 18 

: 

4c 

0b 

e2 

aß 

ff 

a9 

00 

c8 

95 

c0a0 

04 

cB 

60 

0a 

f  e 

0b 

a9 

20 

91 

c  1 60 

: 

86 

14 

B4 

15 

c9 

06 

f0 

0a 

59 

c220 

99 

45 

cl 

C0 

08 

d0 

f  8 

60 

90 

c0aS 

s 

8d 

04 

d4 

a9 

07 

8d 

05 

d4 

3c 

c  168 

a9 

00 

aa 

aB 

18 

d8 

bB 

4c 

95 

c228 

* 

a9 

00 

8d 

43 

cl 

4c 

a6 

C0 

38 

Listing  zur  CIA-Uhr.  Es  muß  mit  dem  MSE  (siehe  Seite  18)  eingegeben  werden. 
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Tiny-Forth- 
Compiler  zum 
Abtippen 

Die  Programmiersprache  Forth  ist  zur 
Zeit  in  aller  Munde.  Hier  haben  Sie  die 
Möglichkeit,  Forth  einmal  praktisch  zu 
erleben. 

Forth  ist  eine  der  jüngsten  Programmiersprachen.  Sie  wurde 
1 969  von  Charles  Moore  am  National  Radio  Astronomy  Obser- 
vatory  in  den  USA  entwickelt.  Der  Name  der  Sprache  lautete 
eigentlich  Föurth  (das  Vierte),  aber  der  IBM-Computer,  auf 
dem  Forth  entwickelt  wurde,  ließ  nur  fünf  Buchstaben  als  Na¬ 
mensangabe  zu,  so  entstand  »Forth«. 

Forth  ist  eine  der  schnellsten  Programmiersprachen,  die  es 
gibt.  Vor  allem  auf  Heimcomputern  wird  es  deshalb  gerne  ein¬ 
gesetzt.  Dazu  kommt,  daß  Forth  nicht  viel  Speicherplatz  bean¬ 
sprucht.  Die  Sprache  besteht  nicht  nur  aus  einem  Compiler, 
sondern  auch  aus  einem  Interpreter;  beide  arbeiten  Hand  in 
Hand. 

Die  wohl  auffälligste  Eigenart  von  Forth  ist  die  Art  und  Weise, 
in  der  Forth  rechnet.  Es  ist  die  sogenannte  »UPN«  (Umgekehr¬ 
te  Polnische  Notation),  auch  Postfix-Notation  genannt.  Sie  ist 
es  unter  anderem,  die  Forth  die  Geschwindigkeit  verleiht  (10 
bis  20  mal  so  schnell  wie  Basic).  Doch  was  bedeutet  UPN? 

Ein  Beispiel:  Sie  wollen  das  Ergebnis  von  8  +  5  auf  dem  Bild¬ 
schirm  ausgeben.  In  Basic  sähe  das  dann  so  aus:  »PRINT 
8  +  5«.  In  Forth  schreibt  sich  das  etwas  anders:  »5  8  +  .«. 
Scheinbar  verwirrend,  aber  nur  auf  den  ersten  Blick.  Denn  das 
Prinzip  ist  einfach.  Im  Mittelpunkt  von  Forth  steht  der  Stack 
(Stapel).  Man  stelle  sich  einen  Stapel  Papier  vor,  auf  den  man 
Blätter  obenauf  legen  kann  und  auch  nur  von  oben  wieder  neh¬ 
men  kann.  Das  bedeutet,  das  Blatt,  welches  Sie  zuletzt  drauf¬ 
gelegt  haben,  wird  als  erstes  wieder  heruntergenommen.  Man 
nennt  dieses  System  auch  »LIFO«  (Last  In  —  First  Out).  Doch 
wie  kann  man  damit  rechnen?  Kommen  wir  wieder  zu  unserem 
Beispiel  zurück.  Der  Computer  legt  als  erstes  die  Zahl  5  auf 
den  Stack.  Der  TOS  (Top  of  Stack)  hat  jetzt  den  Wert  5.  Dann 
folgt  die  »8«  nach  dem  gleichen  Verfahren.  Darauf  addiert  der 
Computer  die  zwei  obersten  Zahlen  und  legt  das  Ergebnis  auf 
den  Stack,  dafür  ist »+«  verantwortlich.  Jetzt  haben  wir  zwar 
das  Ergebnis  auf  dem  Stack,  können  es  aber  nicht  sehen.  Für 
die  Ausgabe  von  16  Bitzahlen  ist  der  Befehl ».« zuständig.  Da¬ 
mit  wird  immer  der  jeweilige  Wert  des  TOS  ausgegeben. 

Diese  Art  des  Rechnens  mittels  UPN  mag  für  Menschen 
sehr  gewöhnungsbedürftig  sein,  für  den  Computer  ist  sie  ide¬ 
al.  Doch  Forth  besitzt  neben  seiner  Geschwindigkeit  auch 
noch  weitere  Vorteile: 

—  In  Forth  können  Sie  Ihre  eigenen  Befehle  definieren.  Es  gibt 
dann  in  der  Benutzung  keinen  Unterschied  mehr  zwischen 
den  vordefinierten  und  Ihren  eigenen  Befehlen. 

—  Forth  besteht  nicht  nur  aus  einem  Compiler,  sondern  auch 
aus  einem  Interpreter.  Dies  gibt  Ihnen  die  Möglichkeit,  selbst¬ 
entwickelte  Befehle  sofort  zu  testen. 

—  Eine  sehr  hohe  Geschwindigkeit  beim  Compilieren  (1  Pass- 
Compiler) 

—  Strukturierte  Programmierung  ohne  GOTO 

Sie  sehen  also,  Förth  ist  eine  Sprache,  mit  der  zu  beschäfti¬ 
gen  sich  lohnt. 


Die  folgende  Anleitung  zur  Handhabung  des  Förth-Compi¬ 
lers  kann  natürlich  kein  Lehrbuch  ersetzen.  Falls  Sie  mit  Förth 
noch  keinerlei  Erfahrungen  haben,  finden  Sie  im  Anhang  eine 
Übersicht  über  Förth-Literatur.  Doch  nun  zur  Beschreibung 
unseres  Tiny-Förth-Compilers. 

Die  folgenden  Befehle  haben  so  gut  wie  alle  einen  Einfluß 
auf  den  Stack.  Deshalb  wird  eine  verkürzte  Schreibweise  ver¬ 
wendet,  um  das  Verhalten  der  einzelnen  Befehle  darzustellen: 
»(Stack  vorher  -  -  -  Stack  nachher)  «. 

Die  verwendeten  Symbole  haben  folgende  Bedeutung: 
n  =  16-Bit-Zahl,  b  =  8-Bit-Zahl,  c  =  ASCII,  addr  =  Adresse, 
f  =  Flag  (0/1). 

Die  einzelnen  Befehle  des  Tiny-Förth-Compilers  sind  in  Ta¬ 
belle  1  noch  einmal  übersichtlich  dargestellt.  Im  folgenden 
werden  die  Befehle  genauer  beschrieben: 

Arithmetikbefehle 

Addition  »+«  (n2  nl  —  n3) 

Der  Additionsbefehl  holt  die  ersten  beiden  Argumente 
(n1,n2)  vom  Stack,  addiert  sie  miteinander  und  legt  das  Ergeb¬ 
nis  (n3)  in  den  TOS  (Top  of  Stack). 

Subtraktion  »-« (n2  nl  —  n3) 

Der  Subtraktionsbefehl  holt,  wie  bei  der  Addition,  die  ersten 
zwei  Argumente  (n1,n2)  vom  Stack,  das  Ergebnis  (n3)  wird 
wieder  im  TOS  abgelegt. 

Multiplikation  »*«  (n2  nl  -  -  -  n3) 

Die  Multiplikation  verhält  sich  analog  zur  Addition  und  Sub¬ 
traktion. 

Division  »/« (n2  nl  —  n3) 

Analog  zu  Multiplikation. 

Modulo  »MOD«  (n2  nl  -  -  -  n3) 

Ähnlich  einer  Division,  es  wird  aber  nicht  das  Ergebnis  der 
Division,  sondern  der  Divisionsrest  auf  den  Stack  gelegt. 
Vergleichsbefehle 
Gleich  »=«  (n2  nl  -  -  -  fl) 

Es  werden  die  zwei  obersten  Werte  auf  Gleichheit  geprüft. 
Größer  »<«  (n2  nl  —  fl) 

Es  wird  geprüft,  ob  n2  größer  als  nl  ist. 

Kleiner  »>«  (n2  nl  -  -  -  fl) 

Es  wird  geprüft,  ob  n2  kleiner  als  nl  ist. 

Logische  Verknüpfungen 
AND  (n2  nl  -  -  -  n3) 

Zwischen  den  Werten  nl  und  n2  wird  eine  logische  UND- 
Operation  ausgeführt. 

OR  =  (n2  nl  -  -  -  n3) 

Es  wird  ein  logisches  ODER  ausgeführt. 

XOR  (n2  nl  -  -  -  n3) 

Es  wird  ein  logisches  exklusives  ODER  ausgeführt. 

NOT  (fl  -  -  -  f2) 

Das  oben  liegende  Flag  wird  invertiert. 

Stackoperatoren 
DROP  (n2  nl  -  -  -  n2) 

Der  oberste  Wert  wird  vom  Stack  entfernt. 

DUP  (nl  -  -  -  nl  nl) 

Der  oberste  Wert  auf  dem  Stack  wird  dupliziert. 

SWAP  (n2  nl  -  -  -  nl  n2) 

Die  obersten  beiden  Werte  werden  vertauscht. 

OVER  (n2  nl  -  -  -  n2  nl  n2) 

Kopiert  den  zweiten  Wert  zum  neuen  TOS. 

PICK  (nl  n  -  -  -  nl  n2) 

Pick  holt  den  n-ten  Wert  in  den  TOS. 

ROT  (n3  n2  nl  -  -  -  n2  nl  n3) 

Rot  läßt  die  ersten  drei  Elemente  des  Stack  gegen  den  Uhr¬ 
zeigersinn  rotieren. 

@  (addr  —  nl) 

Holt  eine  16-Bit-Zahl  aus  der  Adresse  addr. 

!  (nl  addr  — ) 

Speichert  eine  16-Bit-Zahl  in  der  Adresse  addr. 
c@  (addr  -  -  -  bl) 
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Holt  eine  8-Bit-Zahl  aus  der  Adresse  addr. 
c!  (bl  addr  -  -  -) 

Speichert  eine  8-Bit-Zahl  in  der  Adresse  addr. 

Kontrollstrukturen 

BEGIN  —  UNTIL  (f  -  -  -) 

Der  Programmteil  zwischen  BEGIN  und  UNTIL  wird  so  lange 
ausgeführt,  bis  der  TOS  bei  UNTIL  ungleich  Null  ist. 

BEGIN  -  WHILE  -  REPEAT  (f  -  ■  -) 

Der  Programmteil  zwischen  BEGIN  und  REPEAT  wird  so  lan¬ 
ge  ausgeführt,  wie  der  TOS  bei  WHILE  ungleich  Null  ist. 

IF  -  ENDIF  (f  -  -  -) 

Der  Programmteil  zwischen  IF  und  ENDIF  wird  nur  dann  aus¬ 
geführt,  wenn  der  TOS  bei  IF  ungleich  Null  ist. 

IF  -  ELSE  -ENDIF  (f  -  -  -) 

Bei  erfüllter  Bedingung  wird  der  Programmteil  zwischen  IF 
und  ELSE  ausgeführt,  bei  nichterfüllter  Bedingung  der  zwi¬ 
schen  ELSE  und  ENDIF. 

Schleifen 
DO  (n2  nl  -  -  -) 

DO  legt  die  Argumente  nl  (Endwert),  n2  (Startwert)  auf  den 
Returnstack  und  leitet  eine  Schleife  ein. 

LOOP  (-  -  -) 

LOOP  erhöht  den  Schleifen-Zähler  um  1,  ist  der  Endwert 
nicht  erreicht,  wird  wieder  zu  dem  auf  DO  folgenden  Befehl 
gesprungen. 

I  (-  -  -  n) 

Der  Befehl  I  legt  den  Wert  des  Schleifenzählers  auf  den  TOS. 
+  LOOP  (n  -  -  -) 

+LOOP  erhöht  den  Schleifenzähler  um  n,  weiter  wie  LOOP. 

Ein-/Ausgabeoperatoren 

KEY  (-  -  -  c) 

Holt  den  ASCII-Wert,  der  gerade  gedrückten  Taste  in  den 
TOS,  ist  keine  Taste  gedrückt,  so  wird  eine  0  in  den  TOS  ge¬ 
legt. 

GET  (-  -  -  c) 

Wartet,  bis  eine  Taste  gedrückt  wird  und  legt  dann  ihren 
ASCII-Wert  in  den  TOS. 

EXPECT  (addr  n  -  -  -) 

Erwartet  eine  Eingabe,  die  mit  Return  abgeschlossen  wird, 
und  legt  sie  bei  addr  mit  einer  maximalen  Länge  n  im  Speicher 
ab.  Als  Abschlußzeichen  wird  eine  1 3  in  den  Speicher  gesetzt. 
EMIT  (c  -  -  -) 

EMIT  gibt  den  auf  dem  TOS  liegenden  ASCII-Wert  auf  dem 
Bildschirm  aus. 

TYPE  (addr  n  -  -  -) 

TYPE  gibt  n  Zeichen,  welche  ab  addr  im  Speicher  stehen, 
auf  dem  Bildschirm  aus. 

CR  (-  -  -) 

CR  bewirkt  einen  Zeilenvorschub. 

CLS  (-  -  -) 

Löscht  den  Bildschirm. 

."TEXT”  (-  -  -) 

Gibt  den  Text  zwischen  ».”«  und  »"«  aus  (funktioniert  nur  in 
compilierter  Form). 

Definitionsbefehle 

n  CONSTANT  (Name)  (n  -  -  -) 

CONSTANT  definiert  eine  Konstante  mit  dem  Wert  n  und 
dem  Namen  (Name).  Wird  (Name)  im  Programm  aufgerufen,  so 
wird  n  auf  den  TOS  gelegt, 
n  VARIABLE  (Name)  (n  -  -  -) 

VARIABLE  definiert  eine  Variable  mit  dem  Wert  n  und  dem 
Namen  (Name).  Wird  (Name)  im  Programm  aufgerufen,  so  wird 
die  Adresse  der  Varible  auf  den  Stack  gelegt.  Ein  Wert  wird  mit 
@  (lies:  Fetch)  auf  den  TOS  geholt  und  mit !  (lies:  Store)  an  ei¬ 
ne  Variable  übergeben, 
n  MEMORY  (Name)  (n  — ) 

MEMORY  definiert  einen  Speicherbereich  mit  dem  Namen 
(Name)  und  der  Länge  n.  Wird  (Name)  im  Programm  aufgeru¬ 


fen,  so  wird  die  Adresse  des  Speicherbereichs  übergeben.  In 
Adresse-2  ist  die  Länge  zu  finden  und  kann  mit  @  ausgelesen 
werden.  MEMORY  ist  kein  Standardwort! 

:  (Name)...;  (-  -  -) 

Der  Doppelpunkt  definiert  ein  neues  Forth-Wort  mit  dem  Na¬ 
men  (Name).  Die  Definition  muß  mit »;«  abgeschlossen  wer¬ 
den. 

Systembefehle 

BASIC:  Kehrt  zum  Basic  zurück. 

RESET:  Kehrt  zum  Ausgangszustand  zurück. 

LIST  n:  Listet  Screen  n  auf  dem  Drucker  oder  dem  Bildschirm. 
CLEAR  n:  Löscht  SCREEN  n  auf  der  Diskette. 

LOAD  n:  Compiliert  Screen  n  in  das  Vocabulary. 

FORGET  (Name):  Löscht  das  Wort  (Name)  aus  dem  Vocabu¬ 
lary. 

VLIST:  Listet  das  Vocabulary. 

SAVE-SYSTEM  (Name):  Speichert  den  Objektcode  und 
Vocabulary-Einträge  aller  selbstdefinierten  Befehle  auf  Dis¬ 
kette. 

LOAD-SYSTEM  (Name):  Lädt  den  Objektcode  und  die 
Vocabulary-Einträge  wieder.  Das  System  muß  vorher  mit  RE¬ 
SET  wieder  in  den  Ausgangszustand  gebracht  werden  und  in 
Zeile  380  muß  die  Variable  VOC  denselben  Wert  wie  beim 
Speichern  haben,  da  sonst  die  Sprungadressen  im  Objektco¬ 
de  nicht  stimmen. 

EDIT  n:  Ruft  den  Bildschirmeditor  auf,  n  ist  die  Nummer  des 
Screens. 

Spezialbefehle 

CALL  (addr  — ) 

Ruft  ein  Maschinenprogramm  mit  der  Adresse  addr  auf.  Es 
können,  wie  bei  SYS  in  Basic,  in  den  Speicherzellen  780  das 
A-,  781  d?°  X-,  782  das  Y-Register  mit  übergeben  werden. 

Bringt  das  oberste  Element  des  Return-Stacks  auf  den 
Stack. 

)  R  (n  -  -  -) 

Bringt  das  oberste  Element  des  Stacks  auf  den  Return- 
Stack. 

;s  (-  -  -) 

Dieser  Befehl  sorgt  für  den  vorzeitigen  Abbruch  des  aktuel¬ 
len  Befehls. 


Das  Programm 


Das  Programm  ( Listing  1 )  wurde  mit  Absicht  sehr  flexibel  ge¬ 
halten.  Nach  oder  während  des  Abtippens  können  Sie  einige 
Dinge  nach  Ihrem  eigenen  Ermessen  ändern.  So  zum  Beispiel 
die  Startadresse  des  Objektcodes  in  Zeile  380;  die  Variable 
VOC  enthält  den  Startwert.  Allerdings  sollten  Sie  nicht  unter 
VOC = 5  *  4096  gehen,  da  sonst  eine  Kollision  mit  dem  String- 
Bereich  möglich  ist.  Dies  macht  sich  durch  eine  »OUT  OF  ME- 
MORY«-Meldung  oder  durch  einen  Systemabsturz  bemerk¬ 
bar.  Das  Programm  kann  nur  mit  16-Bit-Zahlen  arbeiten  und 
umfaßt  nicht  den  gesamten  Forth-Standard.  Das  Programm 
besteht  aus  einem  Compiler,  der  in  den  Zeilen  1 540  bis  26 1 0, 
und  einem  Interpreter,  der  in  den  Zeilen  700  bis  1530  steht. 
Der  Interpreter  ist  nicht  in  der  Lage,  alle  Befehle  auszuführen. 
Um  Ihnen  zu  helfen,  welche  Befehle  interpretierbar  sind  und 
welche  nicht,  sind  nur  die  interpretierbaren  im  Vocabulary  auf¬ 
geführt.  Andere  Befehle  wie  VARIABLE,  MEMORY  etc.,  kurz¬ 
um  alle  Definitionsbefehle,  dürfen  nicht  im  Compilermodus  an¬ 
gewendet  werden. 


Programmieren  in  Forth 


Nach  dem  Starten  des  Programms  wird  zuerst  das  Maschi¬ 
nenprogramm  »VOCABULARY«  (Listing  2)  in  den  Bereich 
49152  bis  50160  geladen.  Nach  etwa  einer  Sekunde  er- 
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scheint  ein  blinkender  Cursor;  jetzt  können  Sie  Ihre  Eingaben 
machen.  Sie  befinden  sich  im  Interpretermodus,  das  heißt  alle 
eingegebenen  Befehle  werden  sofort  ausgeführt.  Daß  dies  im 
Interpretermodus  so  langsam  geht,  liegt  nur  daran,  daß  der  In¬ 
terpreter  in  Basic  geschrieben  ist;  compilierte  Befehle  laufen 
dagegen  etwa  10-  bis  20mal  so  schnell  wie  Basic  (sie  werden 
vollkommen  in  Maschinensprache  übersetzt).  Vielleicht  ge¬ 
ben  Sie  mal  das  folgende  Beispiel  ein:  »8  5  +  .«  (RETURN). 
Sie  müßten  jetzt  13  auf  dem  Bildschirm  erhalten;  wenn  nicht, 
dann  müssen  Sie  irgendwo  im  Programm  einen  Fehler  ge¬ 
macht  haben.  Sie  können  auch  Kommentare  einfügen,  sie 
werden  mit  einer »{« begonnen  und  mit »)« abgeschlossen.  Je¬ 
der  Befehl  wird  durch  ein  Leerzeichen  (oder  Return)  vom  an¬ 
deren  getrennt. 

Doch  wie  definiert  man  einen  neuen  Befehl?  Diese  Frage 
wird  Ihnen  sicher  schon  lange  auf  den  Lippen  brennen.  Doch 
auch  hier  macht  es  Ihnen  Forth  sehr  einfach.  Um  die  Definition 
eines  neuen  Befehls  einzuleiten  wird  »:«  benutzt,  gefolgt  von 
dem  Namen  des  neuen  Befehls  (bitte  vergessen  Sie  nicht  das 
Leerzeichen  hinter  jedem  Befehl.)  Dann  folgen  die  Befehle,  die 
in  das  Wort  compiliert  werden  sollen.  Ein  »;« beendet  die  Defi¬ 
nition.  Danach  ist  der  Befehl  wie  jeder  andere  Befehl  benutz¬ 
bar.  Auf  Fehler  reagiert  der  Compiler,  indem  er  die  Compilation 
abbricht.  Danach  sollte  man  den  Befehl  mit  FORGET  löschen, 
da  sonst  das  Programm  abstürzt,  wenn  Sie  den  Befehl  aufru- 
fen. 

Der  Editor 


Nun  ist  es  ziemlich  zeitaufwendig,  wenn  man  bei  jedem  Feh¬ 
ler  den  Befehl  neu  eingeben  muß,  deshalb  bietet  Forth  einen 
zweiten  Editor.  Es  ist  ein  Bildschirmeditor,  welcher  mit  dem 
Systembefehl  »EDIT  n«  aufgerufen  wird,  n  bezeichnet  hier  die 
Nummer  des  Screens,  der  editiert  werden  soll.  Ein  Screen  ist 
einfach  eine  Bildschirmseite,  auf  der  der  zu  compilierende 
Sourcecode  steht. 

Geben  Sie  einmal  »EDIT  1«  ein.  Das  System  versucht  nun, 
Screen  1  von  der  Diskette  zu  laden.  Ist  der  Screen  nicht  auf 
Diskette  vorhanden,  so  wird  trotzdem  in  den  Editor  gesprun¬ 
gen,  nur  daß  der  Screen  leer  ist.  Nachdem  sich  das  System 
im  Editor  befindet,  sehen  Sie  links  die  Zeilennummern  von  0 
bis  23  mit  folgendem  Doppelpunkt  (dieser  Doppelpunkt  hat 
keine  Bedeutung).  Sie  können  nun  mit  dem  Cursor  hinter  den 
Doppelpunkt  fahren  und  eine  Zeile  eingeben.  Jede  Zeile  muß 
mit  RETURN  abgeschlossen  werden.  Eine  Zeile  darf  nicht  län¬ 
ger  als  35  Zeichen  sein.  Geben  Sie  doch  einmal  das  vorherige 
Beispiel  ein.  Die  Nummer  am  Anfang  jeder  Zeile  entspricht  in 
etwa  einer  Zeilennummer  in  Basic. 

Um  nun  den  Editor  zu  verlassen,  gibt  es  zwei  Möglichkeiten, 
einmal  mit  »e«,  damit  der  Screen  n  abgespeichert  wird  und  mit 
»s«,  so  wird  der  Editor  ohne  Änderung  des  Screens  verlassen. 
Die  Buchstaben  müssen  in  der  ersten  Spalte  einer  Zeile  ste¬ 
hen,  also  dort,  wo  die  Zeilennummer  steht.  Es  gibt  noch  mehr 
dieser  Editorbefehle  (siehe  Tabelle  4).  Zum  Einfügen  von  Zei¬ 
len  benützen  Sie  »I  Zeile  Anzahl«,  mit  »D  Zeile  Anzahl«  löschen 
Sie  Zeilen.  Mit  »L«  listen  Sie  den  Screen  noch  einmal,  das  ist 
dann  von  Nutzen,  wenn  Sie  versehentlich  die  CLR-Taste  betä¬ 
tigt  haben.  Mit  »N  Nummer«  ändern  Sie  die  Nummer  eines 
Screens.  Das  Compilieren  eines  Screens  geschieht  mit  LOAD 
n.  Soll  der  nächste  Screen  (n  +  1)  auch  noch  compiliert  wer¬ 
den,  so  muß  in  der  letzten  Zeile  des  Screens  n  der  Befehl 
»-->«  vorhanden  sein.  Experimentieren  Sie  doch  mal  ein  biß¬ 
chen  mit  dem  Editor. 

In  den  Listings  3  bis  7  finden  Sie  einige  selbstdefinierte  Be¬ 
fehle.  Die  Befehle  J  und  LEAVE  in  Listing  4  möchte  ich  näher 
erklären.  J  gibt  den  Schleifenwert  der  zweitinnersten  Schleife 
aus.  Die  Befehle  R>  und  >R  manipulieren  den  Returnstack 
(der  Returnstack  funktioniert  genauso  wie  der  normale  Stack). 


Hier  werden  Werte  für  Schleifen  zwischengespeichert  und 
zwar  im  Format  Endwert,  Zähler.  R  >  holt  den  obersten  Wert 
des  Returnstacks  auf  den  Stack,  >  R  tut  das  Gegenteil.  Die 
704  ist  nur  Zwischenspeicher.  LEAVE  schließt  eine  Schleife 
vorzeitig  ab,  indem  Endwert  und  Zähler  gleichgesetzt  werden. 

Viel  Spaß  beim  Programmieren  in  Forth. 

(Alexander  Schindowski/ev) 


1)  Rechenoperationen: 

1.1)  + 

(n2  nl  -  -  -  n3) 

1.2)- 

(n2  nl  -  -  -  n3) 

1.3)  * 

(n2  nl  -  -  -  n3) 

1.4)/ 

(n2  nl  -  -  -  n3) 

1.5)  MOD 

(n2  nl  -  -  -  n3) 

2)  Vergleichsoperatoren: 

2.1)  = 

(n2n1  ---f) 

2.2)  > 

(n2  nl  -  -  -  f) 

2.3)  < 

(n2  nl  -  -  -  f) 

3)  Logische  Verknüpfungen: 

3.1)  AND 

(n2  nl  -  -  -  n3) 

3.2)  OR 

(n2  nl  -  -  -  n3) 

3.3)  NOT 

(fl  -  -  -  f 2) 

3.4)  XOR 

(n2  nl  -  -  -  n3) 

4)  Stackoperatoren: 

4.0)  DROP 

(nl  -  -  -) 

4.1)  DUP 

(nl  —  nl  nl) 

4.2)  SWAP 

(n2  nl  -  -  -  nl  n2) 

4.3)  OVER 

(n2  nl  -  -  -  n2  nl  n2) 

4.4)  PICK 

(nl  n  —  nl  n2) 

4.5)  ROT 

(n3  n2  nl  -  -  -  n2  nl  n3) 

4.6)  @ 

(addr  —  nl) 

4.7)  ! 

(nl  addr  -  -  -) 

4.8)  c@ 

(addr  -  -  -  bl) 

4.9)  c! 

(bl  addr  — ) 

5)  Kontrollstrukturen: 

5.1)  BEGIN  —  UNTIL 

(f  -  -  -) 

5.2)  BEGIN  -  WHILE 

-  REPRAT  (f  -  -  -) 

5.3)  IF  —  ENDIF 

<f---) 

5.4)  IF- ELSE -ENDIF  (f  -  - -) 

6)  Definitionsworte: 

6.1)  VARIABLE 

(n  -  -  -) 

6.2)  CONSTANT 

(n  -  -  -) 

6.3)  MEMORY 

(n  — ) 

6.4)  :  ...  ; 

7)  Ein-/Ausgabe: 

7.1)  EXPECT 

(addr  n  -  -  -) 

7.2)  TYPE 

(addr  n  -  •  -) 

7.3)  KEY 

(•  -  •  c) 

7.4)  GET 

-  c) 

7.5)  EMIT 

(o  -  -  -) 

7.6)  .' 

(...) 

7.7)  • 

(n  -  -  -) 

7.8)  CR 

(...) 

7.9)  CLS 

(...) 

8)  Schleifen: 

8.1)  DO 

(n2  nl  -  -  -) 

8.2)  LOOP 

(...) 

8.3)  +LOOP 

(n  -  -  -) 

8.4)  1 

(-  -  -  n) 

9)  Sonstige  Befehle: 

9.1)  call 

(addr  — ) 

9.2)  >R 

(n  — ) 

9.3)  R> 

(-  -  -  n) 

9.4)  DEPTH 

(-  -  -  n) 

Tabelle  1.  Der  Befehlssatz  des  Tiny-Forth-Compilers 
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Hilfsprogramm 


C  64 


Programm 

vocabul ary 

C006 

c3ea 

clf6 

d2 

ae 

04 

C0 

ad 

05 

C0 

4c 

d7 

C006 

a9 

93 

4c 

d2 

ff 

20 

3f 

c  0 

66 

elfe 

2a 

C0 

20 

46 

cl 

a0 

10 

a9 

0e 

c00e 

B5 

62 

06 

63 

a2 

90 

a5 

62 

de 

c206 

00 

öd 

04 

cW 

8d 

05 

C0 

2e 

46 

C016 

: 

30 

09 

a9 

20 

20 

d2 

ff 

38 

42 

c20e 

02 

C0 

2e 

03 

C0 

2e 

04 

cd 

6b 

C0 1  e 

: 

4c 

d4 

bd 

a9 

2d 

20 

d2 

ff 

98 

C216 

2e 

05 

C0 

38 

ad 

04 

C0 

ed 

dB 

C026 

: 

18 

4c 

d4 

bd 

85 

fe 

86 

f  d 

b7 

c21e 

00 

C0 

aa 

ad 

05 

c  0 

ed 

01 

ef 

c02e 

: 

a6 

02 

a5 

fe 

9d 

00 

Cf 

eB 

09 

c226 

C0 

90 

06 

Bd 

05 

C0 

8e 

04 

fa 

C036 

: 

a5 

fd 

9d 

00 

cf 

e8 

86 

02 

a4 

c22e 

cM 

88 

d0 

db 

2e 

02 

C0 

2e 

34 

c03e 

: 

60 

a6 

02 

ca 

bd 

00 

cf 

85 

fi 

c236 

03 

C0 

60 

20 

00 

c2 

ae 

02 

Sa 

c046 

: 

fd 

ca 

bd 

00 

cf 

85 

fe 

86 

4a 

c23e 

C0 

ad 

03 

C0 

4c 

2a 

cd 

20 

07 

c04e 

: 

02 

a5 

fe 

a6 

fd 

60 

4c 

3f 

4a 

c246 

MW 

c2 

«ae 

04 

C0 

ad 

05 

c  0 

e2 

C056 

: 

C0 

20 

3f 

c0 

20 

2a 

C0 

4c 

fd 

c24e 

4c 

2a 

C0 

20 

96 

C0 

4c 

2a 

dB 

C05e 

: 

2e 

C0 

20 

3f 

C0 

Bd 

00 

C0 

d6 

c256 

C0 

20 

3f 

C0 

4c 

ab 

c  0 

20 

74 

C066 

: 

Be 

01 

C0 

70 

3f 

C0 

8d 

02 

dd 

c  25e 

60 

C0 

20 

57 

c2 

4c 

57 

c2 

83 

c06e 

: 

C0 

Bo 

03 

C0 

ad 

00 

C0 

ae 

B9 

c266 

20 

51 

c2 

e6 

fc 

e6 

fc 

60 

78 

C076 

: 

01 

C0 

70 

2a 

C0 

ad 

02 

C0 

28 

c26e 

20 

51 

c2 

20 

57 

cd 

20 

51 

8a 

C07e 

ae 

03 

C0 

4c 

2a 

C0 

c6 

02 

2f 

c276 

c2 

20 

60 

C0 

20 

ed 

C0 

30 

4d 

C086 

: 

c6 

02 

20 

3f 

C0 

e6 

02 

e6 

56 

c27e 

08 

20 

54 

C0 

20 

54 

cd 

38 

de 

C0Be 

02 

e6 

02 

e6 

02 

4c 

2a 

C0 

0d 

c2B6 

60 

06 

fc 

e6 

fc 

20 

9b 

Cl 

3B 

C096 

: 

a6 

fc 

ca 

bd 

00 

ce 

B5 

fd 

ad 

c28e 

20 

57 

c2 

1B 

60 

a9 

00 

a2 

a6 

C09e 

: 

ca 

bd 

00 

ce 

85 

fe 

86 

fc 

85 

C296 

01 

20 

2a 

C0 

4c 

6e 

c2 

20 

cd 

c0a6 

X 

a5 

fe 

a6 

fd 

60 

85 

fe 

86 

6f 

c29e 

3f 

C0 

e6 

02 

e6 

02 

a5 

fe 

4a 

r.0ae 

: 

fd 

a6 

fc 

a5 

fe 

9d 

00 

ce 

6d 

c2a6 

10 

c6 

20 

51 

c2 

20 

57 

c0 

58 

c0b6 

: 

eB 

a5 

fd 

9d 

00 

ce 

eB 

86 

cb 

c2ae 

20 

51 

c2 

4c 

7a 

c2 

20 

3f 

6e 

c0be 

: 

fc 

60 

38 

ad 

00 

c  0 

ed 

02 

70 

c2b6 

C0 

05 

fd 

f0 

02 

38 

60 

18 

2a 

C0C6 

: 

C0 

Bd 

04 

C0 

ad 

01 

C0 

ed 

28 

c2be 

60 

20 

3f 

c  0 

8a 

4c 

d2 

ff 

6d 

c0ce 

: 

03 

C0 

Bd 

05 

C0 

60 

18 

ad 

00 

C2c6 

20 

87 

ea 

P0 

ff 

f0 

04 

e0 

da 

C0d6 

00 

C0 

6d 

02 

C0 

8d 

04 

C0 

de 

C2CB 

0d 

b0 

02 

a2 

00 

a9 

00 

4c 

ee 

C0de 

: 

ad 

01 

C0 

6d 

03 

c0 

Bd 

05 

60 

c2d6 

2a 

C0 

20 

c6 

c2 

20 

57 

cd 

4d 

c0e6 

: 

C0 

60 

a9 

0d 

4c 

d2 

ff 

20 

7e 

c2de 

20 

b4 

c2 

b0 

06 

20 

54 

cd 

53 

edee 

: 

3f 

cU 

Be 

00 

c  0 

8d 

01 

C0 

2f 

c2e6 

4c 

dB 

c2 

60 

86 

fd 

85 

fe 

c7 

c0f  6 

: 

20 

3f 

C0 

Be 

02 

C0 

8d 

03 

la 

c2ee 

a0 

00 

bl 

fd 

f  0 

06 

20 

d2 

20 

c0fe 

C0 

4c 

C0 

c  0 

20 

ed 

C0 

ad 

fc 

c2f  6 

ff 

cö 

d0 

f  6 

60 

20 

3f 

C0 

f  2 

C  1 06 

04 

C0 

0d 

05 

C0 

f0 

06 

a9 

4d 

c2f  e 

86 

f  7 

20 

3f 

c  0 

a0 

00 

bl 

e4 

c  1 0e 

: 

00 

aa 

4c 

2a 

c  0 

a9 

00 

a2 

5a 

c306 

fd 

20 

d2 

ff 

cB 

c4 

f  7 

d0 

fc 

cl  16 

: 

bi 

4c 

2a 

C0 

20 

ed 

c  0 

30 

b5 

c30e 

f  6 

60 

20 

3f 

C0 

86 

f  9 

20 

Bd 

eile 

06 

a9 

00 

aa 

4c 

2a 

C0 

a9 

bb 

c31 6 

3f 

C0 

86 

f  7 

85 

fB 

a2 

00 

00 

c  1  26 

: 

00 

a2 

01 

4c 

2a 

C0 

20 

60 

2b 

c31e 

a0 

00 

20 

cf 

ff 

91 

f  7 

c9 

C0 

c  12e 

C0 

4c 

la 

Cl 

20 

3f 

C0 

05 

de 

c326 

0d 

f0 

06 

eB 

c8 

c4 

f  9 

d0 

86 

c  136 

: 

fd 

f0 

06 

a9 

00 

aa 

4c 

2  a 

3d 

c32e 

fl 

60 

a5 

02 

4a 

aa 

a9 

00 

9a 

cl3e 

c  0 

a9 

00 

a2 

01 

4c 

2a 

C0 

c4 

c336 

4c 

2a 

C0 

20 

3f 

cd 

86 

f  7 

cf 

c  1  46 

: 

20 

3f 

C0 

8e 

00 

c  0 

8d 

01 

46 

c33e 

85 

f  8 

20 

3f 

c  0 

a0 

01 

91 

68 

c  1 4e 

: 

C0 

20 

3f 

C0 

8e 

02 

C0 

8d 

ld 

c346 

f  7 

8a 

88 

91 

f  7 

60 

20 

3f 

58 

c  1 56 

: 

03 

C0 

60 

20 

46 

cl 

ad 

00 

ff 

c34e 

C0 

86 

f  7 

85 

fB 

20 

3f 

C0 

0f 

c  15e 

: 

C0 

2d 

02 

C0 

85 

fd 

ad 

01 

4e 

c356 

a0 

00 

8a 

91 

f  7 

60 

20 

3f 

4d 

c  1 66 

- 

C0 

2d 

03 

C0 

85 

fe 

4c 

2e 

74 

c35e 

C0 

£7 

•>1 

08 

cl6e 

: 

C0 

20 

46 

cl 

ad 

00 

C0 

0d 

00 

c366 

f  7Jaa 

CB 

bl  f 7  4c  2«,  :0 

27 

c  1 76 

: 

02 

C0 

85 

fd 

ad 

01 

C0 

0d 

f  9 

c36e 

20 

3f 

C0 

B6 

f  7 

85 

f  8 

a0 

ff 

cl  7e 

: 

03 

c  0 

85 

fe 

4c 

2e 

C0 

20 

9c 

C3  76 

00 

bl 

f  7 

aa 

a9 

00 

4c 

2a 

c2 

cl86 

46 

cl 

ad 

00 

C0 

4d 

02 

C0 

18 

c37e 

c  0 

20 

3f 

C0 

ad 

0c 

03 

ae 

db 

clBe 

85 

fd 

ad 

01 

c  0 

4d 

03 

C0 

a  1 

c  386 

0d 

03 

ac 

0e 

03 

6c 

fd 

00 

8d 

c  1 96 

85 

fe 

4c 

2o 

C0 

20 

46 

cl 

ld 

c38e 

20 

3f 

C0 

a4 

02 

8c 

00 

c0 

19 

c  19e 

i 

20 

d4 

C0 

ae 

04 

C0 

ad 

05 

35 

c396 

8a 

0a 

85 

02 

20 

3f 

C0 

ac 

lf 

cla6 

c  0 

4c 

2a 

C0 

20 

60 

C0 

20 

77 

c39e 

00 

C0 

84 

02 

4c 

2a 

C0 

20 

b9 

clae 

46 

cl 

20 

C0 

c  0 

ae 

04 

C0 

08 

c3a6 

3f 

c0 

8e 

00 

C0 

Bd 

oi 

C0 

e7 

clb6 

ad 

05 

c0 

4c 

2a 

C0 

20 

46 

55 

c3ae 

20 

3f 

C0 

Be 

02 

cd 

8d 

03 

d2 

clbe 

: 

cl 

30 

00 

Bc 

04 

C0 

8c 

05 

e3 

c3b6 

C0 

20 

3f 

C0 

8e 

04 

C0 

8d 

95 

clc‘6 

: 

C0 

a0 

10 

0e 

04 

C0 

2e 

05 

a5 

c3be 

05 

C0 

ae 

02 

C0 

ad 

03 

c0 

16 

clce 

: 

c  0 

2e 

02 

c  0 

2e 

03 

c  0 

90 

5d 

c3c6 

20 

2a 

C0 

ae 

00 

C0 

ad 

01 

cd 

cld6 

: 

ld 

10 

ad 

04 

C0 

6d 

00 

C0 

e4 

c3  ce 

C0 

20 

2a 

C0 

ae 

04 

C0 

ad 

aa 

c  lde 

: 

Bd 

04 

C0 

ad 

03 

C0 

6d 

01 

61 

c3d6 

05 

cP) 

4c 

2a 

C0 

20 

fd 

ae 

f  6 

cle6 

: 

C0 

Bd 

05 

c  0 

90 

08 

ee 

02 

cf 

c3de 

20 

d4 

el 

a9 

01 

85 

b9 

a9 

8c 

clee 

C0 

d0 

03 

ee 

03 

c  0 

88 

d0 

af 

c3e6 

00 

4c 

d5 

ff 

00 

00 

00 

00 
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Listing  2.  Maschinenspracheteil  von  Forth  (Bitte  beachten 
Sie  die  Eingabehinweise  auf  Seite  18) 


0: 

(  *»*  Zusatz-Befehle  0  »##  ) 

2: 

3: 

(  Processor-Regi ster  ) 

4: 

5: 

780  constant  a-reg 

6: 

781  constant  x-reg 

7: 

782  constant  y-req 

9: 

10: 

(  Die  folgenden  Befehle  ) 

Ul 

12s 

(  sollen  zeigen, dass  es  > 

13: 

14: 

(  mit  dem  recht  beschei -  ) 

15: 

16: 

(  denen  Grundvokabular  ) 

17s 

18: 

(  moeqlich  ist, doch  ein  ) 

19: 

20: 

(  sinnvol les.xweckmaess-  ) 

21: 

22: 

(  iges  zu  erstellen.  ) 

23: 

—  > 

Listing  3.  Zusatz-Befehle,  Screen  0 

0: (  zusatz-befehl e  1  «*#> 

1: 

2: 

3s  (  2.  Schl eifeni ndex  ) 

4: 

5:  :  j 

6:  r >  r>  r> 

7:  dup  704  ! 

S:  >r  >r  >r 

9:  704  @ 

10:  ; 

11: 

12: 

13: 

14:  (  Verlasse  Schleife  ) 

15: 

16:  :  leave 
17:  r >  r > 

18:  drop  dup 

19:  >r  >r 

20:  ; 

21 : 

22: 

23:  — > 


Listing  4.  Zusatz-Befehle,  Screen  1 


0:  (  «*«  Zusatz-Befehle  2  ***  ) 

li 

2s 

3s  <  open  (addr  1  log  nr  sec  — )  ) 
4  s 

5s  s  open 

6:  185  c!  186  c!  104  c! 

7s  183  c!  187  ! 

8:  65472  call 

9s  ( 

10s 

Hs 

12s 

\3:  (  close  (log  — )  ) 

14s 

15s  s  close 

16s  er  65484  call 

17:  a-reg  c! 

18:  65475  call 

19s  ; 

20: 

21: 

22: 

23s  —  > 

Listing  5.  Zusatz-Befehle,  Screen  2 


0:  <  ***  Zusatz-Bef ehele  3  **#  J 
li 
2: 

3:  (  Ausgabe  auf  File  (log  — )  ) 

4: 

5:  :  out 
6:  >t-reg  cl 

7:  654B1  call 

8:  j 

9: 

10: 

11: 

12:  (  Eingabe  von  File  (log  — )  ) 
13: 

14:  :  in 

15i  x-reg  c! 

16:  65478  call 

17:  ; 

18: 

19: 

20: 

21: 

22: 

23:  — > 

Listing  6.  Zusatz-Befehle,  Screen  3 


0:  (  »»*  Zusatz -Bef ehl e  4  «*»  ) 

1 : 

2: 

3:  (  Ausqabe  auf  Drucker  ) 

4: 

5:  :  printer 
6:  00447  open 

7:  4  out 

8:  er 

9:  ; 

10: 

11: 

12:  (  Ausqabe  auf  Display  ) 

13: 

14:  :  display 
15:  er 

16:  4  close 

17:  ; 

18: 

19: 

20: 

21:  (  *  ende  #  ) 

22: 

23: 

Listing  7.  Zusatz-Befehle,  Screen  4 


120 


C  64 


Hilfsprogramm 


A,X,I,Z  Lauf- 

und  Hilfsvariablen 

voc 

Vocabulary-Zeiger 

BE 

Beginn  des  Vocabulary 

SP 

Zeiger  für  Compilerstack 

AN 

Anzahl  der  Vocabulary-Einträge 

ZE$ 

Eingabezeile 

BES 

Einzelner  Befehl 

COMP 

Flag  für  Compilation 

AD 

Adressen-Zwischenspeicher 

OK 

Zahlenumwandlung  geglückt? 

AS 

Hilfsvariable 

WO$(X) 

Wörterverzeichnis 

AD(X) 

Startadressen-Verzeichnis 

BLOCK 

Flag  für  Compilation  von  Diskette 

ZI 

Zeilenzähler 

XX 

Umgewandelte  Zahl 

X 

Top  of  Stack  (TOS) 

Tabelle  2.  Variablenübersicht  zum  Tiny-Forth-Compiler 

BASIC 

Zurück  zu  Basic 

RESET 

Zurück  in  Ausgangsstellung 

VLIST 

Listet  das  Vocabulary 

FORGET 

Lösche  ein  Wort 

FLOPPY 

Gibt  einen  Befehl  an  die  Floppy 

SAVE-SYSTEM 

Speichert  das  Vocabulary  ab 

LOAD-SYSTEM 

Lädt  das  Vocabulary 

LIST  n 

Listet  eine  Screen 

LOADn 

Compiliert  eine  Screen 

CLEAR  n 

Löscht  eine  Screen 

EDITn 

Ruft  den  Editor  auf 

Tabelle  3.  Forth-Systembefehle 

S*6R 


E 

Beendet  das  Editieren  und  speichert  die  Screens  ab 

S 

Beendet  das  Editieren 

L 

Listet  die  Screens 

1  (z,a) 

Fügt  Zeile(n)  ein 

D  (z,a) 

Löscht  Zeile(n) 

N  (x) 

Ändert  die  Screen-Nummer 

Tabelle  4.  Befehle  des  Forth-Editors 

Inlo:  Llteralur  zu  Forth: 

—  Paul  M.  Chlrllen,  Der  Einstieg  in  Forth,  Mark!  &  Technik  1986,  338  Sellen,  58  Mark. 

—  E.  Floegel,  Förth-Handbuch,  Ing.  W.  Holacker  Verlag  1983,  192  Sellen,  39  Mark. 

—  Monadjeml,  Das  Trainingsbuch  zu  FOrth,  Data  Becker  1986,  300  Selten,  39  Mark. 

—  Ronald  Zech,  Die  Programmiersprache  Forth,  Franzis-Verlag  1984,  312  Selten,  69  Mark. 

—  Weitere  Litern tur  mit  Informationen  über  Forth  sind  zu  beziehen  über  die  doutoohe  Sektion  dar  Forth 
Interest  Group  1FIG}.  Kontaktadresse:  FOrth  Gesellschaft  Deutschland  (Fl©).  Postfach  202264, 
2000  Hamburg  20.  Da  die  FIG  nicht  kommerziell  arbeitet,  bitte  boi  Anträgen  Freiumschlag  beifügen. 


330 

340 

350 

360 

370 


380 

390 

395 

400 

410 

420 

430 


IF  A=0  THEN  A=1 : LOAD" VOCABULARY" ,8,1 
DEF  FN  H  <  X )  =  ( INT (X/256) ) 

DEF  FN  L(X)=(X-256*FN  H<X)> 

POKE  53272 , 23 s  PR I NT "  CCLR ,UG.  BLUE >  " ;  CH 
R*(B> s 

VOC=6*4096 : BE=V0C : SP=0 : Z 1 =0 
PORE  55, FN  L (BE) : POKE  56, FN  H (BE) 

DIM  ST (20) ,SC$ (24) ,WO*(100> ,AD(100) 
PRINT  TAB (14) ; "£QRTH-£OMPILER" 

PRINT  TAB (17) ; "FUER  DEN" 

PRINT  TAB ( 15)  j "£0MMDD0RE-64" 

PRINT" - 


<052> 
<086> 
<191  > 
<030> 


100 

REM 

**************************** 

<  091  > 

ne 

REM 

* 

* 

<  159> 

120 

REM 

* 

FORTH-COMPILER 

* 

<034> 

130 

REM 

* 

* 

<  179> 

140 

REM 

* 

FUER 

* 

<205> 

150 

REM 

* 

* 

<  199> 

160 

REM 

* 

COMMODORE— 64 

* 

<1B1> 

170 

REM 

* 

* 

<219> 

180 

REM 

**************************** 

<171  > 

190 

REM 

* 

* 

<239> 

200 

REM 

* 

ALEXANDER  SCHINDOWSKI 

* 

<251  > 

210 

REM 

* 

* 

<  003  > 

220 

REM 

* 

6000  FRANKFURT/MAIN  50 

* 

<  048 > 

230 

REM 

* 

* 

<  023  > 

240 

REM 

* 

RUDOLF-HI LFERDING-STR. 49 

* 

<  149> 

250 

REM 

* 

* 

<043> 

260 

REM 

**************************** 

<253> 

270 

REM 

* 

* 

<065> 

280 

REM 

* 

TELEPHON: (069)7570520 

* 

<252> 

290 

REM 

* 

* 

<085> 

300 

REM 

**************************** 

<037> 

310 

J 

<032> 

320 

: 

<042> 

<  131  > 

<  155> 
<236> 
<114> 
<018> 

<  1 15> 
<086> 


<156> 


440  PRINT" <5SPACE>ÄDN  ALEXANDER  ACHIND0WSK 
I  1985<8D0WN>" 

450  DATA  38 

460  DATA  "+",49563 

470  DATA  "CLS", 49158, "DEPTH”, 49968 
480  DATA  "@",500 12, "DROP ",49236 
490  DATA  "EMIT", 49855, "EXPECT", 49936 
500  DATA  "=",49410, "I", 49766 
510  DATA  “KEY", 49880 
520  DATA  "+LOOP", 49821, "MOD", 49733 
530  DATA  " NOT ",49458," OVER " , 492B4 
540  DATA  ",49163, "-",49578 
550  DATA  "SWAP", 49248, "?R" , 49751 
560  DATA  "AND"  ,49497,  "CR"  ,49384 
570  DATA  "/",  49721,  "DO  ",49757,"!  ",49977 
580  DATA  "DUP", 49239, "XOR", 49541 
590  DATA  "BET", 49862, ">",49434 
600  DATA  "<" ,49452, "LOOP" ,49811 
610  DATA  49596, "OR", 49519 

620  DATA  "C@" ,50030, "C! " ,49996 
630  DATA  "R>", 49745, "TYPE", 49915 
640  DATA  "PICK", 50062, "CALL", 50047, "ROT”, 5 
0085 

650  READ  AN 

660  FOR  1=1  TO  AN 

670  READ  WO* ( I ) , AD ( I ) 

680  NEai  I : POKE  2,0: POKE  252,0 
690  GOSUB  3830 
693  : 

695  REM  ***»***********■»■»*#*»**#*■» 

700  REM  ***  BEFEHLS-AUSWERTUNG  *** 

705  REM  ***************************** 

708  : 

710  GOSUB  2630 
715  : 

720  IF  BE*=" : "  THEN  1540 
725  : 

730  FOR  I=AN  TO  1  STEP  -1 
740  IF  BE*=W0*(I)  THEN  760 
750  NEXT  I : GOTO  770 
760  SYS  AD ( I ) : GOTO  700 
765  : 

770  GOSUB  3030 

780  IF  OK=0  THEN  830 

790  POKE  781, FN  L(XX> 

800  POKE  780, FN  H(XX> 

810  SYS  49194 
820  GOTO  700 
825  : 

830  IF  BE*="RESET"  THEN  RUN 
835  : 

840  IF  BE*= "BASIC"  THEN  END 
845  : 

850  IF  BE*<>"VLIST"  THEN  900 
860  PRINT: FOR  I=AN  TO  1  STEP-1 
870  PRINT  WO*(I) " <2SPACE>"j 
880  NEXT: PRINT 
890  GOTO  700 
895  : 

900  IF  BE*O"F0RGET"  THEN  950 

910  GOSUB  2630: FOR  I=AN  TO  1  STEP-1 

920  IF  BE*OWO*<I>  THEN  NEXT  I 

930  IF  I >AN  THEN  PRINT  BE*"  X  CAN'T  FIND": 

GOTO  700 
935  : 

940  VOC= AD  ( I )  :  AN=  I  —  1 :  GOTO  700 
950  IF  BE*< >" ( "  THEN  980 

960  IF  BE*<  >" ) "  THEN  GOSUB  2630: GOTO  960 
970  GOTO  700 
975  : 


<092> 

<23B> 

<028> 

<242> 

<  176> 
<206> 
<250> 

<  1 64  > 
<091  > 
<027> 

<  1 47  > 
<128> 
<0B6> 
<0B4> 
<015> 

<  131  > 
<134> 

<  164> 
<225> 

<  188> 


<056> 

<  154> 
<080> 
<061  > 
<134> 

<  122> 
<  161  > 
<227> 

<  130> 
<237> 

<  176> 
<102> 

<  183> 
<051  > 

<  193> 
<033> 

<  1 18> 

<  178> 
<092> 
<233> 
<076> 
<001  > 
<010> 
<102> 
<10B> 
<034> 
<039> 
<035>- 
<049> 
<031  > 
<059> 
<240> 

<  174> 
<12B> 
<234> 

<  104> 

<  109> 

<  1 47  > 
<217> 

<  1 08  > 


<050> 

<  149> 
<163> 

<  1 17> 
<027> 

<  1 84  > 

<  1 89  > 


Listing  1.  Tiny-Forth-Compiler.  Beachten  Sie  bitte  die 
Eingabehinweise  auf  Seite  16. 


191 


-i 


Hilfsprogramm 


C  64 


980  IF  BE*<>“EDIT"  THEN  1020  <027> 
990  BDBUB  2630  :SC=VAL(BE*>  <196> 
1000  PRINT"äCREEN: "; SC: GOSUB  3280  <163> 
1010  IF  BE*=" — >"THEN  ZE*= " " : SC=SC+1 : GOTO 

1000  <005> 
1012  GOTO  700  <226> 
1015  :  <229> 
1020  IF  BE*O"L0AD"  THEN  1050  <066> 
1030  GOSUB  2630: SC=VAL (BE*)  <23B> 
1040  BLOCK=l:Z 1=0: GOSUB  31 10: GOTO  700  <233> 
1050  IF  BE*<  >" — >“  THEN  1070  <048> 
1060  SC=SC+1: GOSUB  31 10: COMP=l : BLOCK* 1 : Zl= 

0: GOTO  700  <225> 
1070  :  <030> 
1080  IF  BE*<>" VARIABLE"  THEN  1145  <137> 
1085  GOSUB  2630: AN=AN+1 : WO* (AN) =BE*  <243> 
1090  AD ( AN) =VOC: XX=VOC+B  <237> 
1095  GOSUB  3470: POKE  VOC, 169  <027> 
1100  POKE  VOC+1, FN  H ( XX )  <1B1> 
1105  POKE  VOC+2,162  <127> 
1110  POKE  VOC+3, FN  L(XX)  <208> 
1115  POKE  VOC+4 ,32: POKE  VOC+5,42  <253> 
1120  POKE  VOC+6, 192: POKE  VOC+7,96  <155> 
1125  POKE  V0C+8.FN  L(X)  <050> 
1130  POKE  VOC+9.FN  H(X>  <167> 
1135  VOC=VOC+10  <237> 
1140  GOTO  700  <100> 
1145  :  < 105> 
1150  IF  BE*<>" MEMORY"  THEN  1220  <167> 
1155  GOSUB  2630: AN=AN+1 : WO* < AN) =BE*  <057> 
1160  AD (AN) =VOC  <061 > 
1165  GOSUB  3470: POKE  V0C.169  <097> 
1170  POKE  VOC+1, FN  H(V0C+12>  <205> 
1175  POKE  VOC+2,162  <197> 
1180  POKE  V0C+3,FN  L(V0C+12)  <232> 
1185  POKE  VOC+4, 32: POKE  VOC+5,42  <067> 
1190  POKE  VOC+6, 192:AD=V0C+12+XX  <244> 
1195  POKE  VOC+7,96  <218> 
1200  POKE  VOC+B ,FN  L( AD): POKE  V0C+9,FN  H (A 

D)  <111> 
1205  POKE  VOC+10.FN  L(XX):P0KE  VOC+ll.FN  H 

(XX)  <126> 
1210  VQC=AD: GOTO  700  <062> 
1220  :  <180> 
1230  IF  BE*< >"CONSTANT"  THEN  1280  <052> 
1240  GOSUB  2630: A*=":  "+BE*+"  ”  <025> 
1250  GOSUB  3470  <238> 
1260  ZE*=A*+STR*(X)+"  j "+ZE*  <110> 
1270  GOTO  700  <230> 
1280  :  <242> 
1290  IF  BE*< >" CLEAR"  THEN  1350  <152> 
1300  GOSUB  2630: SC= VAL (BE*)  <254> 
1310  FOR  ZE=0  TO  24  <162> 
1320  SCSCZE>=""  <063> 
1330  NEXT  ZE: GOSUB  3220  <005> 
1340  GOTO  700  <046> 
1350  :  <056> 
1360  IF  BE*=" SAVE-SYSTEM "THEN  3510  <219> 
1365  :  <071 > 
1370  IF  BE*=" LOAD— SYSTEM "THEN  3720  <159> 
1380  :  <086> 
1390  IF  BE*< >"FLOPPY"  THEN  1420  <144> 
1400  GOSUB  2630  <030> 
1410  OPEN  1,8,  15,  BE*:  CLOSE  l.-GOTO  700  <181> 
1420  :  <126> 
1430  IF  BE*<  >"LIST"  THEN  1520  <088> 
1440  GOSUB  2630: SC= VAL (BE*) : GOSUB  3110  <018> 
1450  INPUT "flUF  DRUCKER  < Y/N) " ; A*: A=3: IF  A* 

="Y"THEN  A=4  <097> 
1460  OPEN  4,A,-7*(A=4)  <220> 
1470  FOR  Z=0  TO  23  <070> 
1480  PRINT#4 .RIGHT* (STR* ( Z) ,2) " : "SC* (Z)  <023> 
1490  NEXT  Z: CLOSE  4  <124> 
1500  IF  A=3  THEN  POKE  198,0:WAIT  198,1  <175> 
1510  COMP=0: GOTO  700  <19B> 
1520  :  <226> 
1530  PRINT  BE*"  i  CAN ' T  FIND":GOTO  700  <190> 
1533  :  <239> 
1535  REM  **************************  <  143> 
1540  REM  ***  COMPILER  ***  <216> 
1545  REM  *************************  <155> 
1548  :  <000> 
1550  GOSUB  2630: AN=AN+1 : WO* ( AN) =BE*  <200> 
1560  AD(AN)=VOC:COMP=l  <206> 
1570  :  <022> 
1580  GOSUB  2630  <212> 


1590  FOR  1=1  TO  ANZ 

1600  IF  BE*<  >WQ* ( I )  THEN  NEXT  I 

1610  AD=AD ( I > 

1615  : 

1620  IF  BE*<  VBEGIN"  THEN  1640 
1630  ST (SP) =VOC: SP=SP+1 : GOTO  1570 
1635  : 

1640  IF  BE*<  >" UNTIL"  THEN  1730 
1650  POKE  VOC , 32 

1660  POKE  VOC+1 , 180: POKE  VOC+2,194 
1670  POKE  VOC+3, 176: POKE  VOC+4, 3 
1680  POKE  VOC+5,76 

1690  SP=SP— 1 : AD=ST (SP) : IF  SP<0  THEN  65535 
1700  POKE  VOC+6, FN  L (AD) 

1710  POKE  VOC+7.FN  H (AD) 

1720  V0C=V0C+8: GOTO  1570 
1725  : 

1730  IF  BE*=" ; "  THEN  POKE  VOC, 96: VOC=VOC+l 
: COMP=0: GOTO  700 
1735  : 

1740  GOSUB  3030 

1750  IF  OK=0  THEN  1800 

1760  POKE  VOC, 169: POKE  VOC+l.FN  H(XX> 

1770  POKE  VOC +2, 162: POKE  VOC+3, FN  L(XX> 
1780  POKE  VOC+4, 32: POKE  VOC+5,42 
1790  POKE  VOC+6, 192: VDC=VOC+7: GOTO  1570 
1800  : 

1810  IF  BE*<  >" IF"  THEN  1870 
1820  POKE  VOC, 32: POKE  VOC+1, 180 
1830  POKE  VOC+2,194: POKE  VOC+3, 176 
1840  POKE  VOC+4, 3: POKE  VOC+5,76 
1850  ST (SP) = VOC+6: SP=SP+ 1 
1860  V0C=V0C+8: GOTO  1570 
1870  : 

1880  IF  BE*<  >" ENDIF"  THEN  1930 
1890  SP=SP— 1 : AD=ST ( SP ) 

1900  POKE  AD,FN  L (VOC) 

1910  POKE  AD+l.FN  H(VOC) 

1920  GOTO  1570 
1  **._>*»  : 

1940  IF  BE*< >" ELSE "  THEN  2010 
1950  AD=ST(SP-1> 

1960  ST (SP— l)=VOC+l 

1970  POKE  VOC, 76: VOC=VOC+3 

1980  POKE  AD,FN  L(VOC) 

1990  POKE  AD+l.FN  H(VOC) 

2000  GOTO  1570 
2010  : 

2020  IF  BE*="WHILE"  THEN  1820 
2030  : 

2040  IF  BE*<  >"REPEAT“  THEN  2110 
2050  AD=ST ( SP- 1 ) : A2=ST ( SP-2 ) 

2060  SP=SP-1 

2070  POKE  VOC, 76 

2080  POKE  VOC+1, FN  L(A2) 

2090  POKE  V0C+2.FN  H(A2) 

2100  VDC=V0C+3: GOTO  1980 

2110  3 

2120  IF  BE*<  > " . " +CHR* ( 34 )  THEN  2225 
2125  A*=" " : ZE*=MID*  <  ZE* ,2) 

2130  IF  LEFT* ( ZE* , 1 ) <  >CHR* (34)  THEN  A*=A*+ 
LEFT* ( ZE* , 1 ) : ZE*=MID# ( ZE* ,2) : GOTO  213 
0 

2 1 35  ZE*=M I D* ( ZE* , 2 ) : A*=A*+CHR*  <  0 ) 

2140  AD=VOC+10 

2145  POKE  VOC, 169 

2150  POKE  VOC+1, FN  H (AD) 

2155  POKE  VOC+2,162 
2160  POKE  VOC+3, FN  L (AD) 

2165  POKE  VOC+4, 32. -POKE  VOC+5,234 
2170  POKE  VOC+6, 194: POKE  VOC+7,76 
2175  AD=VOC+10+LEN(A*> 

2180  POKE  V0C+8.FN  L (AD) 

2185  POKE  VOC+9 , FN  H (AD) 

2190  VOC=VOC+10 

2200  FOR  1=0  TO  LEN(A*)-1 

2205  POKE  VOC+I , ASC (MID* ( A* ,1+1,1) ) 

2210  IF  LEFT  * ( ZE* , 1 ) = "  "  THEN  ZE*=MID*(ZE* 
,2) : GOTO  2210 
2215  NEXT  I 
2220  VOC=AD : GOTO  1570 


Listing  1.  Tiny-Forth-Compiler  (Fortsetzung) 


<  1 74> 
<026> 

<  144> 
<067> 
<215> 

<  1 47  > 
<0B7> 
<091  > 
<192> 
<254> 
<041  > 
<190> 
<250> 

<  176> 
<042> 
<124> 

<  177> 

<  150> 

<  187> 
<028> 
<0B5> 
<.0B2> 

<  1 17> 

<  154> 
<174> 
<254> 
<0B3> 
<125> 
<146> 
<049> 

<  123> 
<010> 
<068> 
<240> 
< 222  > 
<247> 
<020> 
<130> 

<  12B> 
<225> 
<077> 
<023> 
<121  > 
<071  > 
<100> 
<210> 
<20B> 

<  1 70> 
<228> 
<060> 

<  184> 

<  154> 
<110> 
<036> 
<230> 

<  1 06> 
<034> 
<  144> 
<022> 


<  185> 
<063> 
<200> 
<040> 
<227> 

<  161  > 
<254> 
<165> 

<  173> 
<012> 

<  149> 
<010> 
<020> 
<150> 
<036> 

<  173> 
<011> 

<  190> 


C  64 


Hiifsprogramm 


2225 

: 

<169> 

2840 

NEXT  Z 

<010> 

2230 

IF  BE*<>"TEXT"+CHR*(34>  THEN  2320 

<213> 

2850 

IF  LEFT* (ZE*, 1 >  =  "  "THEN  ZE*=MID* (ZE*, 

2235 

A*=  "  "  s  ZE*=MI  D*  <  ZE* , 2) 

<  132> 

2) : GOTO  2850 

<  183> 

2240 

IF  LEFT*  (ZE*, 1 ) <  >CHR* (34)  THEN  A* 

=A#+ 

2860 

IF  ZE*=""  THEN  2770 

<066> 

LEFT* ( ZE* , 1 ) : ZE*=MID*  <  ZE* , 2) : GOTO 

224 

2870 

RETURN 

<  1 34  > 

0 

<045> 

2880 

ZE*=SC* (ZI ): PRINT  RIGHT* (STR* ( Z 1 ) ,2) ; 

2245 

ZE*=M I D* ( ZE* , 2 ) : A*=A*+CHR*  <  0 ) 

<  1 73> 

": ";ZE* 

<219> 

2250 

AD=VOC+10 

<054> 

2890 

IF  LEN ( ZE*) <2  THEN  ZE*=" ( <2SPACE>) " 

<07 1  > 

2255 

POKE  VOC, 169 

<  150> 

2900 

Z1=Z1+1 

<  1 64  > 

2260 

POKE  VOC+1 , FN  H (AD) 

<081  > 

2910 

IF  ZI =24  THEN  BLOCK=0 

<  1 86  > 

2265 

POKE  VOC+2, 162 

<015> 

2920 

RETURN 

<184> 

2270 

POKE  VQC+3 , FN  L (AD) 

<100> 

2980 

: 

<162> 

2273 

POKE  VOC+4 , 32 : POKE  VOC+5 , 42: POKE  VOC+ 

2990 

REM  ************************** 

<236> 

6,192 

<097  > 

3000 

REM  **  WANDELE  ZAHL  UM  ** 

<1  18> 

2275 

POKE  VOC+7,76 

<022> 

3010 

REM  **  IN  XX  ** 

<069> 

2280 

AD=VOC+10+LEN(A*> 

<  1 17> 

3020 

REM  ************************** 

<010> 

2285 

POKE  V0C+8.FN  L (AD) 

<254> 

3030 

s 

<212> 

2290 

POKE  V0C+9.FN  H (AD) 

<  1 1 5> 

3040 

OK=l : X=1 

<  172> 

2295 

VOC=VOC+10 

<  1 25  > 

3050 

IF  LEFT* (BE*, 1)="-"  AND  VAL(BE*><0  TH 

2300 

FOR  1=0  TO  LEN  <A*> -1 

<250> 

EN  BE*=MI D* ( BE* ,2) : X=— 1 :  GOTO  3080 

<007> 

2305 

POKE  VOC+I , ASC (MID* (A* , 1  +  1 , 1 ) )  :  NEXT 

<041  > 

3060 

IF  LEFT  * (BE* , 1 >  >="0"  AND  LEFT* (BE*, 1) 

2310 

IF  LEFT  *  (  ZE*  ,  1  >  *=  "  “  THEN  ZE*=MID*(ZE* 

<="9"  THEN  3080 

<  1 35  > 

,2) : GOTO  2310 

<083> 

3070 

OK=0: RETURN 

<  177> 

2315 

VOC=AD:GOTO  1570 

<031  > 

3080 

XX=VAL (BE*)*X 

<  1 0B  > 

2320 

s 

<010> 

3090 

IF  XX<0  THEN  XX= (256*256) +XX 

<059  > 

2330 

IF  BE*O"D0"  THEN  2390 

<0B8> 

3100 

RETURN 

<110> 

2340 

POKE  VOC , 32 

<  1 20  > 

3103 

; 

<031  > 

2350 

POKE  VOC+1, FN  L (AD) 

<  1B9> 

3105 

REM  ************************* 

<  191  > 

2360 

POKE  V0C+2.FN  H (AD) 

<056> 

3110 

REM  *****  LADE  SCREEN  ***** 

<122> 

2370 

V0C=V0C+3 : ST ( SP ) =VOC 

<01 4> 

3115 

REM  ************************* 

<201  > 

2380 

SP=SP+ 1 :  GOTO  1570 

<  196> 

3118 

- 

<046> 

2390 

: 

<080> 

3120 

OPEN  1,8,15 

<240> 

2400 

IF  B£*< >"LOOP "  AND  BE*<>"+LOOP"  THEN 

3130 

OPEN  2,8,2, "SCR”+STR# (SC) +“ , S, R" 

<  184> 

2500 

<222> 

3140 

INPUT# 1,A 

<225> 

2410 

POKE  VOC, 32 

<  190> 

3150 

IF  A<  >0  THEN  CLOSE  2:CL0SE  1 : FOR  1=0 

2420 

POKE  VOC+l,FN  L (AD) 

<003> 

TO  24:  SC*  ( I )  =  '"' :  NEXT  I:  RETURN 

<215> 

2430 

POKE  VOC+2 , FN  H (AD) 

<  126> 

3160 

FOR  ZE=0  TO  24:B*="" 

<021  > 

2440 

POKE  VOC+3, 176: POKE  VOC+4, 3 

<049> 

3170 

POKE  251, 2: SYS  830 

<249> 

2450 

SP=SP— 1 : AD=ST ( SP ) 

<018> 

31B0 

FOR  1=512  TO  600: X=PEEK ( I ) : IF  X  THEN 

2460 

POKE  VOC+5,76 

<208> 

B+~-  *+CHR*  ( X )  :  NEXT  I 

<  1 42> 

2470 

POKE  V0C+6,AD-256* INT (AD/256) 

<  142> 

3190 

SC* (ZE) =B# 

<044> 

2480 

POKE  VOC+7, INT (AD/256) 

<091  > 

3200 

NEXT  ZE 

<200> 

2490 

V0C=V0C+8: GOTO  1570 

<  132> 

3210 

CLOSE  2: CLOSE  1: RETURN 

<099> 

2500 

: 

<  190> 

3213 

s 

<  141  > 

2510 

IF  BE*< >" ( “  THEN  2540 

<225> 

3215 

REM  ************************** 

<207> 

2520 

GOSUB  2630: IF  BE*<>")"  THEN  2520 

<  12B> 

3220 

REM  *****  SAVE  SCREEN  ***** 

<055> 

2530 

GOTO  1570 

<232> 

3225 

REM  ************************** 

<217> 

2540 

: 

<230> 

3228 

: 

<  156> 

2550 

IF  BE*=" ; S"  THEN  POKE  V0C,96:V0C= 

VOC+ 

3230 

OPEN  1 , 8 , 2 , " @: SCR " +STR*  <  SC  >  + " , S , W " 

<013> 

1 : GOTO  1570 

<005> 

3240 

FOR  ZE=0  TO  24 

<  058  > 

2560 

: 

<252> 

3250 

PRINT#1 ,SC*(ZE> 

<253> 

2570 

IF  I >AN  THEN  PRINT  BE*"  i.  CAN ’ T  FIND" 

3260 

NEXT  ZE 

<004> 

: COMP=0: GOTO  700 

<030> 

3270 

CLOSE  1 : ZE*= " " : PR  I NT " <CLR  > " ; : RETURN 

<068> 

2575 

: 

<011> 

3273 

: 

<201  > 

2580 

POKE  VOC, 32 

<  1 06  > 

3275 

REM  *********************** 

<  1 12> 

2590 

POKE  VOC+ 1 ,  AD— 256*  I NT  ( AD/256  > 

<  133> 

3280 

REM  ****  ED IT  A  SCREEN  **** 

<079> 

2600 

POKE  VOC+2, INT (AD/256) 

<083> 

3285 

REM  *********************** 

<122> 

2610 

VQC-VÜC+3:GDTO  1570 

<234> 

3288 

: 

<216> 

2615 

: 

<051  > 

3290 

GOSUB  3400 

<  022  > 

2620 

REM  ************************ 

<  133> 

3300 

PRINT" {HOME >" ;  :  COMP= 1 

<188> 

2630 

REM  **  HOLE  BEFEHL  IN  BE*  ** 

<  1 60  > 

3310 

GOSUB  2750 

<242> 

2635 

REM  ************************ 

<  148> 

3315 

IF  LEFT*(ZE*,1)="N"  THEN  GOSUB  2630:G 

2637 

: 

<073> 

OSUB  2630 :SC=VAL( BE* ): GOSUB  3420: GOTO 

2640 

IF  ZE*=" "  THEN  GOSUB  2750 

<0B6> 

3300 

<046> 

2650 

IF  LEFT* ( ZE* , 1 >  ="  "THEN  ZE*=MI D* ( ZE* , 

3320 

IF  LEFT# ( ZE* , 1 ) ="E"  THEN  ZE*="":COMP= 

2) : GOTO  2650 

<108> 

0: GOTO  3220 

<  152> 

2660 

. . FOR  1=1  TO  LEN(ZE*> 

<  059  > 

3321 

IF  LEFT #  <  ZE# , 1 >  <  > " I "  THEN  3330 

<  187> 

2670 

IF  LEFT*(ZE*,1)="  "  THEN  2710 

<  1 74  > 

3322 

GOSUB  2630: GOSUB  2630: Z=VAL (BE*) : IF  Z 

2680 

BE*=BE*+LEFT  * ( ZE* , 1 ) 

<  085  > 

<0  OR  Z >23  THEN  GOSUB  3420:GOTO  3300 

<242> 

2690 

ZE*=MID* ( ZE* , 2) 

<164> 

3323 

GOSUB  2630: A=VAL(BE*) : IF  A<0  OR  A>23 

2700 

NEXT  I 

<244  > 

THEN  GOSUB  3420: GOTO  3300 

<033> 

2710 

RETURN 

<22B> 

3324 

FOR  I =22— A  TO  Z  STEP- 1 : SC* ( I + A ) =SC# ( I 

2720 

: 

<  156> 

) : SC* ( I >  =  " " : NEXT 

<070> 

2730 

REM  ************************* 

<068> 

3325 

GOSUB  3420: GOTO  3300 

<213> 

2740 

REM  ***  HOLE  ZEILE  IN  ZE*  *** 

<027> 

3330 

IF  LEFT* (ZE*, 1 ) ="S"  THEN  ZE*="":PRINT 

2750 

REM  ************************* 

<  088  > 

" {CLR>"; :COMP=0: RETURN 

<  147> 

2755 

: 

<  1 91  > 

3331 

IF  LEFT* ( ZE#, 1 ) < >"D"  THEN  3337 

<246> 

2760 

IF  BLOCK=l  THEN  2880 

<023> 

3332 

GOSUB  2630: GOSUB  2630: Z=VAL (BE*) : IF  Z 

2770 

IF  COMP=0  THEN  PRINT" <2SPACE>0K. * 

<039> 

<0  OR  Z  >23  THEN  GOSUB  3420: GOTO  3300 

<254> 

2780 

SYS  42336 

<123> 

3333 

GOSUB  2630: A=VAL(BE*) : IF  A<0  OR  A>23 

2790 

ZE*=" " 

<  1 90  > 

THEN  GOSUB  3420: GOTO  3300 

<045> 

2800 

FOR  Z=512  TO  600 

<099> 

3334 

FOR  I=Z  TO  22— A : SC* ( I ) =SC* (I+A) :SC#(I 

2B10 

A=PEEK(Z) 

<003> 

+A)=" " : NEXT 

<131  > 

2820 

IF  A=0  THEN  2850 

<231  > 

2830 

ZE*=ZE*+CHR*(A> 

<153> 
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3335 

60SUB  3420: GOTO  3300 

<225> 

3337 

IF  LEFT*(ZE*,1)="L"  THEN  GOSUB  3420: G 

OTO  3300 

<128> 

3340 

ZE=VAL(ZE*> 

<004> 

3350 

ZE*=MID* (ZE*,3> 

<078> 

3360 

IF  ZE>9  THEN  ZE*=MID* ( ZE* , 2) 

<032> 

3370 

SC*(ZE)=ZE* 

<141  > 

3300 

GOSUB  2630:  IF  BE*=" — >'•  THEN  GOTO  322 

0 

<037> 

3390 

GOTO  3310 

<  124> 

3393 

: 

<067> 

3395 

REM  ************************* 

<227> 

3400 

REM  *****  LIST  SCREEN  ***** 

<098> 

3405 

REM  ************************* 

<237> 

3400 

: 

<082> 

3410 

GOSUB  3110 

<  128> 

3420 

PRINT"  CCLRV ; 

<  056  > 

3430 

FOR  ZE=0  TO  23 

<248> 

3440 

PRINT  RIGHT* (STR* (ZE) . . . 

<157  > 

3450 

PRINT  LEFT* (SC* < ZE) ,38) 

<01B> 

3460 

NEXT  ZE: RETURN 

<  1 84  > 

3463 

: 

<  137> 

3465 

REM  *********************** 

<048> 

3470 

REM  **  HOLE  WERT  VOM  TOS  ** 

<047> 

3475 

REM  *********************** 

<058> 

3400 

AD=52992+PEEK(2> 

<065> 

3490 

X=PEEK ( AD-1 ) +256*PEEK (AD-2) 

<  1 38  > 

3500 

POKE  2 , PEEK (2) —2: RETURN 

<243> 

3503 

: 

<  177> 

3505 

REM  *********************** 

<088 > 

3510 

REM  ***  SAVE-SYSTEM  *** 

<056> 

3515 

REM  *********************** 

<098> 

3510 

: 

<  192> 

3520 

GOSUB  2630 

<11B> 

3530 

OPEN  1,8,15,"S: "+BE$+“ . *“ : CLOSE  1 

<206> 

3540 

OPEN  2,8,2,BEt+".V0C,P,W" 

<175> 

3550 

PR I NT#2 , AN : PR I NT#2 , VOC 

<  063 > 

3560 

FOR  ZE=39  TO  AN 

<075> 

3570 

PRINT#2,W0*(ZE> 

<202> 

3500 

PRINT42, AD (ZE) 

<160> 

3590 

NEXT  ZE 

<0B2> 

3600 

CLOSE  2:BE*=BE*+".C0DE" 

<016> 

3610 

POKE  187, FN  L (720) : POKE  188, FN  H(720> 

<013> 

3620 

FOR  1=1  TO  LEN (BE$) 

<095> 

3630 

POKE  719+I,ASC(MID*(BES,I,1)) 

<  1 15> 

3640 

NEXT  I : POKE  183,LEN(BE*) 

<233> 

3650 

POKE  186,8: POKE  185,1 

<  199> 

3660 

POKE  251, FN  L (BE) : POKE  252, FN  H (BE) 

<  173> 

3670 

POKE  780,251 

<205> 

3680 

POKE  781 ,FN  L (VOC) 

<225> 

3690 

POKE  782, FN  H(VOC) 

<007> 

3700 

SYS  216+256*255 

<020> 

3710 

GOTO  700 

<  1 30> 

3713 

: 

<  133> 

3715 

REM  *************************** 

<012> 

3720 

REM  ****  LOAD  SYSTEM  **** 

<  056  > 

3725 

REM  *************************** 

<022> 

3720 

a 

<  l-*0> 

3730 

GOSUB  2630 

<074> 

3740 

OPEN  2,8,2,BE*+".V0C,P,R" 

<217> 

3750 

I NPUT #2 , AN , VOC 

<249> 

3760 

FOR  ZE=39  TO  AN 

<021> 

3770 

INPUT#2,W0*(ZE> 

<068> 

3780 

I NPUT #2 , AD ( ZE ) 

<026> 

3790 

NEXT  ZE: CLOSE  2 

<162> 

3800 

SYS  50139, BE*+". CODE", 8 

<U0> 

3810 

GOTO  700 

<230> 

3813 

: 

<233> 

3815 

REM  *************************** 

<  1 12> 

38^0 

REM  ***  DATA  *** 

<160> 

3825 

REM  *************************** 

<  122> 

3828 

: 

<24B> 

3830 

DATA  166,251,  32,198,255,160,  0,  32, 

207,255,201,  13,240,  7,153,  0 

<  161  > 

3840 

DATA  2,200,  76,  69,  3,169,  0,153, 

0,  2,  76,204,255 

<24B> 

3850 

FOR  1=  830  TO  858: READ  A:POKE  I,A:Z=Z 

+A: NEXT  I 

<  157> 

3860 

IF  Z03379  THEN  PRINT" <RVSON>£EHLER  I 

N  £ATA (RVOFF I " : END 

<107> 

3870 

RETURN 

<  1 18> 

e  ©4 

'er 
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Hypra-Save 

Hypra-Save  ist  eine  Ergänzung  zu 
Hypra-Load.  Es  speichert  Programme 
3-  bis  5mal  schneller  und  kann  mit 
Hypra-Load  verwendet  werden. 

Ein  großer  Nachteil  der  Diskettenstation  VC  1541  ist  die 
durch  den  seriellen  Bus  und  durch  das  DOS  V2.6  bedingte  ge¬ 
ringe  Geschwindigkeit.  Inzwischen  gibt  es  mehrere  Program¬ 
me,  die  das  Laden  von  Diskette  beschleunigen.  Mit  der  hier 
vorgestellten  Routine  geht  jetzt  auch  das  Speichern  von  Pro¬ 
grammen  mit  dem  C  64  wesentlich  rascher. 

Hypra-Save  ist  3-  bis  5mal  so  schnell  wie  die  Originalroutine. 
Es  verträgt  sich  mit  Hypra-Load  und  vielen  anderen,  auch  pro¬ 
fessionellen,  Programmen  und  Basic-Erweiterungen.  Zur  Be¬ 
dienung  von  Hypra-Save  sollten  Sie  folgendes  beachten:  Die 
Eingabe  muß  mit  dem  MSE  erfolgen.  Nach  dem  Laden  startet 
man  es  wie  gewohnt  mit  RUN.  Danach  sollte  man  NEW  einge¬ 
ben,  wenn  man  ein  eigenes  Programm  schreiben  will. 

Hypra-Save  kann  Files  mit  oder  ohne  Verify  speichern. 

Gibt  man  vor  dem  Filenamen  als  erstes  Zeichen  einen  Stern 
ein,  so  wird  nicht  verifiziert.  Feststellbar  an  bis  zu  5mal  schnel¬ 
leren  Speicherzeiten.  Mit  Verify  ist  Hypra-Save  etwa  3mal 
schneller  als  die  Original-SAVE-Routine.  Wer  einen  »25,  WRI- 
TE  ERROR«  bisher  nur  aus  der  Literatur  kennt,  der  kann  ge¬ 
trost  ohne  Verify  arbeiten.  Selbstverständlich  kann  man  weiter¬ 
hin  Programme  überschreiben.  Dann  ist  der  Klammeraffe  mit 
anzugeben.  So  überschreibt  der  Befehl  SAVE  ”*@:name",  8 
ein  c"  ,  ohne  die  auf  Diskette  geschriebenen  Blöcke  zu  prü¬ 
fen,  also  ohne  Verify.  Hat  der  Computer  alle  Daten  gesendet, 
wird  im  Gegensatz  zur  Original-SAVE-Routine  nicht  gewartet, 
bis  das  Laufwerk  die  Datei  geschlossen  hat.  Dies  macht  sich 
besonders  beim  Überschreiben  von  Programmen  bemerkbar. 
Die  Floppystation  arbeitet  noch,  während  der  Computer  sich 
längst  zurückgemeldet  hat.  Man  darf  die  Diskette  selbstver¬ 
ständlich  nicht  vor  dem  Erlöschen  der  roten  LED  aus  dem  Lauf¬ 
werk  nehmen. 

Beim  Speichern  von  Programmen  mit  dem  Klammeraffen 
kommt  die  1 541  häufig  ins  »Schleudern«,  wie  Sie  vielleicht  aus 
eigener  Erfahrung  wissen.  So  kann  es  passieren,  daß  einige 
Programme  nicht  mehr  geladen  werden  können.  Löschen  Sie 
daher  ein  Programm  erst  mit  dem  SCRATCH-Befehl  und  spei¬ 
chern  Sie  erst  dann  die  neue  Version  ab. 

Anstelle  von  RUN/STOP  dient  bei  Hypra-Save  64  die  RE- 
STORE-Taste  zum  Abbrechen.  Allerdings  wird  die  Programm¬ 
datei  dann  nicht  geschlossen  und  erscheint  im  Directory  mit 
einem  Stern.  Möchte  man  die  nicht  geschlossene  Datei  lö¬ 
schen,  so  geht  das  nicht  mit  dem  SCRATCH-,  sondern  nur  mit 
dem  VALIDATE-Befehl.  Übrigens  blinkt  die  rote  LED  nach  dem 
Drücken  von  RESTORE,  Liest  man  dann  den  Fehlerkanal  aus, 
so  erhält  man  die  Meldung  »51,  OVERFLOW  IN  RECORD«,  ge¬ 
folgt  von  Track  und  Sektor  des  letzten  Blocks.  Diese  Fehler¬ 
meldung  weist  sonst  auf  einen  Übertragungsfehler  hin,  der 
von  zu  vielen  Geräten  am  seriellen  Bus  herrühren  kann. 

Sollte  man  eine  merkwürdige  Fehlernummer  wie  zum  Bei¬ 
spiel  6 1  oder  7 1  erhalten,  hilft  meist  nur  ein  Aus-  und  Einschal¬ 
ten  der  Floppy.  Nach  STOP/RESTORE  oder  nach  einem  Reset 
ist  der  SAVE-Vektor  zurückgesetzt.  Hypra-Save  läßt  sich  dann 
mit  SYS  365  wieder  aktivieren. 

Das  Programm  verschiebt  sich  nach  dem  Starten.  Der  eine 
Teil  von  Hypra-Save  liegt  ab  $0150  bis  $0177,  der  andere  von 
$D000  bis  $D5FF  im  Speicher.  Wird  die  SAVE-Routine  aufge¬ 
rufen,  so  wird  über  den  geänderten  SAVE-Vektor  in  die 
Initialisierungs-Routine  nach  $0150  gesprungen.  Dort  wird 
geprüft,  ob  die  anzusprechende  Gerätenummer  größer  als  3 
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ist.  Wenn  ja,  blendet  die  Routine  das  RAM  unter  den  I/O- 
Bausteinen  ein.  Dann  kopiert  es  den  Speicherbereich  von 
$C000  bis  $C5FF,  der  nach  dem  Speichern  wieder  zurück¬ 
geschrieben  wird,  nach  $D600  bis  $DBFF  (RAM)  und  ver¬ 
schiebt  die  eigentlichen  SAVE-Routinen  von  $D000  bis 
$D5FF  (ROM)  nach  $C000  bis  $C5FF.  Denn  die  I/O-Bau¬ 
steine  können  nicht  vom  darunterliegenden  RAM  angespro¬ 
chen  werden. 

Durch  diese  Speicherbelegungstechnik  wird  kein  normaler¬ 
weise  sichtbares  RAM  verändert  und  nur  ein  minimaler  Be¬ 
reich  im  Stack  von  der  Hypra-Save-Routine  belegt.  Vom  Pro¬ 
grammteil  bei  $C000  wird  das  File  zuerst  wie  gewohnt  durch 
die  normalen  lEC-Busroutinen  geöffnet.  Dann  testet  Hypra- 
Save  ob  kein  Fehler  aufgetreten  ist  und  die  Daten  gesendet 
werden  können.  Ist  kein  Fehler  aufgetreten,  so  wird  die  SAVE- 
Routine  für  das  Diskettenlaufwerk  in  das  Floppy-RAM  ge¬ 
schrieben  und  gestartet.  Dieser  Programmteil  liegt  von  $0146 
bis  $01 D9  im  Floppy-RAM.  Er  enthält  hauptsächlich  die  Trans¬ 
ferroutine,  mit  der  sofort  nach  dem  Aufrufen  das  Diskettensta¬ 
tionsprogramm  übertragen,  in  den  Bereich  von  $0300  bis 
$04A0  geschrieben  und  dann  gestartet  wird. 

Der  wesentlich  zur  Geschwindigkeitserhöhung  beitragende 
Datentransfer  beruht  auf  der  gleichzeitigen  Übertragung  von 
je  zwei  Bit  und  auf  dem  erheblich  eingeschränkten  Handsha¬ 
kebetrieb,  mit  dem  beide  Geräte  ihre  Bereitschaft  zum  Transfer 
signalisieren. 


Die  hohe  SAVE-Geschwindigkeit  wird  aber  auch  vom 
Schreibalgorithmus  erzielt,  der  die  für  das  eventuell  durchzu¬ 
führende  Verify  benötigte  Zeit  erheblich  verkürzt.  Hierzu  ein 
Beispiel,  um  die  Arbeitsweise  dieses  Algorithmus  zu  verdeutli¬ 
chen: 

Wenn  sich  der  Schreib-/Lesekopf  in  einer  halben  Disketten¬ 
umdrehung  über  dem  Header  des  gewünschten  Blocks  befin¬ 
det,  die  zu  schreibenden  Daten  im  Puffer  stehen  und  codiert 
sind,  so  hat  die  Originalroutine  den  Pufferinhalt  nach  einer  hal¬ 
ben  Umdrehung  geschrieben  und  nach  einer  weiteren  ganzen 
Umdrehung  verifiziert.  Diese  Methode  benötigt  1,5  Umdre¬ 
hungen  pro  Block,  also  drei  für  zwei  Blöcke. 

Hypra-Save  geht  anders  vor.  Es  verwendet  zwei  Puffer. 
Nach  einer  halben  Umdrehung  wird  der  erste,  nach  einer  wei¬ 
teren  halben  der  zweite  Block  geschrieben.  Es  wird  dann  noch 
eine  Umdrehung  gebraucht,  um  beide  Sektoren  zu  verifizie¬ 
ren.  Man  benötigt  also  nur  zwei  Rotationen  für  zwei  Blöcke,  der 
Zeitgewinn  beträgt  etwa  0,1  Sekunden  pro  Block.  Sind  sämtli¬ 
che  Bytes  übertragen,  so  stellt  der  Computer  wie  erwähnt  das 
RAM  von  $C000  bis  $C5FF  wieder  her,  springt  in  die  Digitali¬ 
sierungsroutine,  schaltet  die  ursprüngliche  Speicherbelegung 
ein  und  kehrt  ins  aufrufende  Programm  zurück.  Das  Laufwerk 
schließt  währenddessen  das  File,  wofür  es  mehr  Zeit  brau¬ 
chen  kann,  wenn  beim  Überschreiben  das  alte  Programm  ge¬ 
löscht  werden  muß. 

(Martin  Pfost/hm) 


PROGRAMM 
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B0 
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16 

85 
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21 

Fl 

A6 
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D0 

02 

21 
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0C 

08 
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07 

9E 

20 

32 

30 

77 

09D9 

34 

85 

01 

Bl 
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48 
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49 
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A0 

00 

05 

80 

91 

30 

B2 

0009 

36 

32 

00 

00 
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C  64 


Das  Grab 
des  Pharao 

Wagen  Sie  den  gefährlichen  Weg 
durchs  alte  Ägypten. 

Ziel  des  Grafikadventures  ist  es,  die  goldene  Totenmaske 
des  Pharaos  zu  finden,  wozu  eine  Pyramide  erforscht  werden 
muß,  in  der  zahlreiche  Fallen  gegen  Grabräuber  verborgen 
sind.  Am  Anfang  des  Spiels  befindet  sich  der  Abenteurer  je¬ 
doch  noch  mitten  in  der  Wüste  und  muß  die  Pyramide  erst  ein¬ 
mal  finden. 

Das  Programm  besteht  aus  58  Bildern,  die  sich  aus  ver¬ 
schiedenen  Komponenten  (Durchgänge,  Türen,  Treppen  und 
so  weiter)  zusammensetzen.  Aufgrund  der  Vielzahl  und  Ähn¬ 
lichkeit  der  Räume  ergibt  sich  ein  wahrer  Irrgarten.  Die  Bilder 
werden,  um  den  Effekt  von  hochauflösender  Grafik  zu  simulie¬ 
ren,  aus  über  80  neudefinierten  Zeichen  und  33  Sprites  zur 
Darstellung  der  Gegenstände  aufgebaut.  Die  Befehlsauswer¬ 
tung  der  Eingaben  folgt  getrennt  in  zwei  »INPUT«  Statements: 
Das  heißt  nach  jedem  eingegebenen  Wort  muß  »RETURN«  ge¬ 
drückt  werden,  wodurch  sich  jedoch  kein  Nachteil  ergibt. 

Das  Programm  versteht  folgende  18  Verben:  gehe,  zerstöre, 
öffne,  klopfe,  frage,  hacke,  töte,  krieche,  werfe,  schiebe,  drehe, 
nimm,  verliere,  ziehe,  list,  save,  stop. 

Da  großer  Wert  auf  die  Grafik  gelegt  wurde,  wuchs  die  Länge 
des  Programmes  und  leider  auch  die  Unübersichtlichkeit  be¬ 
trächtlich  an,  wodurch  manche  Stellen  möglicherweise  etwas 
umständlich  programmiert  wurden.  Doch  ich  bin  sicher,  daß 
dies  der  Spielfreude  keinen  Abbruch  tun  wird. 


Auf  der  Suche  nach  der  goldenen  Totenmaske  des  Pharao 
müssen  Sie  hier  die  erste  Aufgabe  lösen.  Eine  Menge  Pro¬ 
grammzeilen  sind  auf  dem  Weg  in  die  Wüste,  in  der  das  Grab 
des  Pharao  steht,  einzutippen.  Damit  Sie  nicht  hier  schon  »in 
der  Wüste  der  Fehlermeldungen«  stehen,  ist  auch  dieses  Pro¬ 
gramm  mit  dem  Checksummer  einzugeben.  Liegt  diese  Hürde 
hinter  Ihnen,  wird  Ihnen  ein  freundlicher  Beduine,  sobald  Sie 
Ihn  gefunden  haben,  den  richtigen  Weg  weisen. 

(Wolfgang  Rausch/rg) 


Programmbeschreibung: 
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150 
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164- 

410 
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Verbs 

500- 

1910 

:  Befehlsauswertung 

5000- 

5910 

:  Kommentare  und  Eingabe  eines  Nomens 

1 0000  - 

10900 

:  Einlesen  der  Charakter-DATA 

1 2000  - 
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:  Einlesen  der  Sprite-DATA 

19000  — 

20900 

:  Zeichnen  der  Bilder  (Hintergrund) 

21000- 
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:  Zeichnen  der  Durchgänge 

21030- 
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:  Zeichnen  der  Türen  (Sprites) 

21050- 

21500 

:  Zeichnen  der  Gegenstände  (hauptsächlich 
Sprites) 

30000  — 

30040 

:  Gegenstände,  die  man  trägt,  auflisten 

34000  — 

35060 

:  Routinen  zum  Einlesen  und  Abspeichern  eines 
Files 

39900  — 

40044 
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50105  — 
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52030 

:  Kommentare  bei  Niederlage  des  Spielers  und 
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Programmbeschreibung  »Grab  des  Pharao« 


0  REM  ***  PHARAOS  GRAVE  V. 2  *** 

<  020  > 

I  TE>  " 

<089> 

1  REM  BY  W. RAUSCH 

<090> 

165 

POKE  V+17 ,PEEK (V+17) OR  16 

<096> 

2  REM  MQERIKEWEG  73 

<000> 

170 

F'RINT"  OJPTMOEGLICHE  RICHTUNGEN  :"; 

<086> 

3  REM  8504  STEIN 

<  134  > 

174 

FOR  1=1  TO  6 

<147> 

5  Al*="  tHOME,  18D0WN)  " 

<243> 

175 

IF  PN (AP , I ) >0  THEN  ON  I  GOSUB  179, 

180, 

6  A2*=" tHOME, 21 DOWN) " 

<  149> 

181,182,184,185 

<245> 

7  A3*=  '•  {HOME  ,  22D0WN 1 " 

<004> 

176 

NEXT:  GOTO  210 

<205> 

8  A4*= " {HOME , 23DQWN i " 

<218> 

179 

PRINT"  W";: RETURN 

<092> 

9  PRINT“ £CLR3“:V=5324B:SI =54272: POKE  V+21, 

180 

PRINT"  0"i: RETURN 

<  220  > 

0 : PQKE  657,128 

<228 > 

181 

PRINT"  N":: RETURN 

<205> 

10  FOR  1=832  TO  865:READ  A:POKE  I,A:NEXT 

<220> 

182 

PRINT"  S";: RETURN 

<031  > 

11  DATA  120,169,51,133,1,169,0,133,95 

<094> 

184 

PRINT"  H" ; : RETURN 

<  1 12> 

12  DATA  133,90,133,88,169,208,133,96,169,2 

185 

PRINT"  R": RETURN 

<  1 10> 

40,133,89,169,224,133,91 ,32,191 , 163 

<0  1  9> 

210 

PRINT  Al «"BESONDERHEITEN:  " : : N=0 

<131  > 

1  3  DATA  16?,55t  133,  1  ,Bö,Vü 

<09  1  > 

220 

FOR  1=1  TO  46 

<246> 

15  SYS  832: POKE  850,160:SYS  832:P0KE  56576 

222 

IF  N>0  AND  IN ( 1 , 1 ) =AP  AND  IN (1,3)= 

1  TH 

,PEEK (56576) AND  252: POKE  53272,8 

<  225 > 

EN  PR INT" CI 6R I GHT ) " I T* ( I ) 

<019> 

16  POKE  648,192 

<  169> 

230 

IF  IN ( 1 , 1 ) =AP  AND  N=0  AND  IN(I,3>= 

1  TH 

20  GOTO  10000 

<240> 

EN  PRINT  I T* ( I ) : N=1 

<  1 42> 

22  PRINT" {CLRJ SCRATCH  GRAB": OPEN  1,B,15,"S 

240 

NEXT 

<  250  > 

: GRAB" : CLÜSE  1 

<  141> 

242 

IF  AP=35  AMD  XS=1  THEN  50100 

<124> 

24  SAVE "GRAB" ,8: VER IF Y"GRAB" , 8: L IST  22-24 

<213> 

245 

IF  AP=16  AND  IN  < 14 , 1 ) =-l  AND  IN<15 

,1>> 

30  DIM  PN<58,6> , IT*(54> , 1N<46,3) ,C0*(18> 

<10B> 

0  THEN  50800 

<233> 

40  FOR  1=1  TO  18: READ  CO* ( I ) : NEXT 

<059  > 

246 

IF  AP=53  AND  IN(45,1>— 1  THEN  50720 

<212> 

50  FOR  1=1  TO  54: READ  IT*(I):NEXT 

<196> 

247 

IF  AP=50  AND  IN(46, 1)0-1  THEN  502 

07 

<227> 

55  RETURN 

<  1 13> 

250 

PRINT  A3*:  INPUT"K.OMMANDO  " ;  B* 

<084> 

60  FOR  1=866  TO  895:READ  A:POKE  I,A:NEXT:I 

260 

FOR  1=1  TO  18 

<160> 

F  KK=1  THEN  RETURN 

<175> 

270 

IF  LEFT* (B* , 4 ) =LEFT* (CO* ( I ) ,4) THEN 

300 

<011> 

65  FOR  1=1  TO  58 

<221  > 

280 

NEXT 

<036> 

70  READ  PN  (1,1),  PN  (1,2)  ,  F'N  (1,3)  ,  F’N  (1,4)  ,  PN 

300 

IF  AP=4 1  AND  IN(41, 1)0-1  OR  AP=42 

AND 

( 1 ,5) ,PN( I ,6) 

<231  > 

IN  (4 1,1)  0-1  THEN  GOSUB  52000 

<038> 

80  NEXT 

<090> 

310 

IF  C=3  THEN  50208 

<  169> 

90  FOR  1=1  TO  46 

<  1 16> 

410 

IF  AP=24  THEN  GOTO  50204 

<026> 

100  READ  IN(I,1)  , IN ( 1 , 2)  , IN  < I ,3) 

<063  > 

500 

IF  IOl  THEN  730 

<091  > 

110  NEXT 

<120> 

510 

GOSUB  5540 

<196> 

130  RETURN 

<  iee> 

530 

GOTO  550 

<062> 

150  AP= 1 

<iio> 

540 

GOTO  5530 

<180> 

1 55  POKE  53280 ,11: POKE  5328 1 , 0 

<051  > 

550 

IF  AP=2  OR  AP=3  THEN  X1=X1+1 

<252> 

160  PRINT" (CLR>”:POKE  V+21 , 0: POKE  V+17.PEE 

560 

IF  XI =2  THEN  GOTO  50190 

<193> 

K (V+17) AND  239: GOSUB  19000 

<081  > 

570 

IF  AP=10  AND  IN (6, 1 ) =— 1  THEN  5530 

<  159> 

164  POKE  214,  15:  SYS  58640:  PRINT"  {REDISWuÜ 

590 

IF  AP=19  AND  A#="R" AND  IN(9, 1)019 

THE 

u  u  uTjV17I7Ml7u1Tui/UV)Tw"wVuA"u'w  wVuVyVuVuTAiV  {WH 

N  GOTO  50203 

<  1 16> 
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610  IF  AP=31  AND  A*="S"THEN  GOTO  50202  <039> 

620  IF  AF-48  AND  A*=”S"QR  AP=44  AND  A*="W" 

THEN  50206  <025> 

630  IF  AP=35  AND  IN(14,l)OAP  THEN  50100  <121  > 

640  IF  AP=37  AND  A*="0"AND  IN (30,1) =37  THE 

N  AP=41 : GOTO  5500  <178> 

645  IF  AP=37  AND  IN  (30,  1)037  AND  A*="0“TH 

EN  50200  <236> 

650  IF  AP=50  AND  A*="W"AND  IN(31,1><>0  THE 

N  5530  <205> 

655  IF  AP=38  AND  A*="N" AND  IN(2B,1)=0  AND 

IN  (46, 1)0-1  THEN  50207  <166> 

660  IF  A*="W"AND  PN(AP,1><>0  THEN  AP=PN(AP 

, 1 ) : GOTO  5500  <078> 

670  IF  A*="0"AND  PN(AP,2><>0  THEN  AP=PN(AP 

,2): GOTO  5500  <214> 

680  IF  A*="N"AND  PN(AP,3)<>0  THEN  AP=PN(AP 

,3): GOTO  5500  <225> 

690  IF  A*="S"AND  PN(AP,4><>0  THEN  AP=PN(AP 

,4): GOTO  5500  <239> 

700  IF  A*="H"AND  PN(AP,5><>0  THEN  AP=PN(AP 

,5): GOTO  5500  <245 > 

710  IF  A*=”R"AND  PN(AP,6)<>0  THEN  AP=PN(AP 

,6): GOTO  5500  <134> 

720  GOTO  5530  <104> 

730  IF  102  THEN  830  <132> 

735  IF  IN  (1,1)  0-1  THEN  5530  <066> 

739  X2=X2+1 : IF  X2>5  THEN  5475  <032> 

740  GOSUB  5540  <172> 

770  IF  AP=7  AND  IN(3,1)=0  AND  IN(4,1)=AP  A 

ND  A*= "EI NGA " THEN  IN (4 , 1 ) =0: GOTO  5410  <037> 

780  IF  AP=13  AND  A*= " TUER "THEN  GOTO  50211  <177> 

790  IF  AP=13  AND  A*=" WAND "AND  IN(11,1>=0  T 

HEN  IN (11,1 >=13: GOTO  5420  0  <055> 

800  IF  AP=21  AND  IN(16,1)>0  AND  A*=IT*<16> 

THEN  IN(16,1>  =0: GOTO  5500  <114> 

810  IF  AP=54  AND  IN(40,1>>0  AND  A*=“AUSGA" 

THEN  GOTO  49000  <080> 

820  GOTO  5530  <206> 

830  IF  103  THEN  940  <045> 

840  GOSUB  5540: GOSUB  5000  <106> 

850  IF  X<  >32  AND  XO40  AND  X<>38  THEN  GOTO 

5530  <128> 

860  IF  X<  >32  THEN  920  <010> 

870  IF  AP=15  THEN  PN ( 15,3) =16: IN ( 13 , 1 ) =0: G 

OTO  5500  <165> 

B75  IF  AP=13  THEN  50211  <132> 

880  IF  AP=21  AND  IN(16,1>=0  THEN  PN (21,3)= 

22: IN (17,1) =0: GOTO  5500  <225> 

881  IF  AP=25  AND  IN(43,1)=25  THEN  IN(43,1> 

=0: PN <25, 4) =19: IN (42, 1 ) =0: PN ( 19,3) =25: 

GOTO  5500  <165> 

882  IF  AP=31  AND  X5=l  AND  IN(23,1)=AP  THEN 

IN (23, 1 ) =0: PN (31 ,3) =32: GOTO  5500  <117> 

890  IF  AP=21  AND  IN(16,1>>0  THEN  50213  <167> 

895  IF  X5=l  AND  AP=31  THEN  PN (AP, 3) =32: IN ( 

31,1) =0: GOTO  5500  <080> 

900  IF  AP=45  THEN  F'N  (45,3)  =50:  IN  <28,  1 )  =0:  G 

OTO  5500  < 159> 

IBS  IF  AP~'I2  TUEN  PN  <  42 , 3)  -40:  I N  <  26, ,  1  )  -0s  G 

OTO  5500  < 187> 

906  IF  AP=47  AND  PN (AP, 3) =0  THEN  PN (AP, 3) = 

52: IN(36, 1 ) =0:GOTO  5500  <217> 

910  IF  AF'=38  THEN  F'N  (38 , 3)  =50:  IN  (28,  1 )  =0:  G 

OTO  5500  <059 > 

920  IF  AP=50  THEN  F'N  <50 ,  1 )  =44:  IN  (31 , 1  >  =0:  G 

OTO  5500  <239> 

925  IF  AP=53  AND  Y3=0  AND  X=38  THEN  Y3=1:G 

OTO  50700  <183> 

926  IF  AP=57  AND  X=40  AND  Y4=0  AND  IN<44,1 

)=-l  THEN  IN (41 , 1 ) =AP: Y4=l : GOTO  5458  <181> 

930  GOTO  5530  <060> 

940  IF  104  THEN  1130  <091  > 

950  GOSUB  5540  < 12B> 

955  IF  AP<8  OR  A*< >1 T* (53) THEN  GOTO  5530  <201 > 

960  PRINT  A2*: INPUT" IGREENJWELCHE:  WONS 

C3SPACE} " ; C*  <149> 

970  IF  AF'=13  AND  IN(11,1)=0  AND  C*="0"THEN 

GOTO  5430  <  089  > 

980  IF  AP<  >13  OR  AP=13  AND  C*O"0"THEN  110 

0  <192> 

1000  GOTO  5530  <130> 

1100  PRINT  A3*" tGREENJNICHTS  PASSIERT I7SPA 
CE, WHITE)": GOSUB  5800: GOSUB  5900: GOTO 
164  < 139> 

1130  IF  105  THEN  1180  <111> 

1140  GOSUB  5540  <064 > 


1150  GOSUB  5000 

1160  IF  AP=5  AND  X=2  AND  IN(X,1)>0  THEN  IN 
(2,1) =0: IN ( X , 2) =0: GOTO  5400 
1170  GOTO  5530 
1180  IF  106  THEN  1220 

1182  IF  114(1,1)0-1  THEN  5530 

1183  X2=X2+1 : IF  X2>5  THEN  5475 
1185  GOSUB  5540: GOSUB  5000 

1200  IF  AP=7  AND  X<>4  AND  IN(X,1)=AP  AND  I 
N ( X , 1 ) >0  THEN  IN(X,1)=0: IN ( 4 ,3) = 1 : GOT 
0  5500 

1210  GOTO  5530 
1220  IF  107  THEN  1270 
1230  GOSUB  5540: GOSUB  5000 
1240  IF  X<>15  AND  X<>5  THEN  5530 
1250  IF  AP=16  AND  IN(X,1)=AP  THEN  IN(X,1>= 
0: GOTO  5500 

1255  IF  AP=35  AND  X=5  THEN  50100 
1260  GOTO  5530 
1270  IF  108  THEN  1320 
1280  GOSUB  5540 

1285  IF  AF'=7  AND  IN(4,1)=0  AND  A*=LEFT*  <  IT 
*(11), 5 »THEN  AP=8: GOTO  5500 
1290  IF  AP=13  AND  A*=LEFT* ( IT* <51 > , 5) AND  I 
N ( 1 1 , 1 ) =AP  THEN  AP= 14: GOTO  5500 
1300  IF  AP=14  AND  A*=LEFT* ( I T* (51 ) , 5) THEN 
AP=13: GOTO  5500 
1310  GOTO  5530 
1320  IF  109  THEN  1360 
1330  GOSUB  5540: GOSUB  5000 
1335  IF  X<>9  AND  IN(X,  1)0-1  THEN  5530 
1340  IF  AP=51  AND  PN(AP,5)=0  THEN  PN(AP,5> 
=54: IN ( X , 1 ) =AP: GOTO  5440 
1345  IF  AP=37  THEN  IN ( X , 1 ) =0: GOTO  5470 
1350  GOTO  5530 
1360  IF  IO10  THEN  1410 
1370  GOSUB  5540 

1375  IF  AP=27  THEN  1395 

1376  GOSUB  5000 

1390  IF  AP=40  AND  Y2=0  AND  IN(X,1)=AP  THEN 
Y2=l:  IN  (35,  1 )  =AF':  F’N  (40,3)  =47 :  GOTO  54 

an  sc 

1395  IF  AP=27  AND  A#= " GRABR " AND  IN (46, 3) =0 
THEN  IN (46 ,3) =1 : GOTO  5480 
1400  GOTO  5530 
1410  IF  IOll  THEN  1460 
1420  GOSUB  5540: GOSUB  5000 
1430  IF  AP=10  AND  X=7  AND  IN(6,1>=-1  THEN 
50206 

1440  IF  AP=52  AND  X=37  AND  IN(34,1)=AP  THE 
N  PN (52, 3) =53: IN (34, 1)=0: GOTO  1680 
1450  GOTO  5530 
1460  IF  1012  THEN  1510 
1470  GOSUB  5540 

1490  IF  X4= 1  THEN  AP=54:G0T0  5500 

1500  GOTO  5530 

1510  IF  1013  THEN  1580 

1520  GOSUB  5540 

1525  IF  GE>=3  THEN  5460 

1530  GOSUB  5 000 

1535  IF  AP=16  AND  X=14  THEN  IN ( X , 1 ) =-l : IN ( 
15,3) =1 : GOTO  5500 

1536  IF  AP=10  AND  X=6  THEN  IN (7,3) =1 

1540  IF  IN ( X , 1 >  =AP  AND  IN(X,2>>0  THEN  IN(X 
, 1 ) =— 1 : GOTO  5500 
1550  IF  IN ( X ,2) =0  THEN  5530 
1560  IF  IN< X , 1 ) OAP  THEN  PRINT  A3*"  IGREEN1 
NICHT  VORHANDEN <WHITE>": GOSUB  5800: GO 
SUB  5900: GOTO  164 
1570  GOTO  5530 
1580  IF  1014  THEN  1640 
1590  GOSUB  5540 
1600  GOSUB  5000 

1610  IF  IN(X, 1)0-1  THEN  PRINT  A3*"  CGREENJ 
ICH  HABE  DAS  NICHT  IWHITE) ": GOSUB  5800 
: GOSUB  5900: GOTO  164 

1612  IF  AP=19  AND  A*="SEIL"AND  IN(9,1>— 1 
THEN  GOSUB  5455: GOTO  1620 
1615  IF  AP=31  AND  A*= "DI AM A " AND  IN(X,1)=-1 
THEN  X5=l : GOSUB  5465: IN (20 ,2) =0: IN (2 
0,3) =0: GOTO  1620 
1620  IN ( X , 1 ) =AP: GOTO  5500 
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1640 

IF  1015  THEN  1700 

<  172> 

10120 

DATA 

30 , 255 , 255 , 255 , 255 , 252 , 243 , 207 , 

1650 

GOSUB  5540: GOSUB  5000 

<  154> 

63 

<  1 14) 

1655 

IF  X<  >7  THEN  5530 

<  1 12> 

10130 

DATA 

31,255,255,255,255,255,255,15,2 

1660 

IF  AP=10  AND  IN(6,1)=-1  AND  X9=0  THEN 

40 

<218> 

PN (AP ,1>=11:IN(8,1) =0: X9=l : GOTO  1680 

<222> 

10140 

DATA 

33,255,255,255,255, 15,240,255,2 

1670 

GOTO  5530 

<038> 

55 

<  004  > 

1680 

PRINT  A3*" CGREENJDIE  "IT* (32)"  QEFFNE 

10150 

DATA 

35,255,255, 15,240,254,254,254,2 

T  SICH {WHITE}": GOSUB  5800:  GOTO  160 

<235> 

54 

<030> 

1700 

IF  1016  THEN  1750 

<  145> 

10160 

DATA 

36,0,31,227,252, 254 , 254 , 254 , 254 

<001> 

1710 

GOTO  30000 

<166> 

10170 

DATA 

37 , 255 , 255 , 255 , 255 , 63 , 207 , 243 , 2 

1750 

IF  1017  THEN  1800 

<031  > 

52 

<  1 13> 

1755 

GOTO  34000 

<019> 

10180 

DATA 

3B , 63 , 207 , 243 , 252 , 255 , 255 , 255 , 2 

1800 

IF  1018  THEN  1900 

<216> 

55 

<139> 

1810 

POKE  V+21,0: PRINT  CHR* (14) , " {CLR , 2D0W 

10190 

DATA 

39,0,248,199,63, 127,127,127,127 

<028> 

N,3RIGHT)&IE  WOLLEN  AUFGEBEN  <£/&>  ?" 

<032> 

10200 

DATA 

40,255,255,240,15,255,255,255,2 

1820 

GET  A*: IF  A*="J"THEN  SYS  64738 

<047> 

55 

<236> 

1830 

IF  A*="N“THEN  PRINT  CHR* < 1 42) : GOSUB  5 

10210 

DATA 

41,255,255,255,255,240,14,254,2 

600: GOTO  160 

<232> 

54 

. 

<1  IB> 

1840 

IF  A*=""OR  A*="  "THEN  1820 

<  065  > 

10220 

DATA 

42,255, 255 , 255 , 255 , 255 , 255 , 240 , 

1900 

PRINT  A4* "UNBEKANNTES  WORT":GOSUB  580 

15 

<032> 

0 

<047> 

10230 

DATA 

43,254,253,251,247,239,223,191 , 

1910 

PRINT  A3*" CI 7SPACEJ": PRINT  A4*"C24SPA 

127 

<150> 

CE) " : GOTO  164 

<230> 

10240 

DATA 

44,254, 254 , 254 , 254 , 254 , 254 , 254 , 

5000 

FOR  X=1  TO  46 

<064> 

254 

<238> 

5010 

IF  C.EFT  *  ( A*  ,5)  =LEFT*  (IT*(X),5)  THEN  RE 

10250 

DATA 

45,127,127,127,127,127,127,127, 

TURN 

<227> 

127 

<096> 

5020 

NEXT 

<204> 

10260 

DATA 

46 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 

5030 

PRINT  A4*; TAB (20) " CCYAN5UNBEKANNTES  W 

255 

<102> 

ORT {WHITE}": FOR  T=1  TO  1000:NEXT 

<218> 

10270 

DATA 

47,0, 255 , 255 , 255 , 255 , 255 , 255 , 25 

5035 

GOSUB  5900 

<085> 

5 

<  1 58  > 

5040 

X=0: GOTO  164 

<  174> 

10280 

DATA 

48,0, 254 , 254 , 254 , 254 , 254 , 254 , 25 

5400 

PRINT  A3*" CGREENJGEHE  IN  RICHTUNG  DES 

4 

<232> 

" IT* (50) " {WHITE}": GOSUB  5800 

<231  > 

10290 

DATA 

49,0,127,127,127,127,127,127,12 

5401 

PN (5,2) =6: GOTO  160 

<220> 

7 

<  006  > 

5410 

PRINT  A3*" {GREEN} DURCHGANG  IN  DER  MAU 

10300 

DATA 

50,127,191,223,239,247,251,253, 

ER {WHITE}": IN (4 , 1 ) =0: X6=l : GOSUB  5800: 

254 

<  048 > 

GOTO  5500 

<196> 

10400 

DATA 

51,239,239,239,239,239,223,191 , 

5420 

PRINT  A3*" {GREEN JE IN  "IT* (51)"  WIRD  S 

127 

<  157> 

ICHTBAR {WHITE}": GOSUB  5800: GOTO  160 

<042> 

10410 

DATA 

52 , 224 , 239 , 239 , 239 , 239 , 239 , 239 , 

5430 

PRINT  A3*"  {GREENJES  KLINGT  H0HLU1SPA 

239 

<01 1> 

CE, WHITEJ": GOSUB  5800:GOTO  160 

<146> 

10420 

DATA 

53,239,239,239,143,47,239,239,2 

5440 

PRINT  A3*” {GREENJ" IT* (9) "  HAT  SICH  OB 

39 

<215> 

EN  VERFANGEN {WHITE}" : X4=l : GOSUB  5800: 

10430 

DATA 

54,0,239,239,239,239,239,239,23 

GOTO  160 

<  129> 

9 

<  137> 

5450 

PRINT  A3*“ {GREEN JE IN  "IT*(11)"  WIRD  S 

10440 

DATA 

55,254, 254 , 254 , 254 , 254 , 224 , 235  , 

ICHTBAR CWHITEJ " : GOSUB  5800:GOTO  160 

<068> 

239 

<246> 

5455 

PR I NT  A3* " {GREEN }" IT* (9) "  HAENGT  H I NU 

10450 

DATA 

56 , 255 , 255 , 255 , 255 , 255 , 255 ,95,2 

NTER CWHITEJ" : GOSUB  5800: RETURN 

<24 1> 

41 

<134> 

5458 

PRINT  A3*" {GREENJER  ENTHAELT  EIM  "IT* 

10460 

DATA 

57 , 254 , 254 , 254 ,254,0, 254 , 254 , 25 

(41 )" CWHITE, INST J": GOSUB  5800: GOTO  16 

4 

<248> 

0 

<106> 

10470 

DATA 

27 , 239 , 239 , 239 , 239 , 239 , 239 , 239  , 

5460 

PRINT  A3*" CGREEN JS1E  KOENNEN  NICHT  SO 

224 

<172> 

VIEL  TRAGEN CWHITEJ": GOSUB  5800: GOTO 

10480 

DATA 

59 , 239 , 239 , 239 , 239 , 247 , 251 , 253  , 

160 

<053> 

254 

<016> 

5465 

PRINT  A3* "  (GREENJ "1T*( 20) "  IST  DAS  FE 

10490 

DATA 

60,239, 239 ,239,239,239,239,239, 

HLENDE  "IT* (52) “  DER  " IT* (6) " (WHI TEJ " 

15 

<065> 

: GOSUB  5800: RETURN 

<155> 

10500 

DATA 

61,239,239,227,233,236,239,239, 

5470 

PRINT  A3*" CGREENJ" IT* (9) "  IST  HINUNTE 

239 

<255> 

RGEF ALLEN {WH I T  E  > " : GOSUB  5800: GOTO  160 

<231  > 

10510 

DATA 

62,239,239,239,239,15,239,239,2 

5475 

PRINT  A3*" CGREENJ"RIGHT* ( IT* ( 1 ) ,5) "  I 

39 

<  \*?7> 

ST  JETZT  STUMPF {WHI TEJ": GOSUB  5800:BQ 

10520 

DATA 

29,15,239,239,239,239,239,239,2 

SUB  5900: GOTO  164 

<  1 26  > 

39 

<235> 

5480 

PRINT  A3*" {GREENJER  TRUG  EINE  "IT* (46 

10530 

DATA 

64,127,127,127,127,0,127,127,12 

>"  BEI  SICH {WHI TEJ": GOSUB  5800: GOTO  1 

7 

<030> 

60 

<090> 

10540 

DATA 

65,255,255,255,255,255,15,239,2 

5500 

GOSUB  5900 

<042> 

39 

<  194> 

5510 

PRINT  A4*" {CYAN J IN  ORDNUNG (WHI TEJ ": FO 

10550 

DATA 

67,0, 255 , 255 , 0 , 0 , 0 , 0 , 0 

<225> 

R  T=1  TO  1000: NEXT : IF  1=13  THEN  GE=GE 

10560 

DATA 

68 , 239 , 239 , 239 , 239 , 239 , 239 , 239 , 

+  1 

<032> 

239 

<144> 

5520 

IF  1=14  THEN  GE=GE— 1 

<077> 

10570 

DATA 

69 , 254 , 254 , 254 , 254 , 254 , 254 , 240  , 

5525 

GOSUB  5600: GOTO  160 

<  1 16> 

15 

<207> 

5530 

GOSUB  5900 

<072> 

10580 

DATA 

70 , 239 , 239 , 239 , 239 , 240 , 239 , 239 , 

5535 

PRINT  A4*" {CYANJNICHT  MOEGL ICH {WH ITEJ 

239 

<  1 64  > 

" : FOR  T= 1  TO  1 000: NEXT : PR I NT  A4*"{15S 

1 0590 

DATA 

7 1 , 254 , 254 , 254 , 254 , 254 , 254 , 254 , 

PACE)": GOTO  164 

<  191  > 

0 

<066> 

5540 

PRINT  A4*;TAB(25) : INPUT  A*: A*=LEFT* ( A 

10600 

DATA 

72,127,127,127,127,127,127,127, 

*,5> : RETURN 

<  160> 

0 

<160> 

5600 

POKE  V+21 , 0: POKE  V+28,0:POKE  V+23,0:P 

10610 

DATA 

73, 15,240,255,255,255,255,255,2 

OKE  V+29,0: RETURN 

<160> 

55 

<254> 

5800 

FOR  T=1  TO  3000: NEXT: RETURN 

<  194> 

10620 

DATA 

74,240,15,255,255,255,255,255,2 

5900 

PRINT  A3*" {39SPACEJ" 

<250> 

55 

<236> 

5910 

PRINT  A4*" {38SPACEJ": RETURN 

<107> 

10630 

DATA 

75 , 255 ,170, 255 ,170, 255 ,170, 255 , 

10000  AD=57344 

<08B> 

170 

<210> 

10010  READ  X: IF  X=-l  THEN  GOTO  45000 

<255> 

10640 

DATA 

76,85,85,85,85,85,87,95,255 

<249> 

10020  CG— AD-*-X*8:  FOR  1=0  TO  7 :  READ  Q:POKE  C 

10650 

DATA 

77,85,85,85,87,127,255,255,255 

<  167> 

G+I , Q: NEXT : GOTO  10010 

<113> 

10660 

DATA 

78,85,85,85,85, 245 , 255 , 255 , 255 

<  179> 

10110  DATA  28,252,243,207,63,255,255,255,2 

10670 

DATA 

79,85,85,85,85,85,245,255,255 

<  105> 

55 

<224> 

10680 

DATA 

80,85,85,85,85,85,85,245,255 

<081  > 

128 
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10685 

DATA 

81,63,207,243,252,254,254,254,2 

12013 

DATA  72,192,0,80,0,0,96,0,0,96,0,0,9 

54 

<048> 

6,0 

<232> 

10690 

DATA 

82,254,254,254,254,15,240,255,2 

12015 

FOR  1=0  TO  62:  READ  Q-.POKE  51008+1,0: 

55 

<036> 

NEXT 

<  169  > 

10695 

DATA 

83,127,255,15,240,255,255,255,2 

12016 

DATA  3,252,0,2,168,0,3,92,0,3,92,0,3 

55 

<156> 

,92,0,3,92,0, 15,255,0,15,255,0,15,25 

10700 

DATA 

84 , 252 , 242 , 206 , 62 , 254 , 254 , 254 , 2 

5 

<  2 1 7  > 

54 

<249> 

12017 

DATA  0,15,255,208,15,255,208, 15,252, 

10705 

DATA 

85 , 254 , 254 , 254 , 254 , 252 , 243 , 207  , 

0,14, 168,0,7,252,0,7,252,0,3,252,0,3 

<061  > 

63 

<021  > 

12018 

DATA  252,0,2,138,0,2,138,0,0, 163,128 

10710 

DATA 

86 , 255 , 255 , 255 , 255 ,252,242, 206 , 

,0,0,0 

<228> 

62 

<051  > 

12020 

FOR  1=0  TO  62: READ  Q:POKE  51072+1,0: 

10715 

DATA 

87 , 255 , 255 , 255 , 255 , 240 ,14, 254 , 2 

NEXT 

<  164  > 

54 

<243  > 

12021 

DATA  0,0,0, 127,251,254,127,251 ,254,1 

10720 

DATA 

88 , 254 , 254 , 254 , 254 , 254 , 254 , 240 , 

27,249,254,0,0,0, 127,63,60,127 

<206> 

15 

<101  > 

12022 

DATA  127,190,127,127,190,62,127,190, 

10725 

DATA 

89 , 254 ,254,240,15, 255 , 255 , 255 , 2 

0,0,0,127,231,254,127,239,254,127,23 

55 

<  156  > 

9 

<245> 

10730 

DATA 

90,126,190,222,238,246,250,252, 

12023 

DATA  254,127,207,252,0,0,0,57,255, 15 

254 

<204  > 

8,125,255,222,125,255,222, 125,255,22 

10735 

DATA 

91,127,127,127,127,63,207,243,2 

0 

<059> 

52 

<004> 

12024 

DATA  0,0,0,255,255,255 

<215> 

10740 

DATA 

92,14,240,255,255,255,255,255,2 

12026 

FOR  1=0  TO  62: READ  Q:POKE  51136+1,0: 

55 

< 000  > 

NEXT 

<  1 79  > 

10745 

DATA 

93,96,99,105,108,110,110,110,11 

12027 

DATA  95,255,250,95,255,250,80,0,10,8 

0 

<049> 

0,0,10,88,0,26,88,0,26,92,0,58,92,0, 

10750 

DATA 

94,6,198,150,54,118,118,118,118 

<028> 

58 

<23B> 

10755 

DATA 

95,110,110,110,110,110,110,110, 

12028 

DATA  94,0,122,94,0,122,95,0,250,95,0 

1 10 

<133> 

,250,95,129,250,95,126,250,94,255,12 

10760 

DATA 

97,118,118,118,118,118,118,118, 

2 

<231  > 

118 

<202> 

12029 

DATA  93 , 255 ,186,91, 255 ,218,87, 255 , 23 

10765 

DATA 

98,110,110,110,110,108,105,99,1 

4,79,255,242,127,255,254,0,0,0 

<  186> 

5 

<031  > 

12031 

FOR  1=0  TO  62:  READ  Q:  F'OKE  51200+1,0: 

10770 

DATA 

99,118,118,118,118,54,150,198,2 

NEXT 

<155> 

40 

<100> 

12032 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

10775 

DATA 

100,0,0,0,0,0,15,63,127 

<165> 

,31,0,0,14,0,0,14,0,0,27,0,0,42,128, 

10780 

DATA 

101,15,31,63,127,255,255,255,25 

0 

<081  > 

5 

<  138> 

12033 

DATA  113,192,0,106,192,0,59,128,0,21 

10785 

DATA 

102,240,248, 252 , 254 , 255 , 255 , 255 

,0,0,14,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

,255 

<  1 05  > 

0 

<21 7> 

10790 

DATA 

103,0,0,0,0,0,240,252,254 

<153> 

12034 

DATA  0,0, 0,0 

<102> 

10795 

DATA 

104,168,168,168,168,168,168,0,0 

<018> 

12036  F1II.  1=0  TO  62:  READ  Q:POKE  51264+1,0: 

10800 

DATA 

105,170,170,170,170,170,170,0,0 

<055> 

NEXT 

<  1 90  > 

10805 

DATA 

106,168,168,168,168,168,168,168 

12038 

DATA  0,0,0,0,0,0,0,0,0,1,85,128,2, 17 

,  168 

<  153> 

0,64,2,170,0,2,175,0,2,173,0,2,174,1 

10810 

DATA 

107,162,162,162,162,162,162,162 

92 

<  202 > 

,162 

<  138> 

12039 

DATA  2,175,192,2, 175,0,3,253,0,3,255 

10815 

DATA 

108,0,0,168,168,168,168,168, 168 

<  167> 

,0,0,255,0,0,242,0,0,242,0,0,242,0,3 

<010> 

10820 

DATA 

109,170,170,170,170,170,170,170 

12040 

DATA  252,0,3,252,0,0,0,0,0,0,0 

<  181  > 

,  170 

<009> 

12042 

FOR  1=0  TO  62: READ  B:POKE  51328+1,0: 

10825 

DATA 

110,0,0,170,170,170,170,170,170 

<  192> 

NEXT 

<205> 

10830 

DATA 

1 1 1 ,0,0,129,195,255,255,255,255 

<  228  > 

12043 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,8 

10835 

DATA 

1 12,255,255,248,6, 184,191,255,2 

,0,0,16,6,0,30,57,120,31,192,112,16, 

55 

<  196> 

6 

<033  > 

10840 

DATA 

113,0,0, 1,3,15,255,255,255 

<  188> 

12044 

DATA  12,8, 121,194,3,128,57,28,120,5, 

10845 

DATA 

114,0,0,128,192,224,255,255,255 

<221  > 

33,135,130,24,112,28,7,14,98,0,225,1 

10850 

DATA 

1 15,0,0,0,255,255,0,0,0 

<089> 

40 

<092> 

10855 

DATA 

116,193, 182,182,128,193,227,193 

12045 

DATA  0,30,48,0,1,192,0,0,0,0,0,0 

<226> 

,  193 

<01  7> 

12047 

FOR  1=0  TO  62: READ  Q:POKE  51392+1,0: 

108^0 

DATA 

117.129,129,129, 129,255,255,255 

NEXT 

<  200  > 

,255 

<222> 

12048 

DATA  0,0,0, 15,255,240, 10,0,80,10,0,8 

10865 

DATA 

1 18,255,219,129, 195, 195,129,219 

0,10,0,80, 19,255,200,20,0,40,20,0,40 

<240> 

.255 

<055> 

12049 

DATA  20,0,40,39, 255 , 228 ,40,0,20,40,0 

10900 

DATA- 1 

<  1 14> 

,20,40,0,20,79, 255 ,242,80,0,10,80,0, 

12000 

FOR 

[=0  TO  62:  READ  Q.-POKE  50816+1, Q: 

10 

<037> 

NEXT 

<02B> 

12050 

DATA  80,0, 10,159,255,249,160,0,5,160 

12001 

DATA 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,0,5, 255 , 255 , 255 

<255> 

,0,0 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

12052 

FOR  1=0  TO  62: READ  Q:POKE  51456+1,0: 

.13 

<247  > 

NEXT 

<214> 

12002 

DATA 

0.0.64.0,0, 128,0,1,0,0,3,255,24 

12053 

DATA  0,0,0,0,0,0,0,0,0,0,0,0,0,56,0, 

B,4,0,0,8,0,0,8,0,0,B,0,0,0,0,0 

<185> 

0,76,0,0,134,0,0,18,64,0,47,160,0,11 

12004 

FOR 

1=0  TO  62: READ  Q:POKE  50880+1, Q: 

0 

<073> 

NEXT 

<022> 

12054 

DATA  160,0,191,64,0,156,64,0,56,0,0, 

12005 

DATA 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

68,0,1,132,0,2,8,0,5,20,0,0,0,0,0,0, 

,0,0 

,0,32,0,0,120,0,0, 254 ,0,1, 255 , 1 2 

0 

<252> 

8 

<  0  1  5  > 

12055 

DATA  0,0, 0,0, 0,0 

<  1 16> 

12006 

DATA 

3,255,224,7,255,248, 15,255,254, 

12057 

FOR  1=0  TO  62: READ  0: POKE  51520+1,0: 

31,255,252,63,255,248,127,255,240,0, 

NEXT 

<190> 

0 

<12B> 

12058 

DATA  16,0,0,21,0,0,31,64,0,31,80,0,3 

12007 

DATA 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 

< 202  > 

1,213,0,31,254,64,31,255,64,31,255,6 

12010 

FOR 

1=0  TO  62: READ  QsPOKE  50944+1,0: 

4 

<069> 

NEXT 

<037  > 

12059 

DATA  31,255,208,31,255,244,21,85,84, 

12011 

DATA 

0,0,64,0,64,128,2,33,0,1,36,128 

7,255,244,1,255,244,0, 127,244,0,23,2 

,0,200,76,17,8,80,18,69,32,34,38,64, 

44 

<  1 17> 

36 

<014> 

12060 

DATA  0,5,244,0,1,244,0,0,116,0,0,20, 

12012 

DATA 

100,48,20,162,64,8,164,128,4,15 

0,0, 4, 0,0,0 

<096> 

3,192,5,22,40,2,20,16,5,38,0,8,169,0 

12062 

FOR  1=0  TO  62: READ  Q:POKE  51584+1,0: 

<047> 
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NEXT 

<223> 

12112 

DATA  0,168,42,160,170, 10,0,42,2,160, 

12063 

DATA  0,0,16,0,0,80,0,1,240,0,7,208,0 

47,0,0,15,0,160, 12,0,0,40,0,0,255,0, 

,7,208,0,95,208,1,255,208,5,255,208 

<  156> 

3 

<072> 

12064 

DATA  3 1 , 255 , 208 ,31, 255 , 208 ,21,85,80, 

12113 

DATA  60,192,163,60,240,3,252,0,160,6 

31,255,64,31,253,0,23,212,0,31,208,0 

<061  > 

0,0,0,42,240,160,42,252,0,85,12,0,85 

<  230  > 

12065 

DATA  31,64,0,29,0,0,20,0,0,16,0,0,0, 

12114 

DATA  12,0,65,12,160,65,12,0,65,15,16 

0,0, 0,0,0 

<052> 

0,65,5,0,0,0 

<209> 

12067 

FOR  1=0  TO  62: READ  Q:POKE  51648+1, Q: 

12116 

FOR  1=0  TO  62: READ  Q:POKE  52288+1,0: 

NEXT 

<237> 

NEXT 

<  163> 

12068 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 3, 255 , 1 

12117 

DATA  160,0,0,128,42,0,0,170,10,0,168 

92,2,0,64,2,239,64,2,239,64,2, 15,64, 

,0,0, 240 ,10,0, 240 ,0,0,48,10,0, 235 , 0 , 

2 

<202> 

3 

<  131  > 

12069 

DATA  240 ,64,2, 247 ,64,2, 247 ,64,2,7,64 

121  18 

DATA  60,192,3,60,202,15,60,192,0,60, 

, 2 , 224 ,64,2,239,64,2,239,64,2,0,64,2 

<  135> 

202,0,60,0,3, 168,0,15,168,10,48,85,0 

<174> 

12070 

DATA  247,64,2,247,64,2,0,64,3,255, 19 

12119 

DATA  48,85,10,48,65,0,112,65,10,80,6 

2 

<  208  > 

5, 0,0, 0,0 

<002> 

12072 

FOR  1=0  TO  62: READ  Q:POKE  51712+1, Q: 

12121 

FOR  1=0  TO  62: READ  Q:POKE  52352+1,0: 

NEXT 

<213> 

NEXT 

<  139> 

12073 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

12122 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,0,0,0,0,0,0,0,0,0,8,0,0,55,0,0,59,0 

,0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

<079> 

<225> 

12123 

DATA  0,0,63,255,252,127,255,254,255, 

12074 

DATA  213,192,0,191, 128,0,204,192,0,  1 

255 , 255 , 255 , 255 , 255 ,0,0, 0,0, 0,0, 0,0, 

91,128,0,255, 192,0,183,128,0,255, 192 

0.0 

<223> 

.0 

<215> 

12124 

DATA  0,0, 0,0,0 

<241  > 

12075 

DATA  55,0,0,55,0,0,55,0 

<248> 

12125 

FOR  1=0  TO  62: READ  Q:POKE  52416+1,0: 

12077 

FOR  1=0  TO  62: READ  Q:POKE  51776+1, Q: 

NEXT 

<152> 

NEXT 

<246> 

12126 

DATA  0,0,0,3,192,0,7,192,0,7,128,0,7 

12078 

DATA  0,0,0,0,56,0,0,124,0,0,84,0,0,1 

,128,0,2,128,0,7,0,0,59,128,0,47,192 

24,0,0,40,0,0,56,0,1,255,0,2,214, 128 

,0 

<065> 

,2 

<235> 

12127 

DATA  7,224,0,14,0,0,13,240,0, 14,248, 

12079 

DATA  238,128,2,214,128,3,57,128,0,25 

0,7,124,0,7,190,0,5,111,0,2,139,128, 

4,0,0,254,0,0,124,0,0, 108,0,0,108,0, 

2 

<215> 

0 

<  1 40> 

12128 

DATA  130, 192,7,129,64,31,255,252,31, 

12080 

DATA  108,0,0,108,0,0,108,0,0,230,0 

<095> 

255 , 252 

<212> 

12082 

FOR  1=0  TO  62: READ  Q:POKE  51840+1,0: 

12130 

FOR  1=0  TO  62: READ  Q:POKE  52480+1,0: 

NEXT 

<222> 

NEXT 

<  147> 

12083 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

12131 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,0,0,0,0,0,0,0,0,0,0,0,0,28,0,0,62,0 

,0,0,0,0,0,0,0,0,2,170,128, 10,170,16 

,0 

<206> 

0 

<227  > 

12084 

DATA  28,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

12132 

DATA  9,221,224,11,119,96,10,170,160, 

12086 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

<249> 

11,170,96,9,221, 224 ,11,119,96,10,170 

<126> 

FOR  1=0  TO  62: READ  Q:P0KE  51904+1,0: 

.in  **».;3 

DATA  160,8,0,32,8,0,32,8,0,32,0,0,0 

<24 1  > 

NEXT 

<235> 

12139 

FOR  1=0  TO  62: READ  Q:POKE  52544+1,0: 

12087 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,2 

NEXT 

<165> 

25,128,0,30,3,128,0,48,1 12,1,204,15, 

12140 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

14 

<092> 

,0,0,0,0,0,0,0,0,0,0,0,0,8,0,1,214,0 

12088 

DATA  6,0,192,0,0,51,193,192,12,14,56 

<125> 

,0,48,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

12141 

DATA  33,0,4,76,128,5,144, 128,4,139,0 

0 

<021  > 

,4,100,0,7,24,0,3,128,0,1,128,0,0,0, 

12089 

DATA  0,0, 0,0, 0,0 

<150> 

0 

<021  > 

12091 

FOR  1=0  TO  62: READ  Q:POKE  51968+1,0: 

12142 

DATA  0,0,0 

<070> 

NEXT 

<  0 1 2  > 

12144 

FOR  1=0  TO  62:  READ  Q:POKE  52608+1,0: 

12092 

DATA  0,0,0,0,0,0,0,0,0,0,0,0,0,21,84 

NEXT 

<  179> 

,0,74,148,1,42,100,4,169,164,18,166 

<078> 

12145 

DATA  0,0, 0,0, 0,0,0,  1 20 ,0,0,48,0,0, 48 

12093 

DATA  164,85,90,164,106, 154,164,106,1 

,0,0,120,0,0,180,0,1,50,0,2,121,0,4 

<  153> 

54,  144,  106,  154,124,106,  153,205,106,1 

12146 

DATA  120,128,8, 252 ,64,8,212,64,9,182 

51 

<002> 

,64,5,122,128,3,119,0,3,183,0,3,203, 

12094 

DATA  240,85,80,60,0,0,13,0,0,0,0,0,0 

0 

<047> 

,0,0, 0,0, 0,0 

<093> 

12147 

DATA  1,222,0,0,220,0,0, 120,0,0,0,0 

<111) 

12096 

FOR  1=0  TO  62: READ  Q:POKE  52032+1,0: 

1214«? 

FOR  1-0  TO  t2iREf\D  CI:  PQKE  S2672+I.U: 

NEXT 

<107> 

NEXT 

<  174> 

12097 

DATA  255,255,255,128,36,1 , 128,60, 1 , 1 

12150 

DATA  0,0,0,0,0,0,0,255,192,0,255,192 

28,66,1,128,126,1,128,129,1,128, 255 , 

, 0 , 255 ,192,1,128,96,1,128,96,1,128,9 

1 

<  167> 

6 

<202> 

12098 

DATA  129,0,129,129,255, 129,130,0,65, 

12151 

DATA  3,0,48,3,0,48,3,0,48,6,0,24,6,0 

131 ,255,193, 132,0,33,135,255,225, 136 

<200> 

,24,6,0,24,12,0,12,12,0,12,12,0,12,1 

12099 

DATA  0,17,143, 255 ,241,144,0,9,159,25 

5 

<023> 

5,249, 160,0,5,191,255,253,192,0,3,25 

12152 

DATA  255,252, 13,154,236,10,205, 148, 1 

5 

<06 1  > 

5,255,252 

<152> 

12100 

DATA  255,255 

<253> 

12154 

FOR  1=0  TO  62: READ  Q:POKE  52736+1,0: 

12102 

FOR  1=0  TO  62: READ  Q:POKE  52096+1,0: 

NEXT 

<  1 88  > 

NEXT 

<  141  > 

12155 

DATA  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

12103 

DATA  0,0,0,0,28,0,0,3,128,0,0,64,0,1 

,42,0,0,21,0,0,38,0,0,21,0,0,42,0,0, 

,128,0,14,0,0,48,0,0,64,0,0,48,0,0,1 

21 

<060 ; 

2 

<204> 

12156 

DATA  0,0,170,128,0,85,64,0,170,128,0 

12104 

DATA  0,0,3,0,0,0,128,0,1,0,0,6,0,0,2 

,85,64,0,170,128,0,85,64,0,0,0,0,0,0 

4,0,0,96,0,0,224,0,0,192,0,0,0,0,0,0 

<032> 

,0 

<007> 

12105 

DATA  0,0, 0,0 

<  173> 

12157 

DATA  0,0, 0,0,0 

<018> 

12107 

FOR  1=0  TO  62: READ  Q:POKE  52160+1,0: 

12159 

FOR  1=0  TO  62: READ  Q:POKE  52800+1,0: 

NEXT 

<  1 17> 

NEXT 

<164> 

12108 

DATA  0,6,0,0,24,0,0,32,0,0,48,0,0,12 

12160 

DATA  0,0,0,0,0,0,0,127,128,0,125,128 

,0,0,6,0,0,1,0,0,3,0,0,12,0,0,48,0,0 

,0,118,128,0, 239 ,192,0,237,192,0,254 

<21 8> 

,64 

<  126> 

12161 

DATA  192,1,166, 224 , 1 , 223 , 224 , 1 , 254 , 2 

12109 

DATA  0,0,96,0,0,24,0,0,6,0,0,24,0,0, 

24,3,157,112,3,127,240,3,245,240,6,2 

96,0,0,224,0,0,192,0,0,0,0,0,0,0,0,0 

51 

<016> 

,0 

<207> 

12162 

DATA  184,7,55,24,7, 255 ,248,0,0,0,0,0 

121 1 1 

FOR  1=0  TO  62: READ  Q:POKE  52224+1,0: 

,0,0, 0,0, 0,0,0 

<  1 18> 

NEXT 

<130> 

12164 

FOR  1=0  TO  62: READ  Q:POKE  52864+1,0: 

130 
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12165 

12166 


12167 

15000 
1 7000 

19001 

19002 

19003 

19004 

19006 

19008 

19010 

19012 

19031 

19035 


19036 

19100 


19102 

19110 

19111 

19112 

19113 

191 14 
191  15 

19116 

19117 

191 18 

19120 

19121 

19122 

19123 

19124 

19129 

19130 
19200 

19204 

19205 

19206 

19207 

19210 

19211 

19212 


NEXT 

DATA  0,24,0,0,90,0,0,126,0,0,126,0,0 
,126,0,0,60,0,0,60,0,0,60,0,0,24,0,1 
DATA  255,128,3,110,192,3,118,192,3,1 
10,192,1,223,128,0,126,0,0,126,0,0,1 
02 

DATA  0,0,102,0,0, 102,0,1,255, 128,7,2 

55 , 224 

RETURN 

1F  AP>7  THEN  19100 

IF  AP=7  THEN  19200 

IF  AP=6  THEN  GOSUB  19035 

POKE  53270, PEEK  (53270)  OR  16:P0KE  532 

83,9: POKE  53282,6 

PRINT  TAB  < 1 0) " (BLUE > . 


PRINT  TAB  (10)  " . " 

PRINT  TAB  (10)" . " 

PRINT  TAB  (10)  " . CGREY  3HMOJ(LIG 

■BLUE). .. CGREY  3 I  L.O.P (L 1 G ■  BLUE > _ " 

FOR  T=1  TO  10: PRINT  TAB ( 1 0) " CGREY  3> 
■K.K.K.K.K.K-K.K.K.K.K.K.K.K.K.K.K.K.K.K. 1 1  :  NEXT 
GOSUB  21050: RETURN 

POKE  V+21 , PEEK (V+21) OR  128: POKE  5017 
5,27: POKE  V+14 , 145: POKE  V+15,90:POKE 
V+46,9 

POKE  V+23 ,  PEEK  ( V+23  )  OR  128: POKE  V+29 

, PEEK ( V+29  >  OR  128: RETURN 

IF  AP=15  OR  AP=1B  OR  AP=19  OR  AP=20 

OR  AP=21  OR  AP=29  OR  AF-46  OR  AP=52 

THEN  19110 

GOTO  19999 

PRINT  TAB  (12)  "  CBROWNJ&7. . T 

£" 

PRINT  TAB  (12)  .  SX . ££.  .  " 

PRINT  TAB(12>  .  , .  fiX _ &£, " 

PRINT  TAB(12)  1//0, -Züli" 

PRINT  TAB (12) T.  T=5-CCtYJ- T  _  .  '■ 

PRINT  TAB  (12)  "  -  , .  .  ¥C2SPACE>TT.  . -,  .  . 

PRINT  T AB  (12)  " / /0/0/5FC2SPACEJT/  1  /  1  / / 


PRINT  TAB  (12)  .  ,  .  Ü£T?FTS<±.  -  .  -  " 

PRINT  TAB  (12)  -ÜI.+ - 2,&±.  .  " 

PRINT  TAB  (12)  "TI.  ,+ . Z. 

PRINT  TAB  (12)".,.  + . 2,.." 

PRINT  TAB  (12)  ".  ,  + . i.  .  " 

PRINT  TAB  ( 12)  ".+ . 2.  " 

PRINT  TAB  (12)  “  + . 2" 

IF  AP=19  THEN  20015 
GOSUB  21032: RETURN 

POKE  53270, PEEK (53270) OR  16: POKE  532 
82, 7: POKE  53283,9 

TTTTT" 

PRINT  TAB  (10) 

FOR  T=l  TO  3: PRINT  T AB ( 1 0 )  " YröTTTTS? 
TTTSTTTTSn" :  NEXT 
PRINT  TAB (10)' 

"sTS" 


<197  > 
<238> 


<016> 

<067> 

<070> 

<202> 

<239> 

<238> 

<  190> 

<  1 37  > 

<  150> 
<152> 

<094> 

<  177> 

<  135> 


<  108> 

<020> 


<039> 

<133> 

<084> 

<036> 

<147> 

<250> 

<077> 

<081  > 

<033^::-, 

<  05 1  > 
<061  > 

<  1 12> 

<  1 23  > 

<  029  > 
<147> 
<152> 
<205> 

<  106> 

<202> 

<  203  > 
<222> 
<074  > 

<  131  > 
<079> 


PRINT  TAB  ( 10)  "  TtllUT-tl  C3SPACE  i 
YTZ"  <055> 

PRINT  TAB  (10)  "Ii££.?H£(3SPACE 
,&££"  <  1 02> 


19213  FOR  T=1  TO  4:  PRINT  TAB < 10) " CGREY  35JL 

K.K  K  K  K  Kit  K  K  K  K  >  K  K  HK  K  K  >  "  ■  NFXT  <206> 

19217  IF  X6=l  THEN  POKE  9+21 , PEEK (V+21 ) OR 
128: POKE  501 75, 31 : POKE  V+14 , 168: POKE 

V+15,108  <132> 

19218  POKE  V+46,9  <196> 

19219  GOSUB  21050  <23B> 

19220  RETURN  <228> 

19999  POKE  53270, PEEK (53270) AND  239  <244> 

20000  PRINT  TAB (10) " CBROWN  }&7. . 

.  .  .  f  £"  <247 > 

20001  PRINT  TAB  (10)  . t£.."  <165> 

20002  PRINT  TAB (10) " _ 1///1///1//0 _ "  <054> 

20003  PRINT  T  AB ( 1 0 ) " I# !  1 — _ - _ -..,*>(£"  <250> 


20004  PRINT  TAB (10) " . ,. . 1/1///1///10. ,. . "  <023> 

20005  PRINT  TAB(10>"., <232> 

20006  PRINT  TAB(10> "////1///1///1//0////"  <088> 

20007  PRINT  TAB  (10)" _ - _ _ "  <101> 

20008  PRINT  TAB(10)  ".  .  T£1  /  1  / // 1/7/ 10&7..  .  "  <059> 

20009  PRINT  TAB(10)  "tl.  _ -,  .  ,&7."  <005> 

20010  PRINT  TAB (10)".,-+////////////2,..M  <093> 

20011  PRINT  TAB  ( 10)  "  .  ,  + . Z.  .  "  <212> 

20012  PRINT  TAB  (10)".+ . 2."  <150> 


20013  PRINT  TAB  (10)  "  + . 2  CG 

REY  2>" 

20014  IF  AP=50  THEN  PRINT" CBROWN, HOME, 7D0W 
N, 16RIGHTJTC6RIGHTJ7C4RIGHT57" 

20015  IF  AP=19  OR  AP=32  OR  AP=55  THEN  2001 
7: REM  TREPPE 

20016  GOTO  20020 

20017  POKE  V+21 , PEEK (V+21) OR  128: POKE  5017 
5,35: POKE  V+14 , 160: POKE  V+15,145 

20018  POKE  V+29, PEEK ( V+29 ) OR  128:P0KE  V+46 
, 0: IF  AP=19  THEN  19130 

20020  IF  AP<>33  AND  AP<>56  AND  AP<>58  THEN 

20900 

20021  POKE  V+21 , PEEK (V+21 ) OR  128:P0KE  5017 
5 , 45: POKE  V+14 , 159: POKE  V+15,97 

20022  POKE  V+46 , 0: POKE  V+23, PEEK (V+23) OR  1 
28: POKE  V+29 , PEEK (V+29) OR  129 

20023  PR I NT " CBROWN , HOME , 6D0WN , 1 7R I GHT > _ 

. .  CDOWN , 6LEFT  > . + . . 2 .  CDOWN, 6LEFTJ+. . . 

. 2  CDOWN, 6LEFT> " 

20024  F'RINT"  CUP ,  1 7RIGHT > . CDOWN, 6LEFTJ 

. CDOWN, 6LEFTJ" 

20900  IF  AP=10  THEN  21001 

21000  IF  PN (AP, 1 ) =0  THEN  21005  0 

21001  POKE  49363, 55: POKE  49364 ,56: POKE  494 
03 , 52: POKE  49404 , 48: POKE  49443, 54:P0 
KE  49444,48 

21002  POKE  49483,68: POKE  49484 , 44: POKE  495 
23 , 70 : F'OKE  49524 , 57: POKE  49563, 53:P0 
KE  49564,44 

21003  POKE  49603,27: POKE  49604, 71 : POKE  496 
43, 68: POKE  49644 , 46: POKE  49683,51 

21005  IF  F’N  ( AP , 2 )  =0  THEN  21010 

21006  POKE  49379, 69:P0KE  49380,65: POKE  494 
19, 49: POKE  49420, 29: POKE  49459, 49: PD 
KE  49460,54 

21007  POKE  49499, 45:P0KE  49500,68: POKE  495 
39,64: F'OKE  49540 , 62: POKE  49579, 45:P0 
KE  49580,61 

21008  POKE  49619, 72:P0KE  49620,60: POKE  496 
59, 46: POKE  49660 , 68: POKE  49700,59 

21010  II-  PN  (AP  ,3)  =0  THEN  21030 

21013  POKE  49410,36: POKE  4941 1 ,67: POKE  494 
12,67: POKE  49413,39: POKE  49449, 48:PO 
KE  49450,44 

21014  POKE  4945 1,32: POKE  49452 , 32: POKE  494 
53, 45: POKE  49454 , 49: POKE  49489, 44: PO 
KE  49490,44 

21015  POKE  49491 ,32: POKE  49492,32: POKE  494 
93,45: POKE  49529 , 48: POKE  49530, 44:P0 
KE  49414,45 

21016  POKE  49531 , 100: POKE  49532 , 103: POKE  4 
9533 , 45 : POKE  49534,49: POKE  49569,44: 
POKE  49570,43 

21017  POKE  49571 ,46:P0KE  49572 , 46: POKE  495 
73, 50: POKE  49574 , 45: POKE  49610, 46: PO 
KE  49611,46 

21018  POKE  49612, 46:P0KE  49613,46: POKE  494 
09,44 

21030  Z1=0:IF  IN ( 10, 1 ) =AP  OR  IN(23,1)=AP  0 
R  IN (26 , 1 >  =AP  OR  IN (28 , 1 ) =AP  THEN  21 
034 


<085> 

<  1 15> 

<  142> 
<048  > 

<  159> 
<254> 
<03 7> 
<027  > 

<  163> 

<  125> 

<234> 

<  182> 
<003> 

<065> 

<  155> 

<241  > 
<248> 

<026> 

<231  > 

<228> 

<003> 

<  208  > 

<014> 

<006> 

<002> 

<  183> 

<048> 

<230> 


21031  IF  IN (35, 1 ) =AP  OR  IN(36,1)=AP  THEN  2 

1034  <252> 

21032  IF  I N ( 1 3 , 1 ) =AP  OR  IN(17,1)=AP  OR  IN( 

34 , 1 ) =AP  DR  IN(42,1)=AP  THEN  Zl=l:GO 

TO  21036  < 182> 

21033  GOTO  21050  <002> 

2 1 034  PR I NT " (HOME , 7 DOWN , 1 8R 1 GHT , 4SPACE , DOW 
N ,  4LEFT  ,  4SPACE ,  DOWN,  4LEFT ,  4SPACE ,  DOW 

N , 4LEFT , 4SPACE  > "  <067> 

21035  POKE  V+10, 161:P0KE  V+11,97:P0KE  V+29 

, PEEK ( V+29 ) OR  32  <175> 

21036  POKE  V+21 , PEEK (V+21) OR  32: POKE  50173 
,39: POKE  V+44,11:P0KE  V+23, PEEK (V+23 

) OR  32  < 198> 

21037  IF  Zl=l  THEN  POKE  V+10 , 161 : POKE  V+ll 

, 78: POKE  V+29 , PEEK (V+29) OR  32  <133> 

21038  IF  Zl=l  THEN  PRINT" (HOME, 4D0WN, 1 SRI G 
HT , 4SPACE , DOWN , 4LEFT , 4 SPACE , DOWN , 4LE 

FTJ " ;  <089> 

21039  IF  Zl=l  THEN  PRINT" C4SPACE, DOWN, 4LEF 

T , 4SPACE , DOWN , 4LEFT , 4SPACE > "  <  063> 

21050  IF  I N  ( 1  ,  1 )  <  >AF'  THEN  21060  <137> 

21051  POKE  V+21 , PEEK (V+21) OR  1 : POKE  50168, 


26: POKE  V+0, 200: POKE  V+ 1,1 20: POKE  V+ 
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39,11 

<190> 

9 , 50: POKE  49212 , 50: POKE  49250, 47:P0K 

21052 

POKE  9+23, PEEK (9+23) OR  l:POKE  9+29, P 

E  9+28,128 

<  059  > 

EEK(V+2910R  1 

<  147> 

21215 

POKE  49251, 47:P0KE  49252,47: POKE  492 

21060 

IF  IN (2 , 1 ) < >AR  THEN  21070 

<215> 

10,45 

<001> 

21061 

POKE  9+2 1 , PEEK ( 9+2 1 >  OR  128: POKE  5017 

21220 

IF  IN (22, 1 ) < >AP  THEN  21230 

<127  > 

5,29: POKE  9+14 , 150: POKE  V+15,110 

<076> 

21221 

POKE  9+2 1, PEEK ( 9+2 1)0R  128: POKE  5017 

21062 

POKE  9+46 ,0: POKE  9+37,9: POKE  9+38,1: 

5,41 

<  164> 

POKE  9+23, PEEK ( 9+23 >OR  128: POKE  9+28 

21222 

POKE  9+14, 190: POKE  9+ 15, 105: POKE  9+4 

,  128 

<  139> 

5 , 14: POKE  9+46,7 

<207> 

21063 

POKE  9+29, PEEK (9+29) OR  128 

<  1 12> 

21223 

POKE  9+23, PEEK ( 9+23 ) OR  128: POKE  9+29 

21070 

XF  IN (3 , 1 >  <  >AP  THEN  21080 

<037  > 

, PEEK (9+29) OR  128 

<197> 

21071 

POKE  9+21, PEEK (9+21) OR  64:POKE  50174 

21230 

IF  I N ( 24 , 1 ) <  >AP  THEN  21240 

<146> 

, 28: POKE  9+12, 160: POKE  9+13,92 

<035> 

21231 

PR 1 NT " (HOME , 1 2D0WN , 16R I GHT , GREY  1 > 1 / 

21072 

POKE  9+45, 15: POKE  9+29 , PEEK (9+29) OR 

1 /// 10 (DOWN, BLEFT , (DOWN.BLEF 

64: POKE  9+ 23, PEEK (9+23) OR  64 

<009> 

TT" 

<  053  > 

21080 

IF  IN (4 , 1 >  <  >AP  THEN  21090 

<  1 16> 

21232 

PRINT"  (UP,  16RI GHT, BROWN l^o-SBWBT" 

<  142> 

21081 

POKE  9+21 , PEEK (9+21 ) OR  128: POKE  5017 

21240 

IF  IN (25, 1 ) <  >AP  THEN  21250 

<036> 

5,30: POKE  9+ 1 4 , 168: POKE  9+15,108 

<  130> 

21241 

POKE  9+2 1, PEEK ( 9+2 1 ) OR  192: POKE  5017 

21082 

POKE  9+46,9 

<026> 

4 , 48: POKE  501 75 , 49: POKE  9+45,7:P0KE 

21090 

IF  IN (5, 1 >  <  >AP  THEN  21100 

<  156> 

9+46 , 7 : POKE  9+12,138 

<  151  > 

21091 

IF  IN(14, 1)0-1  AND  IN(14, 1)035  THE 

21242 

POKE  9+37,0: POKE  9+38, 12: POKE  9+13,9 

N  21095 

<088  > 

8 : POKE  9+15, 98 : POKE  9+28, 192: POKE  9+ 

21092 

POKE  9+2 1, PEEK ( 9+2 1)0R  128 .-POKE  5017 

23, PEEK ( 9+23 )0R  192 

<009> 

5,53: POKE  9+46,5:P0KE  9+14,195 

<091  > 

21243 

IF  Y2=l  THEN  POKE  9+12, 135: POKE  9+14 

21093 

POKE  9+15, 130: POKE  9+29 , PEEK (9+29) OR 

, 208: POKE  9+29,32:P0KE  501 73,31 : POKE 

128: GOTO  21100 

<049> 

9+44 ,9: GOTO  21247 

<084> 

21095 

X 8=1: POKE  9+21 , PEEK (9+21) OR  128:P0KE 

21244 

PR I NT " (HOME , 6D0WN , 1 4R I GHT , GREY  1 > . . . 

50175, 46:P0KE  9+46,3 

<232> 

21096 

POKE  9+14, 190:POKE  9+15 , 1 40: POKE  9+2 

POKE  9+14,186 

<244> 

9, 128: GOTO  164 

<079> 

21245 

PRINT"  (14RIGHT1 . (DOWN,  12L 

21100 

IF  IN (6, 1 ) <  >AP  THEN  GOTO  21110 

<161  > 

EFT> . " 

<  1 19> 

21101 

POKE  9+21 , PEEK (9+21) OR  8:P0KE  50171, 

21246 

POKE  9+29, PEEK (9+29) OR  192: PRINT" (14 

33: POKE  9+28,8:P0KE  9+6,141:P0KE  9+7 

RIGHT) . 11 :  GOTO  21250 

<  159> 

,  103 

<074> 

21247 

PRINT" (H0ME.6D0WN, 14RI GHT, GREY  1 >. . . 

21102 

POKE  9+42 ,11:  F'OKE  9+37,0:  POKE  9+38,1 

(6SPACEJ. . . (DOWN, 12LEFTJ. . . (6SPACET. 

5 

<128> 

.  .  » 

<215> 

21110 

IF  IN  (7, 1 )  OAP  THEN  21120 

<056  > 

21248 

PRINT" C14RIGHT}. . . (6SPACET... (D0WN,1 

21115 

PRINT" {HOME , BROWN , 8D0WN , 1 SRI GHT} ,  Ü(D 

2LEFT>.  .  .  C6SPACE).  .  .  " 

<103> 

OWN , 2LEFT J 1 0 (DOWN , 2LEFT } - , (DOWN , 2LEF 

21249 

PRINT" (14RIGHT). . . (6SPACEJ. . . " 

<078> 

T>-, (DOWN , 2LEFT > / / " 

<202> 

21250 

IF  IN (27 , 1 ) < >AP  THEN  21260 

<057> 

21120 

IF  IN (9, 1 > < >AP  THEN  21130 

<199> 

21251 

POKE  9+2 1, PEEK ( 9+2 1 ) OR  128: POKE  5017 

21121 

IF  AP=19  OR  AP=51  THEN  21130 

<003  >. 

unap""*' 

5,51 :  F'OKE  9+46,12:P0KE  9+14,200 

<092> 

21 122 

POKE  9+2 1, PEEK ( 9+2 1 ) OR  2: POKE  50169, 

21252 

POKE  9+15, 120: POKE  9+23, PEEK (9+23) OR 

34: POKE  9+2,150:POKE  9+3,140 

<192> 

1 28 :  F’OKE  9+29  ,  PEEK  (9+29)  OR  128 

<042> 

21 123 

POKE  9+29, PEEK (9+29) OR  2: POKE  9+40,0 

<  1 1 1  > 

21260 

IF  IN  (29,1)  OAP  THEN  21270 

<076> 

21 130 

IF  I N ( 1 1 , 1 >  <  >AP  THEN  21140 

<  104  > 

21261 

POKE  9+21 , PEEK (9+21) OR  192: POKE  5017 

21131 

POKE  9+2 1, PEEK ( 9+2 1 ) OR  64: POKE  50174 

4,52: POKE  50175,54 

<044> 

, 37 : POKE  9+12, 235: POKE  9+13,122 

<235> 

21262 

POKE  9+12, 121: POKE  9+13 , 105: POKE  9+1 

21132 

POKE  9+28, 64: POKE  9+37,0: POKE  9+38,9 

4,210:  F'OKE  9+15 , 105:  POKE  9+28,64 

<043> 

:  F'OKE  9+23, PEEK  (9+23)  OR  64 

<233> 

21264 

POKE  9+45,8: POKE  9+46, 15: POKE  9+37,1 

21 140 

IF  IN ( 12, 1 ) < >AP  THEN  21150 

<251  > 

1 : POKE  9+38,7 

<093> 

21141 

POKE  9+21 , PEEK (9+21) OR  64: POKE  50174 

21265 

POKE  9+23, PEEK (9+23) OR  192: POKE  9+29 

,38: POKE  9+12, 1 1 1 : POKE  9+13,119 

<152> 

, PEEK (9+29) OR  64 

<136> 

21142 

POKE  9+28,64: POKE  9+37,0: POKE  9+38,9 

21270 

IF  IN  (30,  IX  >AP  THEN  21280 

<026> 

: POKE  9+23, PEEK (9+23) OR  64 

<243> 

21272 

POKE  9+21 , PEEK (9+21) OR  24: POKE  50171 

21150 

IF  IN(14,l)OAP  THEN  21160 

<0 14> 

,50: POKE  50 172, 50: POKE  9+6, 142: POKE 

21151 

POKE  9+2 1, PEEK ( 9+2 1 ) OR  4:P0KE  50170, 

9+7,140 

<  1 16> 

32: POKE  9+4,170:POKE  9+5,130 

<  150> 

21273 

POKE  9+8 , 172: POKE  9+9,140:POKE  9+42, 

21152 

POKE  9+4 1 , 12: POKE  9+29, PEEK (9+29) OR 

8: POKE  9+43,8: POKE  9+29 , PEEK (9+29) OR 

4: POKE  9+23, PEEK (9+23) OR  4 

<220> 

24 

<231  > 

21  16(2 

IF  IN(l&,l)OflP  THEN  21170 

<  1 60  > 

21280 

IF  IN  (33,  IX  >AP  THEN  21290 

<195> 

21  161 

POKE  9+21 , PEEK (9+21) OR  128: POKE  5017 

21281 

PRINT" (BROWN, HOME, DOWN, 16RIGHT52-.  .  . 

5, 36: POKE  9+ 1 4 , 1 70: POKE  9+15,143 

<077> 

.  ,  +  (DOWN , 7LEFT  >//////" 

<  1 1  7> 

21  162 

POKE  9+46 , 0: POKE  9+29 , PEEK (9+29) OR  1 

21290 

IF  IN (37 , 1 )<  >AP  THEN  21300 

<  1 17> 

28 

<090> 

21291 

POKE  9+2 1, PEEK ( 9+2 1 ) OR  128: POKE  5017 

21170 

IF  IN  (16,1)  OAP  THEN  21180 

<051  > 

5 , 58: POKE  9+46,12:P0KE  9+14, 13B 

<  152> 

21171 

PR I NT  "  (HOME ,  7D0WN  } " ; TAB  <  24 ) " -p"' 

<035 > 

21292 

POKE  9+15,  105:F'OKE  9+23, PEEK (9+23) OR 

21  180 

IF  I N  ( 1 8 , 1  )  <  >AP  AND  IN(19,l)OAP  THE 

128: POKE  9+29 , PEEK (9+29) OR  128 

<098  > 

N  21200: REM  SPRUENGE  I . D.  DECKE 

<  1 45  > 

2 1  300 

IF  IN(38,l)OAP  THEN  21310 

<008> 

21  181 

POKE  9+21 , PEEK (9+21) OR  128:P0KE  5017 

21301 

POKE  9+2 1, PEEK ( 9+2 1 ) OR  208: POKE  9+28 

5 , 43: POKE  9+14 , 1 70: POKE  9+15,56 

<008> 

, 64 : POKE  501 75 , 55: POKE  50172,57 

<252  > 

KJ 

CD 

POKE  9+46,0: POKE  9+29 , PEEK (9+29) OR  1 

21302 

POKE  50174,56: POKE  9+ 12 , 160: POKE  9+1 

28 

<  1 10> 

3,1 25 :  F’OKE  9+1 4 , 160:  POKE  9+15,125:P0 

21200 

IF  I N ( 20 , 1 ) <  >AP  THEN  21210 

<090> 

KE  9+46,12 

<1B8> 

21201 

IF  AP=31  THEN  POKE  55599,8: GOTO  2121 

21303 

POKE  9+9 , 125: POKE  9+45,9:P0KE  9+37,0 

<241  > 

0 

<  1 89  > 

21304 

POKE  9+43, 12:  F'OKE  9+23, 208:  POKE  9+29 

21202 

POKE  9+2 1, PEEK ( 9+2 1 ) OR  8: POKE  50171, 

, PEEK ( 9+29 >0R  208 

<009> 

42: POKE  9+6,180:POKE  9+7,150:POKE  9+ 

21305 

POKE  9+8,160: IF  IN(45,1)=-1  OR  Y3=l 

42,8 

<123> 

THEN  POKE  9+8,180 

<252> 

21210 

IF  IN  (21,1)  OAP  THEN  21220 

<236> 

21307 

PRINT" (HOME , 1 0DOWN , 1 9R I GHT , 2SPACE , DO 

21211 

POKE  9+21 , PEEK (9+21) OR  128: IF  IN(46, 

WN , 2LEFT , 2SPACE , DOWN , 2LEFT , 2SPACE , DO 

3) =0  THEN  POKE  9+ 1 4 , 150: POKE  9+15,12 

WN , 3LEFT , 4SPACE 1 " 

<  250  > 

1 : GOTO  21213 

<025> 

21310 

IF  IN (39 , 1 ) <  >AP  THEN  21320 

<  154> 

21212 

POKE  9+14, 155:P0KE  9+15,115 

<  1 1 7> 

21311 

POKE  9+21 ,  PEEK  (9+21 )  OR  128:P0KE  5017 

21213 

POKE  50 175, 44: POKE  9+46, 9: POKE  9+37, 

5 , 30: POKE  9+46,9:P0KE  9+14,172 

<054> 

0 :  F'OKE  9+38,1:  POKE  9+23, PEEK  (9+23) OR 

21312 

POKE  9+15,98: POKE  9+23 , PEEK (9+23) OR 

128 

<006  > 

128 

<067> 

21214 

POKE  9+29, PEEK (9+29) OR  128: POKE  4920 

21314 

PR I NT " ( HOME , 6D0WN , 1 8R I  GHT ,  BLACK  >1.-0 
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CDQWN , 4LEFTJ-. . , <D0WN,4LEFT}-. . , “ 

<169> 

ORDEN, TUER  NACH  SUEDEN , SCHLUESSEL 

<  1 50> 

21315 

PRINT" U8RIGHT}-. . , {DOWN , 4LEFT }— . . , " 

<184> 

39970 

DATA  TOTENMASKE, GASMASKE. GIFTIGE  GAS 

21318 

PRINT" {HOME, 14D0WN, 16RIGHT , BROWNJ+1 / 

E ,  FALLTUER ,  SCHR I TTE  ,  SONNENAUFGANG 

<101  > 

/ //02" 

<213> 

39975 

DATA  GEHE I MGANG , AUGE , WAND , TREPPE 

<  186> 

21320 

IF  IN  <40,  IX  >AP  THEN  21330 

<  105> 

39985 

DATA  160,0,162,0,142,32,208, 142,33,2 

21321 

POKE  V+21, PEEK (V+21)0R  128:P0KE  5017 

08,232, 234 , 224 ,16, 208 , 244 , 200 ,192,25 

5,52: POKE  V+28 , 128: POKE  V+46,8:POKE 

5 

<21 1> 

V+37, 11 

<079> 

39990 

DATA  208,237,169,0,141,32,208,141,33 

21322 

POKE  V+38 , 7 :  POKE  V+14 , 160:  POKE  V+15, 

,208,96 

<003> 

110: POKE  V+23.PEEK (V+23) OR  128 

<07 1  > 

40000 

DATA  3, 4, 2, 0,0, 0,2, 2, 2, 1,0, 0,3, 1,3,0 

21323 

POKE  V+29 , PEEK (V+29 ) OR  128 

<1 18> 

,0,0, 1,0, 5, 0,0, 0,0, 0,0, 4, 0,0 

<159> 

21330 

IF  IN (44 , 1 ) <  >AP  THEN  21340 

<  1 25  > 

40001 

DATA  5,0,7,0,0,0,0,0,0,6,0,0,9,17,15 

21331 

PRINT" (HOME, 12D0WN, 15RI8HT, BROWN >£" 

<247> 

,0,0,0,10,8,0,0,0,0,0,9,0,0,0,0 

<238> 

21340 

IF  IN  <45,  IX  >AP  THEN  21350 

<015> 

40002 

DATA  0,10,12,0,0,0,0,13,0,11,0,0,12, 

21341 

POKE  V+21, PEEK (V+2110R  32: POKE  V+28, 

0,0,0,0,0,0,0,20,0,0,0,0,0,0,8,0,0 

<082> 

PEEK  (V+28)  OR  32:  POKE  V+44,14:F'0KE  V+ 

40003 

DATA  0,0,0,15,0,0,8,0,18,0,0,0,0,0,1 

37,0 

<058> 

9,17,0,0,0,0,0,18,0,58,0,0,21,14,0,0 

<009> 

21342 

POKE  V+38 , 7 : POKE  V+29, PEEK (V+29) OR  3 

40004 

DATA  0,0,0,20,0,0,27,23,0,21,0,0,22, 

2: POKE  V+10, 160: POKE  V+l 1 , 122: POKE  5 

24,0,26,0,0,23,0,0,0,0,0,26,0,24,0,0 

0173,40 

<  063  > 

,0 

<046> 

21350 

IF  1 N < 46 , 1 > < >AP  THEN  21370:REM  GASMA 

40005 

DATA  0,25,23,0,0,0 

<044> 

SKE 

<  140> 

40006 

DATA  0,22,0,28,0,0,31,0,27,29,0,0,0, 

21360 

PRINT"  {HOME,  12D0WN,  19RIGHT , BROWN3 W" 

<  192> 

0,28,0,0,0,0,0,0,0,0,0,0,28,0,30,0,0 

<098> 

21370 

IF  IN(41,1)<  >AP  THEN  21500 

<011  > 

40007 

DATA  0,0,0,31,0,33,34,38,0,36,32,0,0 

21372 

IF  AP=57  THEN  21500 

<030> 

,33,0,35,0,0,55,36,34,0,0,0,35,37,33 

21375 

PR 1 NT " {HOME , 1 3D0WN , 20R 1GHT , BROWN  >  T” 

<150> 

,0 

<  1 34  > 

21500 

RETURN 

<220> 

40008 

DATA  0,0,36,41,0,0,0,0,33,0,0,0,0,0, 

30000 

POKE  V+21 ,0: PRINT" ICLR , 3D0WN , 1 0R1GHT 

0,40,46,0,0,0,39,0,0,0,0,0,37,42,0,0 

,GREEN>SIE  TRAGEN  BEI  SICH" 

<  187> 

1 0 

<021  > 

30010 

FOR  1  =  1  TO  46 

<  062 > 

40009 

DATA  0,41,0,0,0,0,0,0.44,48,0,0,0,43 

30020 

IF  IN (1,1) =— 1  THEN  PRINT" {BLUE, DOWN, 

,50,49,0,0,0,49,0,0,0,0,0,0,0,51,39 

<240> 

10RIGHT , WHITE 5" ITT ( J ) 

<  170> 

40010 

DATA  0,0,0,0,0,40,0,0,0,49,0,43,0,0, 

30025 

NEXT 

<  06 1  > 

48,45,0,44,0,0,44,0,0,38,0,0,0,0,0,4 

30026 

PRINT" {5D0WN , 10R1GHT , GREEN , RVSONJSPA 

6,0 

<099> 

CE  DRUECKEN {RVOFF , WH I TE3  ” 

<235> 

4001  1 

DATA  0,0,0,0,47,0,0,0,0,0,52,0,0,0,0 

30030 

GET  A$: IF  A*<>"  "THEN  30030 

<133> 

,0,51,0,0,0,35,0,0,0,56,0,57,0,0,55, 

30040 

IF  A*="  "THEN  GOTO  160 

<221  > 

0 

<  025  > 

34000 

POKE  V+21 ,0: PRINT  CHRär  <  14)  ,  "  CCLR.3DQ 

40012 

DATA  56,0,0,0,0,0,0,0,0,0,19,0 

<192> 

WNJ  ":  I  NF'UT  "  £1 LENAME 11 ;  E$ 

<  1 99  > 

40025 

DATA  4, 1,1, 5, 0,1, 7, 0,1 

<  230  > 

34005 

OPEN  1 ,8, 15, "S: "+E*: CLOSE  1 

<214> 

40027 

DATA  7,0,0,35,0,1,10,1,1 

<169> 

34010 

OPEN  2,8,2, ES+" , W" 

<  007  > 

40029- ■u.-’A  10,0,0,10,0,1,12,1,1 

<  170> 

34020 

FOR  1=1  TO  58 

<  137  > 

40030 

DA  TA  13,0,1,0,0,0 

<070> 

34030 

PR I NT#2 , PN ( I , 1 > :PR1NT#2,PN(I ,2> :PR1N 

40031 

DATA  14,0,1,15,0,1,16,1,1,16,0,0 

<  209  > 

T#2,PN< I ,3) :PRINT#2,PN< I ,4) 

<216> 

40032 

DATA  21,0,0 

<  034  > 

34035 

PR I NT #2 , PN (1,5): PR I NT #2 , PN (1,6) : NEXT 

<  191  > 

40033 

DATA  21,0,1,23,0,1 

<072> 

34040 

FOR  1  =  1  TO  46 

<027  > 

40034 

DATA  24,0,1,25,1,1 

<169> 

34050 

PRINT#2, IN<I , 1 ) : PRINT#2, IN (1,2) :PRIN 

40035 

DATA  27,1,1,31,0,1,31,0,1 

<I05> 

T#2, IN  < 1 , 3) : NEXT 

<158> 

40036 

DATA  37,0,1 

<  143> 

34060 

PR  I  NT#2  ,  AP :  PR  I  NT#2 ,  X  1 :  PR  I  NT #2  ,  X 2 :  PR  I 

40037 

DATA  40,0,1,42,0,1,42,0,1 

<221  > 

NT #2, X4: PRINT  #2 , X5: PR INTÜ2 , X6 

<074> 

40038 

DATA  38,0,1,47,0,0,48 

<225> 

34070 

PR I NT#2 , X9 : PR I NT#2 , Y 1 : PR I NT#2 , Y2 :  PR I 

40039 

DATA  1,1,50,0,1,50,0,0 

<039> 

NT#2 , Y3 : PR I NT#2 , Y4 : PR I NT#2 , GE 

<067> 

40040 

DATA  51,0,1,52,0,1,0,0,0 

<240> 

34080 

CLOSE  2: GOTO  50300 

<210> 

40041 

DATA  47,0,1,52,0,1,53,0,1 

<09 1  > 

35000 

PRINT  "  CCLR ,  3D0WN )  "  :  I NPUT  " £.1  LENAME "  ;  E 

40043 

DATA  54,0,1,57,0,1,0,1,1 

<1  15> 

f : KK=1 

<046> 

40044 

DATA  19,0,1,25,0,1,58,1,1,53,1,0,27, 

35005 

OPEN  2,8,2,  E£ 

<016> 

1,0 

<035> 

35010 

FOR  1=1  TO  58 

<  1 1 1  > 

45000 

POKE  53270, PEEK (53270) OR  16: POKE  532 

35020 

1  NF'UT  #2 ,  PN  (1,1)  ,  PN  (1,2)  ,PN(1,3)  ,PN(1 

83, 9: POKE  53282,7 

<054> 

,4) , PN ( 1 , 5 ) , PN (1,6): NEXT 

<  1 1 7> 

45005 

POKE  53280,0: PÜKE  53281,9 

<208> 

y.M  30 

FÜR  1=1  lü  46 

> 

PR  INI  ••  CCLR  ,  GREY  1 , 2UUWN  ,  3R  I GHT 

35040 

INPUT»2, 1N( I , 1 )  , I N  < I , 2 )  , IN(I ,3) :NEXT 

<083> 

EJP  H  A  R  A  0  SI3SPACETG  RAVE" 

<  1 76> 

35050 

INPUT »2, AP, XI ,X2,X4,X5,X6,X9,Y1 ,Y2,Y 

45020 

PRINT" CDOWN, 11SPACEJA  D  V  E  N  T  U  R 

3 , Y4 , GE 

<  203  > 

EU3SPACE,  BLACK.}" 

<  005  > 

35060 

CLOSE  2: RETURN 

<L40> 

45030 

PRINT" C19SPACE>. . 

<099  > 

39900 

DATA  GEHE , ZERSTOERE , OEFFNE , KLOPFE , FR 

45031 

PRINT “ {18SPACE). //. 

<102> 

AGE , HACKE , TOETE , KR I ECHE , WERFE , SCH I EB 

45032 

PRINT" {17SPACE >.////. 

<  1 14> 

E 

<1  17> 

45033 

PRINT" { 1 6SPACE  >.//////. 

<162> 

39910 

DATA  DREHE , KLETTERE .NIMM, VERLIERE , Z 1 

45034 

PRINT" { 1 5SP ACE }.////////. 

<098> 

EHE, LIST, SAVE, STOP 

<135> 

45035 

PRINT " <14SPACEJ. //////////. 

<101  > 

39920 

DATA  SP I TZHACKE .BEDUINE, STRAUCH , ZUGE 

45036 

PRINT" C 1 3SPACE  >.////////////. 

<  1 13> 

MAUERTER  E I NEANG , SCHLANGE , STATUE , HEB 

45037 

PR I NT " { 1 2SPACE  3 .//////////////. 

<161  > 

EL 

<081  > 

45038 

PRINT" <1 1 SP ACE  > . /////// //// /// / /. 

<097> 

39925 

DATA  TUER  NACH  WESTEN ,  SEIL ,  TUER  NACH 

45039 

PRINT" {10SPACEJ. //////////////////. 

<  100; 

NORDEN ,  DURCHGANG  ,  DURCHGANG 

<045> 

45040 

PRINT" C9SPACEJ. ////////! //!//////// . 

<1  12> 

39930 

DATA  TUER  NACH  NORDEN , TONKRUG  MIT  ES 

45041 

PRINT" {BSPACE}. ///////////////////// 

SEN, SKORPION, PFEIL, TUER  NACH  NORDEN 

<004;- 

/. 

<  160> 

39935 

DATA  BESCHAEDIGTE  DECKE, SPRUENGE  IN 

45050 

PRINT" {2D0WN , GREY  1 , 19SPACE1BY {19SPA 

DER  DECKE, DI AMANT, TOTER  GRABRAEUBER 

<253> 

CE>" 

<  166> 

39940 

DATA  STATUE, TUER  NACH  NORDEN, LOCH, RE 

45060 

PRINT"  112SF'ACE> WOLF GANG  RAUSCHU2SPA 

LIEF, TUER  NACH  NORDEN, HORUS 

<163> 

CE  }  " 

<082> 

39945 

DATA  TUER  NACH  NORDEN , SCHAETZE , HOLZB 

45100 

GOSUB  12000: GOSUB  30 

<059> 

ALKEN, TUER  NACH  WESTEN, TUER 

<  1 30  > 

451  10 

PRINT" CCLRJ“ ,CHRS (14) : POKE  53270, PEE 

39950 

DATA  OEFFNUNG  IN  DER  DECKE, TUER  NACH 

K (53270) AND  239 

<192> 

NORDEN, TUER  NACH  NORDEN 

<082> 

451  12 

PRINT" CWHITE.3D0WN, 4RI GHT  Mi  :  &EUES 

39955 

DATA  TUER  NACH  NORDEN, OS  IR ISSTATUE.S 

SPIEL  BEGINNEN" 

<  1 14> 

ARKOFHAG, ZUGEMAUERTER  AUSGANG 

<  134> 

39960 

DATA  HOLZSCHREIN, AMULETT, TUER  NACH  N 

Listing  »Grab  des  Pharao«  (Fortsetzung) 
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45113 

PRINT" IDOWN, 4RI GHT) fl  :  ALTES  SPIEL  F 

50202 

PRINT  CHR I (14) " ICLR ,RED,2D0WN, 3SP ACE 

ORTSETZEN" 

<100> 

>SIE  SIND  IN  EINE  FALLGRUBE  GESTUERZ 

45114 

GET  X*:IF  X*="N"THEN  DA=1:G0T0  45120 

<  138> 

T IWHITE)": GOSUB  5600: GOTO  50300 

<003> 

451 16 

IF  X*="A"THEN  GOSUB  35000: GOSUB  60: G 

50203 

GOSUB  5600: PRINT  CHR# ( 14) " ICLR , RED, 2 

OTO  45120 

<  136> 

DOWN , 3SP ACE ) D I E  "IT*(54>"  IST  EINGES 

45118 

IF  X#<>"A"AND  X*<>"N"THEN  45114 

<  174> 

TUERZT IWHITE)": GOTO  50300 

<209> 

45120 

PRINT" ICLR, RIGHT, YELLOW)ZIEL  DES  SPI 

50204 

GOSUB  5600: PRINT  CHR# ( 14) " IRED,CLR,2 

ELS  IST  ES  EINE  P.YRAMIDE“ 

<118> 

D0WN,3SPACE)DIE  DECKE  IST  HERUNTERGE 

45125 

PRINT" IRIGHT)ZU  ERFORSCHEN  UND  DIE  W 

BROCHEN IWHITE) " : GOTO  50300 

<  1 14> 

ERT VOLLE" 

<042> 

50206 

PRINT  CHR# ( 1 4 ) " ICLR , RED , 2D0WN , 3SPACE 

45127 

PRINT"  IRIGHTIIOTENMASKE  DES  £HARAOS 

)EIN  HERABFALLENDER  STEIN  HAT  SIE  ER 

ZU  FINDEN. " 

<077> 

I5SPACE ) SCHLAGEN IWHITE)": GOTO  50300 

<21 1  > 

45130 

PR I NT " IDOWN , R I GHT , ORANGE  J FOLGENDE  ÜE 

50207 

PRINT  CHR# ( 1 4 > " ICLR , RED , 2 DOWN , 3SPACE 

RBEN  VERSTEHT  DER  flOMF'UTER:  " 

<187> 

VIT# (47) "  HABEN  SIE  GETOETET IWHI TE) 

45132 

PRINT" CR I GHT , DOWN ) GEHE , NIMM, VERLIERE 

" : GOTO  50300 

<058> 

,OEFFNE, TOETE" 

<007> 

50208 

FOR  T=1  TO  20: SYS  866: NEXT: GOSUB  560 

45134 

PR I NT " CR 1 GHT  > ZERSTOERE , KLOPFE , FRAGE , 

0: PRINT" ICLR , RED , 2D0WN , 3SPACE )SI E  WU 

WERFE, DREHE" 

<163> 

RDEN  VON  HINTEN  GEPACKT  UND  " 

<  137> 

45136 

PR  I NT " IR  I GHT I  HACKE , KR I ECHE , WERFE , SCH 

50209 

PRINT " I3SPACE )ERWUERGT IWHITE)": GOTO 

IEBE, KLETTERE" 

<  157> 

50300 

<177> 

45137 

PRINT" CRIGHTJLIST, SAVE, STOP 

<  1 17> 

50210 

GOSUB  5600:  F’RINT  CHR#  ( 14)  "  ICLR, RED, 2 

45140 

PRINT" IBLACK, DOWN, RI GHT) AACH  JEDEM  E 

DOWN, 3SP ACE) DIE  "IT*(5)"  HAT  SIE  GEB 

INGEGEBENEN  HORT  MUSS" 

<  150> 

ISSEN IWHITE)": GOTO  50300 

<  131  > 

45142 

PRINT  "  IR I GHT  )  •  KL.T.UAH  GEDRUECKT  WERD 

5021 1 

GOSUB  5600: PRINT  CHR# ( 14 ) " ICLR ,RED , 2 

EN.  " 

<237> 

DOWN , 3SP ACE ) E I NE  "IT# (48)"  HAT  SICH 

45144 

PRINT" IRIGHTlflLLE  AOMEN  KOENNEN  AUF 

UNTER  IHNEN" 

<103> 

5, ALLE  VERBEN" 

<  143> 

50212 

PRINT"  £3SF'ACE)GE0EFFNET  CWHI  TE  )  "  :  GOTO 

45146 

PRINT" IR I GHT) AUF  4  BUCHSTABEN  ABGEKU 

50300 

<  201  > 

ERZT  WERDEN." 

<  188> 

50213 

GOSUB  5600: PRINT  CHR# < 14) ” ICLR , RED, 2 

45148 

PRINT" IRIGHTISEI  &ICHTUNGSANGABEN  GE 

D0WN,3SPACE)SIE  HABEN  EINEN  MECHANIS 

NUEGT  EIN  " 

<090> 

MUS  " 

<  138> 

45150 

PRINT" IR I GHT  >  BUCHST  ABE . 

<245> 

50214 

PRINT" I3SPACE)AUSGEL0EST  , WODURCH  EI 

45152 

PRINT“  IRIGHTIZ.fl.  :  .GEHE  '  R.E.TUAK •  C5SPA 

N  "IT# (16)"  AUS  " 

<160> 

CE)N  •  JtETUlür  " 

<084> 

50215 

PRINT" I3SPACEJDER  WAND  GESCHOSSEN  WU 

45154 

PRINT"  IRIGHT ).LI.5.T.  ZEIGT  ALLE  flEGENST 

RDE IWHITE)": GOTO  50300 

<099> 

AENDE,  DIE" 

<162> 

50300 

PRINT  CHR# (14)  "  £5D0WN,3RIGHT  IflOCH  EI 

45155 

PRINT“ IRIGHT)MAN  BEI  SICH  TRAEGT  (MA 

N  .VERSUCH? ISHIFT— SPACE)  (J/N)  " 

<  1 48> 

XIMAL  3) . " 

<037> 

50310 

GET  A*: IF  A*<>"J"AND  A#<  >"N"THEN  503 

45157 

PRINT"  IRlGHT).5_)iV_E.  SPEICHERT  DEN  SPIE 

10 

<103> 

LSTAND  AUF" 

<247> 

50320 

IF  A#=" J "THEN  CLR: PRINT  CHR# (142) "IC 

45158 

PRINT"  IRIGHT)JtASSETTE  AB." 

<150> 

LR)": RUN 

<026> 

45160 

IF  DA=1  THEN  GOSUB  60 

<091  >;. 

514.  0 

SYS  64738 

<095> 

45170 

PR I NT "  IDOWN , 4R I GHT  , RVSON )  '  .SPULE. '  DRU 

50700 

FOR  X=1  TO  20: POKE  V+8 , 160+X: FOR  T=1 

ECKEN IRVOFF)" 

<050> 

TO  200: NEXT : NEXT : IN (45,3) =1 : GOSUB  5 

47000 

GET  X*: IF  X#<>"  "THEN  47000 

<086> 

900: GOTO  164 

<192> 

47010 

IF  X#="  "THEN  PRINT  CHR* ( 1 42 ) , " ICLR ) 

50720 

TI #="000000" 

<058> 

" 

<244> 

50725 

PRINT  A4S"KOMMANDO  ?" 

<062> 

47020 

IF  KK=1  THEN  155 

<059> 

50730 

POKE  631 , 0: POKE  198,0 

<076> 

47025 

GOTO  150 

<040> 

50731 

U=PEEK(631) 

<124> 

49000 

GOSUB  5600: PRINT" £CLR,2D0WN,9RIGHT>S 

50740 

IF  TI #="000002 "THEN  50770 

<008> 

IE  SIND  AUSSERHALB": GOSUB  5800 

<184> 

50750 

IF  U=71  THEN  POKE  631, U: GOTO  250 

<069> 

49002 

IF  IN<45, 1)0-1  THEN  49050 

<  129> 

50760 

IF  U>0  AND  U<  >71  THEN  50770 

<060> 

49005 

PRINT  CHR*<14> ," ICLR , GREEN , 3D0WN , 3SP 

50765 

GOTO  50731 

<246> 

ACE)SIE  HABEN  ES  GESCHAFFT  DIE  GOLDE 

50770 

FOR  X=1  TO  1 0 : POKE  V+13, 125-X : FOR  T= 

NE" 

<247> 

1  TO  300: NEXT: NEXT: FOR  T=1  TO  20: SYS 

49010 

PRINT" IDOWN, 3SPACE)10TENMASKE  DES  £H 

866; NEXT 

<  16 1  > 

ARAOS  ZU  FINDEN" 

<054> 

50780 

GOSUB  5600: PRINT  CHR# ( 14) " CCLR)" : GOT 

49020 

F'R INT"  IDOWN,  3SPACE)UND  HOECHSTE  flHRU 

0  50300 

<  086  > 

NGEN  SIND  IHNEN I3SPACEJ" 

<204> 

50800 

TI #="000000": POKE  631,0 

<005> 

'l'i'030 

PRINT"  {DOWN,3SPACE)GEWISS," 

<04Q> 

FiPinWFS 

PRINT  A4* "KOMMANDO  ?" 

<142> 

49040 

PRINT" I3D0WN, RED, 3SPACE)D0CH  DER  £LU 

50806 

POKE  63 1,0: POKE  198,0 

<  152> 

CH  DES  £H ARAOS  WIRD" 

<226> 

50807 

U=PEEK (631 ) 

<200> 

49045 

PRINT" IDOWN, 3SPACE)SIE  FUER  IMMER  VE 

50808 

IF  U=71  OR  U=S4  THEN  POKE  631,U:G0TQ 

RFOLGEN. IWHITE) " : GOTO  50300 

<104> 

250 

<0B1> 

49050 

PRINT" CCLR, GREEN, 3D0WN , 3SPACE )flIE  HA 

50809 

IF  U>0  AND  U<  >7 1  AND  U< >84  THEN  5082 

BEN  ES  ZWAR  GESCHAFFT,  DIE"  . 

<254> 

0 

<012> 

49055 

PRINT" IDOWN, 3SPACE) PYRAMIDE  LEBEND  Z 

50810 

IF  TI #="000002 "THEN  50820 

<042> 

U  VERLASSEN,  DOCH" 

<019> 

50815 

GOTO  50807 

<  1  40> 

49060 

PRINT" IDOWN, 3SPACE)SIE  HABEN  DIE  GOL 

50820 

FOR  X=1  TO  10: POKE  V+15, 140+X: POKE  V 

DENE  TßTENMASKE" 

<242> 

+14, 170-X/2:FOR  T=1  TO  100: NEXT: NEXT 

<174> 

49065 

PRINT" IDOWN, 3SPACE)NICHT  GEFUNDEN. ": 

50825 

FOR  T=1  TO  10: SYS  866: NEXT: GOSUB  560 

GOTO  50300 

<  156> 

0 

<  138> 

50100 

REM 

<  121  > 

50830 

PRINT  CHR# ( 1 4 ) " ICLR , RED , 2D0WN , 3SPACE 

50105 

F'OKE  V+  1 4 , 1 90 :  POKE  V+15,130 

<233> 

>DER  "IT* (15)"  HAT  SIE  GESTOCHEN CWHI 

50110 

FOR  F2=135  TO  155  STEP  2: POKE  50175, 

TE)" : GOTO  50300 

<011> 

46: FOR  T=1  TO  100: NEXT: POKE  V+15.F2 

<  1 42> 

52000 

PRINT  A3# " IGREEN >S I E  HOEREN  "IT* (49) 

50120 

POKE  50175, 47:F0R  T=1  TO  100:NEXT:NE 

"  HINTER  SICH IWHITE) " : C=C+1 

<095> 

XT 

<022> 

52004 

FOR  Cl=l  TO  4 

<022> 

50121 

FOR  T=1  TO  30: SYS  866: NEXT: GOTO  5021 

52005 

FOR  LA=5  TO  0  STEP-. 4 

<01B> 

0 

<217> 

52010 

POKE  SI+24 , LA: POKE  SI+5, 8*16+10: POKE 

50190 

PRINT  CHR* ( 1 4  > " CCLR , RED , 2D0WN , 3SPACE 

SI+6, 15*16: POKE  SI+1,15:P0KE  SI+0,0 

<060> 

)SIE  HABEN  SICH  HOFFNUNGSLOS  VERIRRT 

52020 

POKE  SI+4, 129: NEXT 

<065> 

IWHITE)": GOTO  50300 

<022> 

52025 

POKE  SI +4,0: POKE  SI+5,0 

<236> 

50200 

PRINT  CHR* (14)" ICLR , RED , 2D0WN , 3SPACE 

52030 

FOR  T=1  TO  800: NEXT: NEXT: RETURN 

<103> 

)SIE  HABEN  DEN  HALT  VERLOREN  UND  SIN 

B  M'pr 

D  I4SPACE)H INUNTERGEFALLEN IWHITE)“ 

<050> 

50201 

GOTO  50300 

<  254  > 

Listing  »Grab  des  Pharao«  (Schluß) 

134 
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Spiel 


Castle  of  Doom 

Castle  of  Doom  ist  ein  Adventure,  das  es  in  sich  hat. 

Man  kann  nicht  nur  drei  verschiedene  Versionen  auswählen, 
es  ist  zudem  gar  nicht  einfach,  bis  zum  Ende  durchzustehen. 

Dazu  brauchen  Sie  Geduld,  eine  gehörige  Portion  Phantasie 

und  —  viel  Zeit. 


Zunächst  einige  wesentliche  Informationen  zum  Ablauf  des 
Spiels: 

Am  Anfang  des  Spiels  kann  man  sich  für  eine  von  drei  ver¬ 
schiedenen  Versionen  entscheiden.  Bei  allen  Versionen  ist 
das  »Spielfeld«  gleich,  doch  das  Ziel,  das  es  zu  erreichen  gilt, 
ist  jeweils  ein  anderes.  Die  Kommandos  müssen  jeweils  aus 
zwei  Worten  bestehen,  die  durch  Leerraum  getrennt  werden. 
Beide  Worte  können  beliebig  abgekürzt  werden,  doch  man 
muß  darauf  achten,  daß  keine  Mißverständnisse  auftreten. 

Das  Programm  beinhaltet  eine  kurze  Anleitung,  in  der  die 
wichtigsten  Punkte  der  Befehlseingabe  nochmals  erwähnt 
werden.  Zudem  sind  alle  Verben,  die  der  Computer  versteht, 
aufgeführt.  Wird  dennoch  ein  Wort  benutzt,  das  der  Computer 
nicht  kennt,  so  gibt  er  an,  welches  der  eingegebenen  Worte 
ihm  unbekannt  ist. 

Auf  dem  Bildschirm  sind  immer  zu  sehen: 

—  eine  Grafik,  die  den  Ort  zeigt,  an  dem  man  sich  befindet, 


Zum  Abschluß  hier  noch  die  wichtigsten  Variablen: 

V$(1...14) 

Liste  Verben 

H$(1...21) 

Liste  Hauptwörter 

Rl$(1  19) 

mögliche  Richtungen 

Zl$(1...19) 

Nachbarfelder 

G$(  1  ...1 2) 

Liste  Gegenstände 

G(1...12) 

Ort  der  Gegenstände 

P 

Position 

V 

Version 

Z1$,Z2$ 

Zauberwörter 

ZA 

=  0,1,2  Zauberwort  gesagt? 

K$ 

Kommando 

V$ 

Verb 

H$ 

Hauptwort 

KB$(1...9) 

mögliche  Kombinationen 

MO 

=  1  Monster  besiegt 

GE 

=  1  Geist  besiegt 

MR 

=  1  Monster  anwesend 

GS 

=  1  Geist  anwesend 

ZB 

=  1  Zauberer  anwesend 

GG 

Anzahl  Gegenstände 

Variablen-Definition  zu  Castle  of  Doom 

—  eine  Liste  der  Gegenstände,  die  sich  an  diesem  Ort  befin¬ 
den, 

—  eine  Liste  der  Gegenstände,  die  man  besitzt. 

(Bernd  Weißbecker/gk) 


Zur  Erläuterung  des  Programms  sind  hier  die 
verschiedenen  Abschnitte  aufgeführt: 

1 

Sprung  zur  Befehlsausführung 

5  — 

95 

DATAs  einiesen,  Erklärung? 

100  — 

160 

Version  auswählen 

165  — 

176 

Zauberwörter  bestimmen 

1  79  - 

740 

Bilder  zeichnen 

748  — 

860 

Kommando  auswerten 

870- 

940 

Bewegen 

950- 

980 

Sprung  zur  Befehlsausführung 
berechnen  und  ausführen 

999  — 

5382 

Befehlsausführung 

6500  — 

6528 

Befehl  »sage« 

7000- 

7065 

Besitz  +  Gegenstände  anzeigen 

7100- 

7125 

Befehl  »nimm« 

7200- 

7415 

Befehl  »wirf« 

7500- 

7560 

Erklärung 

7600  — 

7720 

verloren 

7800- 

7880 

gewonnen 

8000  — 

81  10 

DATAs 

Da  die  Kommandoauswertuna  recht  ungewöhnlich  aus¬ 
geführt  wird,  folgt  hier  noch  eine  Beschreibung  der  betref¬ 
fenden  Programmzeilen: 

755 

Kommandoeingabe 

760  — 

785 

Zerlegen  in  Verb/Hauptwort 

795  - 

810 

Vergleich  mit  der  Liste  aller  bekannten 
Wörter 

Zuordnung:  X  =  Nummer  des  Verbs 

(1-14) 

Y  =  Nummer  des  Haupt- 

worts  (1  —21) 

830  — 

845 

Untersuchen,  ob  eine  sinnvolle 
Kombination  von  Verb  und  Hauptwort 
vorliegt 

960- 

980 

Aus  X  und  Y  wird  die  Zeilennummer 
berechnet,  in  der  die  Antwort  auf  das 
eingegebene  Kommando  steht.  Die 
berechnete  Zeilennummer  wird  in  ihre 
Ziffern  zerlegt,  und  diese  werden  in 
den  Programmspeicher  hinter  das 

GOTO  in  Zeile  1  gePOKEd.  Anschlie¬ 
ßend  wird  ein  GOTO  1  ausgeführt. 

“jsi 
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0  GOTO  5 

<207> 

250 

FOR  J=1402  TO  1562  STEP  40: FOR  K=0  TO 

1  GOTO! ! ! ! 

<174> 

3: POKE  J+K, 160: POKE  J+K+QQ , 0: NEXT: NEXT 

<093> 

2  REM 

<064> 

255 

POKE  1 402 , 254 : POKE  1405, 252: GOTO  245 

<083> 

3  REM  ZEILEN  0  UND  1  NICHT  AENDERN  ! ! ! !  • 

<010> 

260 

FOR  J=1552  TO  1752  STEP  40:POKE  J,160: 

4  REM 

<066> 

POKE  QQ+J , 0: NEXT : POKE  1752, 105: GOTO  24 

5  DIM  V* (14) ,H* (21) ,RI*<19> ,ZI*(19> ,G*(12) 

5 

<  194> 

,6(12) 

<251  > 

265 

FOR  J=1575  TO  1775  STEP  40:POKE  J,160: 

6  L*=" (RVSON , 24SPACE} " 

<092> 

POKE  QQ+J, 0: NEXT: POKE  1775,95: GOTO  245 

<U0> 

7  CL*="E<22SPACE>ff" 

<  083  > 

270 

ON  P  GOTO  275,740,300,315,740,325,345, 

B  EF*  =  " (39SPACE1" 

<128> 

740,355,375,395 

<019> 

10  POKE  532B0 , 1 4 E  POKE  53281 , 14: POKE  53272, 

275 

ON  V  GOTO  740,280,285 

<0B1  > 

23:  P=15: 130=54272:  VI=5324B 

<212> 

280 

POKE  2040 , 15: POKE  VI+39,0:POKE  VI, 150: 

15  POKE  V I +2 1 , 0 : PR INT" (CLR > " SPC (12) " (BLACK 

POKE  VI+1 , 140: POKE  VI+29,1:P0KE  VI+23, 

.  8D0WN i  C FI.5T. I.-E  (SH I FT-SPACE  >aE.(SH  IFT-SPAC 

1 

<  134> 

E  :  REM  CASTLE  OF  DDOM 

<081  > 

282 

POKE  VI +21 , 1 : ZB=1 : GOTO  740 

<  1 72> 

20  PRINT" (2D0WN, WHITE, 4SPACE>£IN  SDVENTURE 

285 

PRINT"  (HOME,  10DOWN>"SPC(13>  '"pW'iPRIN 

VON  HEISSBECKER" 

<  187> 

T  SPC  (12)  "H(3SPACE>HT?" 

<074> 

25  PRINT  SPC(11>"(2D0WN>*  SITTE  WARTEN  *" 

<  138> 

290 

PRINT  SPC(ll) "HT3SPACE1H  W" : PRINT  SPC ( 

30  FOR  1=1  TO  14: READ  V* < I ) 

<037> 

11)  "flW£(2SPACE>H“:  PRINT  SPC  ( 1 1 )  "W**t? 

35  IF  I<10  THEN  READ  KB* ( I ) 

<023> 

H" 

<022> 

40  NEXT 

<  050  > 

295 

PRINT  BPC(ll)  "A.TÜSH  SCHATZ":  FOR  1  =  1  TO 

45  FOR  1=1  TO  21: READ  H*(I):NEXT 

<  129> 

2000: NEXT: GOTO  7830 

<255> 

50  FOR  1  =  1  TO  19: READ  RI  * (I ) , Z I* ( I ) : NEXT 

<087> 

300 

IF  LEFT* (RI* (3) , 1 >  ="N"THEN  740 

<  1 40> 

55  FOR  1  =  1  TO  1 2 : 6* ( I >  =H* ( I ) : READ  G(I):NEX 

305 

FOR  J=1402  TO  1562  STEP  40: FOR  K=0  TO 

T 

<249> 

3 

<013> 

60  FOR  1=1  TO  4 : READ  ZX* ( I ) , Z Y* ( I ) : NEXT 

<1B7> 

310 

POKE  J+K , 160: POKE  J+K+QQ , 06: NEXT : NEXT : 

65  FOR  1=13  TO  15 

<  155> 

PRINT  SPC (16)" (4UP , BLACK > SPIEGEL " : GOTO 

70  FOR  J=0  TO  62: READ  K:POKE  64*1 +J , K: NEXT 

740 

<061  > 

:  NEXT 

<224> 

315 

PRINT" (HOME ,2D0WN>" SPC (13) "¥(RVS0N,4SP 

85  PRINT" (UP, 2SPACE}flDECHTEN  SIE  EINE  £RKL 

ACE,RVOFF>£":  PRINT  SPC(14> "¥(RVS0N,2SP 

AERUNG  ?  (£/&)" 

<  198> 

ACE  ,  RVOFFTS"  :  PRINT  SPC  ( 1 5  >  "  TfiJ" 

<194> 

90  GET  A*: IF  A*="J"THEN  7500 

<101> 

320 

FOR  1  =  1  TO  10: PRINT  SPC ( 15) "S£"  : NEXT: G 

95  IF  A*<>"N"THEN  90 

<200> 

OTO  740 

<  192> 

100  PRINT"  (CLR,  BLACK!  "SPC  (10)  "  {DOWN>  CAS.T.LE 

325 

PR INT" (HOME , BROWN , 1 0DOWN  > " SPC ( 1 3  > "  757p 

(SHI  FT-SPACE  ;.0.F.  (SHI  FT-SPACE  1D0.0M" 

<198> 

:  PRINT  SPC  (13)  "S’pTPS" 

<143> 

105  PRINT" (2D0WN , CYAN , SPACE} BEI  DIESEM  fiDV 

330 

PRINT  SPC  ( 12)  "H(4SPACE>MTT":  PRINT  SPC  ( 1 

ENTURE  KOENNEN  SIE  ZWI-" 

<167> 

1)  "H(4SPACE>HHR": PRINT  SPC  (10)  "N(4SPAC 

110  PRINT" (DOWN, SPACE JSCHEN  DREI  ÜERS IONEN 

EJÜÜY" 

<133> 

WAEHLEN  : " : PR I NT ” (DOWN , 2SPACE >  HOLLEN 

335 

PRINT  SPC  ( 9 )  "  077VPXK"  :  PR I NT  SPC(9>"7?(3 

SIE  :" 

<208> 

SPACE  JTTM"  :  PR I NT  SPC  (9)  "  L.p-pT?g<2SPACE}SC 

115  PRINT" (DOWN, 2SPACEJ1  -  SINE  VERZAUBERT 

HL AF ZIMMER" 

<201  > 

E  £R INZESSIN" : PRINT  SPC (6) " (DOWNJRETTE 

340 

GOTO  740 

<  126> 

N" 

<101> 

345 

IF  GE=1  THEN  740 

<235> 

120  PRINT" (DOWN, 2SP ACE} 2  -  SINEN  BOESEN  Zfi 

350 

POKE  2040 , 13: POKE  VI+39,1:P0KE  VI, 150: 

OBERER  BESIEGEN" 

<042> 

POKE  VI+1 , 1 50 : POKE  VI+23, 1 : POKE  VI+29, 

125  PRINT" (DOWN, 2SPACET3  -  SINEN  SCHATZ  SU 

1 

<004> 

CHEN" 

<049> 

351 

POKE  VI+21 , 1 :  IF  G(  12)00  THEN  FOR  1  =  1 

130  PRINT" (2D0WN,SPACE>BITTE  GEBEN  SIE  DIE 

TO  2000: NEXT: GOTO  7630 

<008> 

ENTSPRECHENDE" 

<104> 

352 

GS=1 : GOTO  740 

<027> 

135  PRINT" (DOWN, SPACE > SENN Z IFFER  EIN." 

<073> 

355 

PR I NT " (HOME , BL ACK , DOWN  > " SPC ( 1 1 ) " BURGHO 

140  POKE  198 ,0: WA IT  198,1 

<1  12> 

F  /  BRÜNNEN":  PRINT  SPC  ( 13)  "  (DOWN > O.L.O.l .0 

145  GET  I*:IF  ASC(I*><49  OR  ASC (I*) >51  THE 

,L°P&PS£fi£" 

<220> 

N  140 

<140> 

360 

PRINT  SPC  ( 17)  "  (9D0WN>e?Wp(T":  PRINT  SPC 

150  V=VAL ( I* ) : IF  V< >2  THEN  160 

<243> 

( 1 6 ) " (R VSON , 8SP ACE  J " 

<209> 

155  RI*(13)="W-0": Z I * ( 13) =" 1214" : RI* (9) ="W 

<  175> 
<054  > 

365 

PRINT  SPC  ( 1 6 )  "  h'tWuYtV"  :  PR I NT  SPC  (16)" 
\T7"  -  bb  i  kit  cor  /  i  x.  ^  imgff  nr  r  tifv?" 

<  128> 

<  156> 

157  RI* (8) ="N— S-0" : Z I* (8) ="051209" 

370 

GOTO  740 

160  IF  V=1  THEN  G (7) =1 

<063> 

375 

POKE  214, 14: PRINT 

<  17B> 

lÄiü  FOR  1-1  TO  4s  J  <  I  > -1  +4«RND  <TI  )  i  NEXT 

<221  > 

3B0 

IF  FA-1  THEN  PRINT  SPC (23> " CDOWN >¥ IRVB 

170  Z1*=ZX*(J ( 1) ) +ZY* ( J (2) ) 

<  1 22  > 

0N,3BPACE>¥": PRINT  SPC (24) "¥(RVS0N,3SP 

175  Z2*=ZX*(J (3) )+ZY*(J (4) ) 

<040> 

ACE>¥" : GOTO  740 

<09B> 

176  IF  Z1*=Z2*THEN  165 

<202> 

385 

PRINT  SPC  (23)  'W:  PRINT  SPC  (23)  "fl  <3B 

177  TI*="000000" 

<  156> 

PACEJfl" 

<215> 

179  REM  ****  BILDER  ZEICHNEN  **** 

<125> 

390 

PRINT  SPC (16) "QUADRAT  a(3SPACE>fl" : PRIN 

180  PRINT" (CLR, BLACK!" POKE  53272,21 : POKE 

T  SPC ( 25 ) " yYYY" : GOTO  740 

<  179> 

VI +21 ,0: POKE  V I +23 , 0 : POKE  VI+29,0 

<  150> 

395 

PRINT"  (HOME  , 9D0WN >  " SPC  ( 23 )  "IWir"  :  PRINT 

185  FOR  1=1  TO  20: PRINT  SPC (8) CL*: NEXT 

<027> 

SPC ( 22 ) " Wfl(3SPACE  >fl" : PR I NT  SPC ( 22 ) " W 

190  FOR  1=1824  TO  1863:P0KE  1,99: POKE  I+QQ 

Q.PVP." 

<054> 

,0: NEXT 

<075> 

400 

PRINT  SPC (15) "iß(5SPACE>W  mW-  W"  :  PRINT 

195  IF  P>11  THEN  415 

<061  > 

SPC  (15)  "UJ.(5SPACE>n  Tim  n” 

<021  > 

197  POKE  53280 , 5 : POKE  53281,5 

<099> 

405 

PRINT  SPC ( 14) " (RVS0N>A(2SPACE>¥(RV0FF> 

200  PRINT" (HOME>"; : FOR  1=1  TO  4:PRINT  SPC ( 

YW9Yfli£¥S"  :  PR  INT  SPC  (13)  "  (RVS0N>A(4SP 

B+I )  "J1"SPC  (22-2*1 )  "H"  :  NEXT 

<160> 

ACE>¥" 

<1B7> 

205  PRINT  SPC  ( 13)  "  (UPT  p-p'p'p'p'p'p'p'p'pVpVp" 

<076> 

410 

PRINT  SPC (21) "SCHRANK": GOTO  740 

<244> 

210  FOR  1  =  1  TO  10:  PRINT  SPC  ( 12)  "ff'SPC  ( 1  4)  " 

415 

IF  P>14  THEN  445 

<226> 

C?" :  NEXT 

<  151> 

417 

POKE  53280, 8: POKE  53281,8 

<  083  > 

215  PRINT  SPC(13> " Y Y Y V Y y YY Y V V v Y Y (UF> " 

<231  > 

420 

PRINT"  (HOMEV;  :  FOR  1  =  1  TO  6:  PRINT  SPC  ( 

220  FOR  1=1  TO  5: PRINT  SPC ( 13-1 ) "H"SPC ( 12+ 

8) " (BLUE > "L*: NEXT 

<  177> 

2*1) "fl": NEXT 

<216> 

425 

FOR  1=55504  TO  55514  STEP  2: POKE  I,7:N 

225  FOR  1=1  TO  LEN (RI* (P) ) STEP  2:A*=MID*(R 

EXT : FOR  1=55517  TO  55527  STEP  2:P0KE  I 

I*(P) ,1,1) 

<037  > 

,7: NEXT 

<  199> 

230  IF  A*="N"THEN  250 

<074> 

235  IF  A*="W"THEN  260 

240  IF  A*="0"THEN  265 

<219> 

<044  > 

Listing  Castle  of  Doom.  Bitte  mit  dem  Checksummer 

245  NEXT: GOTO  270 

<147> 

auf  Seite  16  eingeben. 

136 


C  64 


Spiel 


430 

FOR  1  =  1  TO  11: PR I NT " {YELLOW  > " SPC ( 8 )  L  * : 

660 

PRINT" {HOME, BLACK, 5D0WNJ "SPC (9) "WOLLEN 

NEXT : FOR  1=1  TO  3: PRINT" {BROWN} "SPC (8) 

SIE  DIE  GEGEN-" 

<  13B> 

L*:NEXT 

<203> 

665 

PRINT  SPC (9) " (DOWNJSTAENDE,  DIE  SIE  HI 

435 

IF  LEFT*(RI*(P) ,1)<>"N"THEN  740 

<  1  70> 

ER": PRINT  SPC (9) " {DOWNJERHALTEN  HABEN, 

440 

POKE  214,11: PR I NT " {BLACK  > " : FOR  1  =  1  TO 

NOCH {2SPACE  > " 

<183> 

5: PRINT  BPC(IB) " {RVS8N , 4SPACEJ " : NEXT 

<016> 

670 

PRINT  SPC ( 9) " (DOWN JE INMAL  UMTAUSCHEN  ? 

442 

BOTO  740 

<  228  > 

" : PRINT  SPC (9) " {DOWN , 8SPACE J ( J/N) " 

<072> 

445 

POKE  53280, 14: POKE  532B1,14:0N  P-14  GO 

675 

PRINT : PRINT  SPC (8) CL*: PRINT: PRINT  SPC ( 

TO  555,450,485,500,540 

<013> 

B)CL*c GOSUB  860 

<089> 

450 

PRINT" {HOME , YELLOW , 6D0WN  > " SPC ( 20 ) " B" : P 

680 

GET  I»: IF  I*="N"THEN  710 

<1B5> 

RI NT  SPC< 18) " {RVSON, 3SPACEJ" 

<  175> 

685 

IF  I  *<  >"J  " THEN  680 

<  196> 

460 

PRINT  SPC  (17)  "  {BROWNJ’BWVSON.SPACEJH  TT 

690 

FOR  1=1  TO  4: G ( I ) =20: NEXT : GG=GG— 2 

<134> 

"  :  PRINT  SPC(16)"{RVS0NJ£  ü{3SPACE)r' 

<04B> 

695 

PRINT" {H0ME,4D0WNJ": FOR  1=1  TO  9: PRINT 

465 

PRINT  SPC (15) "  ii  {RVSON , SPACE J ( (6SPACEJr 

SPC (8) CLt: NEXT 

<170> 

"  :  PR I NT  SPC  (14)  " T (RVSON  J\7(2SPACE  JZK7SP 

700 

PR I NT " (HOME , 5D0WN J " SPC (12)" WAEHLEN  S I E 

ACE  J£“ 

<072> 

! ": PRINT" {7D0WNJ" 

<21B> 

470 

PRINT  SPC ( 13) " (RVSON J£{5SPACE>a(7SPACE 

705 

BOTO  585 

<  189> 

>E" 

<234  > 

710 

PRINT" (HOME, 4DOWN,BLACKJ": FOR  1=1  TO  9 

475 

FOR  1=1  TO  7 : PRINT  SPC (8) L*: NEXT 

<205> 

: PRINT  SPC ( 8 ) CL* : NE X T 

<038> 

480 

PRINT  SPC (9) " C6UP , RVSON J BERG" 

<000> 

715 

PRINT" (HOME, 3D0WNJ“: FOR  1=1  TO  5:PRINT 

481 

IF  LEN(RI*(16) >=5  THEN  PRINT  SPC(9)"{D 

SPC  (13)  "7"SPC(11>  "T"1 : NEXT 

<056> 

OWN , RVSON >STE I LER  WEG  NACH  OBEN" 

<067> 

720 

PRINT  SPC  ( 13)  "  {CYANJflVVYVYYVVyVYfi" :  PRI 

482 

GOTO  740 

<012> 

NT  SPC  (13)  "ffaV-E  flY£  aViTT" 

<026> 

485 

PR I  NT " {HOME  > " SPC ( 9 ) " {4DOWN  >STE I LER  BER 

725 

PRINT  SPC (13) "FRIREDTSICYANJU  HIRED Jfi{ 

GHANG , " : PR I NT  SPC ( 9 ) " {DOWN  JHOEHLE " 

<233> 

CYAN JH  ff{REDJfi<CYANJW 

<112> 

490 

PRINT  SPC (21 > "{3DOWNJT":  PRINT  SPC (19)" 

730 

PRINT  SPC  (13)  "RI, PS  apS  iRSR" :  PRINT  SPC 

B {R VSDN , 3SPACE > VP {R VOFF > F" 

<219> 

(lo)  "  L.P  P  p  P  p  p  p  p  p  p  pg" 

<  190> 

495 

FOR  1=1  TO  6: PRINT  SPC ( 19) " {RVSON, 7SPA 

740 

POKE  214, 18:  PRINT:  PRINT  SPC  ( 9-)  "  {BL  ACK  J 

CE> " : NEXT : GOTO  740 

<  195> 

RICHTUNGEN  : {SPACE, WHITE J "RI t (P) : GOTO 

500 

PRINT" {HOME>"; : FOR  1=1  TO  19:PRINT  SPC 

750 

<140> 

(8>L*:NEXT 

<052> 

74B 

REM  ****  KOMMANDOAUSWERTUNG  **** 

<127> 

505 

PR I NT " {HOME  J " SPC ( 9 ) " {RVSON , DOWN  > I M  BRU 

749 

FOR  1=1  TO  2500: NEXT 

<034  > 

NNEN  ..." 

<032> 

750 

ZA=0: GOSUB  7000 

<  194> 

510 

IF  V<>3  THEN  740 

<079> 

755 

GOSUB  860 : I NPUT " (YELLOW , SPACE  JKOMMANDO 

515 

IF  MO=l  THEN  PRINT" (DOWN J": GOTO  530 

<036> 

:";K* 

<  161  > 

520 

POKE  2040 ,14: POKE  VI+39, 13: POKE  VI, 200 

760 

IF  LEFT * ( K* , 1 ) = "  "THEN  K*=R I GHT * ( K* , LE 

:  POKE  VI  +  1  ,  150:F'OKE  VI.+23 , 1 :  POKE  VI+29 

N(K*)-1) : GOTO  760 

<093> 

1  1 

<244> 

765 

IF  LEN  <K*) =1  THEN  B70 

<  193> 

525 

PR I NT  SPC ( 9 ) " {RVSON , DOWN  JMONSTER " : POKE 

770 

FOR  1=1  TO  LEN (K*> : IF  MID* (K* , I , 1 ) ="  " 

VI +21 , 1:MR=1 

<226> 

THEN  780 

<  1 30  > 

530 

PRINT  SPC (9) " {RVSON, D0WN>TUER{5D0WN>" : 

G^6R 

772  NE/.  • 

<020> 

FOR  1=1  TO  7: PRINT  SPC < 16) " (5SPACEJ " : N 

775 

GOSUB  860: PRINT" (10SPACEJUNKORREKTE  EI 

EXT 

<047> 

NGABE  ! " : GOTO  749 

<239> 

535 

IF  RI*(1S)="H"THEN  POKE  1601,114 

<  170> 

780 

V*=LEFT* ( K* , I - 1 ) : H*=R I GHT* ( K* , LEN ( K* ) - 

537 

GOTO  740 

<069> 

I) 

<064> 

540 

PRINT" {HOME>"; : FOR  1=1  TO  20: PRINT  SPC 

785 

IF  LEFT* (H* , 1 ) ="  "THEN  H*=RIGHT * (H* ,LE 

(8) Lt: NEXT 

<060> 

N (H*) — 1 > : GOTO  7S5 

<085> 

545 

PRINT" {HOME > " SPC ( 9 ) " {RVSON , DOWN } I N  DER 

790 

IF  V*=" SAGE "THEN  6500 

<143> 

HOEHLE  ..." 

<  1 15> 

795 

FOR  1=1  TO  14: IF  LEFT* (V* ( I ) ,LEN ( V») ) = 

550 

PRINT  SPC (9) " (RVSON , DOWN JSTOCKDUNKEL  H 

V*THEN  X=I : GOTO  805 

<056> 

IER  .  .  .  "  :  GOTO  740 

<16B> 

800 

NEXT: NV*=V*: GOTO  815 

<090> 

555 

PRINT"  {HOME ,  RED ,  DOWN  >  "  SPC  ( 1 3  >  "  fiTvWyvV 

805 

FOR  1=1  TO  21: IF  LEFT* (H* ( I ) ,LEN (H*> ) = 

WYY£" :  PR  INT  SPC(13)"-R  B  A  S  A  R  R" 

<226> 

H*THEN  Y=I : GOTO  B25 

<054> 

560 

PRINT  SPC  (13)  "ippppTpWpWS" 

<242> 

810 

NEXT : NV*=H* 

<  171  > 

565 

IF  XX  =  1  THEN  655 

<151> 

815 

GOSUB  860: PRINT" (UP, SPACE JTUT  MIR  LEID 

570 

PRINT  SPC (9) " {BLACK, DOWN JEIN(3SPACEJBE 

,  ABER  ICH  VERSTEHE” 

<  153> 

FREUNDETER" 

<221  > 

B20 

PRINT" (DOWN, SPACE J • "NV*" ’  NICHT. " : GOTO 

575 

PRINT  SPC (9) " (DOWNJHAENDLER  IST  BEREIT 

749 

<229> 

, " : PR  INT  SPC (9) " {DOWN J IHNEN  ZWEI  DER  F 

825 

IF  X  >9  THEN  X-X-5 

3> 

OLGEN-" 

<227> 

B30 

FOR  1=1  TO  LEN (KB* (X) ) : IF  MID*(KB*(X), 

580 

PRINT  SPC (9) " (DOWNJDEN  GEGENSTAENDE  ZU 

1,1) =CHR* ( Y+64 ) THEN  950 

<  129> 

" : PRINT  SPC (9) " {DOWN JUEBERLASSEN  :" 

<  135> 

835 

NEXT: GOSUB  860 

<168> 

585 

PRINT  SPC (9) " (DOWN, RVSONJ1 {RVOFF, SPACE 

940 

PRINT" (UP, SPACE JTUT  MIR  LEID,  ABER  ICH 

JGLASKUGEL {SPACE , RVSON  >2 (RVOFF , SPACE  >K 

VERSTEHE  IHREN" 

<  121  > 

AEFIG" 

<253> 

845 

PRINT" (DOWN, SPACE JBEFEHL  NICHT. " : GOTO 

590 

PRINT  SPC (9) " (DOWN, RVSON J3 {RVOFF , SPACE 

749 

<  052  > 

JAMULE TT (3SPACE , RVSON ) 4 {RVOFF , SPACE  JBU 

860 

POKE  214, 20 : PR I NT : FOR  1=1  TO  3:PRINT  E 

CH" 

<  1 40> 

F*: NEXT : PRINT" {3UP J ": RETURN 

<242> 

595 

PRINT" (4D0WN,2SPACEJBITTE  ENTSPRECHEND 

869 

REM  ****  BEWEGEN  ***** 

<  008  > 

E  NUMMERN  EINGEBEN" 

<095> 

B70 

FOR  1=1  TO  6: IF  K*=MID* ( "NSWOHR" , I , 1 ) T 

600 

GET  I*:IF  I*=""THEN  600 

<193> 

HEN  B80 

<027> 

605 

IF  ASCII») <49  OR  ASCII») >52  THEN  600 

<  187> 

875 

NEXT:  GOTO  775 

<049> 

610 

ON  VAL ( I » ) GOSUB  635,640,645,650 

<059> 

B80 

IF  GS=1  OR  ZB=1  OR  MR=1  THEN  7600 

<245> 

615 

GET  Jt: IF  J*=""OR  J*=I»THEN  615 

<068> 

882 

FOR  1=1  TO  LEN (RI* (P) ) STEP  2 

<  172> 

620 

IF  ASC ( J*>  <49  OR  ASC ( J») >52  THEN  615 

<236> 

885 

IF  MID*(RI*(P) ,1,1) =K*THEN  900 

<  175> 

625 

ON  VAL (J») GOSUB  635,640,645,650 

<  106> 

B90 

NEXT: GOSUB  860 

<223> 

630 

XX=l:GG=GG+2: GOSUB  7000: GOTO  655 

<U0> 

895 

PRINT” (3SPACEJ IN  DIESE  RICHTUNG  GEHT  E 

635 

POKE  1633 , 49: G ( 1 ) =0: RETURN 

<002> 

S  NICHT": GOTO  749 

<  165> 

640 

POKE  1645,50: G (2) =0: RETURN 

<183> 

900 

SC=0: ZI=VAL (MID* (Z I* (P) ,1,2)) 

<086> 

645 

POKE  1713,51 :G (3) =0: RETURN 

<013> 

905 

IF  P=16  AND  ZI=13  THEN  925 

<246> 

650 

POKE  1725,52: G (4) =0: RETURN 

<213> 

910 

IF  R=13  AND  Z 1=9  AND  G(B>=0  AND  V=1  TH 

655 

YY=0:FOR  1=1  TO  4: IF  G ( I ) =0  THEN  YY=YY 

EN  7660 

<096> 

+  1 

<004> 

915 

IF  ZI=0  THEN  7680 

<  102> 

657 

NEXT : IF  YY< >2  THEN  710 

<007> 

920 

P=ZI : GOTO  180 

<245> 

Listing  Castle  of  Doom.  (Fortsetzung) 
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925  IF  G (8) =0  THEN  ON  V  GOTO  930,7650,7670  <115> 

930  GQSUB  860s  PRINT" <UP , SPACE >H INTER  IHNEN  2266 

LOEST  SICH  EINE  STEIN-"  <107>  2280 

935  PRINT" {DQWN,SPACEJLAWINE ,  DIE  DEN  WEG  2282 

VERSCHUETTET. " : RI* < 16) ="W-0" s Z I* < 16) ="  2284 

1517"  <130> 

940  FOR  1=1  TG  2500: NEXT : P=Z I : GOTO  1B0  <221>  2286 

949  REM  **  SPRUNG  ZUR  BEF. AUSFUEHRUNG  *#  <127> 

950  IF  X=4  AND  Y<13  THEN  7100  <207> 

955  IF  X=5  THEN  7200  <0BB>  2288 

960  ZN=1000+(X-1)*500+<Y-1)*20:ZN*=STR*<ZN  2400 

)  < 106>  2402 

965  FOR  1=1  TD  4 : NZ=VAL (MID* < ZN* , 1+1 , 1 > >  <003>  2404 

970  PGKE (2060+1 ), (NZ+48)  <252> 

975  NEXT  <223>  2406 

980  GGSUB  860: GOTO  1  <1B9>  2820 

998  REM  ***  BEFEHLSAUSFUEHRUNG  *«*  < 180>  2822 

999  PRINT" {2SPACEJ0K  !":GOTO  749  <119>  2840 

1000  IF  Y=1  OR  Y=7  DR  Y=16  OR  Y=19  OR  Y=20  2842 

THEN  E*="E  " : GOTO  1002  <152> 

1001  E*="  "  <028>  2900 

1002  PRINT"  HIER  IST  KEIN"E*H* (Y) : GOTO  749  <188>  2902 

1020  IF  G  < Y) =0  OR  G(Y)=P  THEN  999  <253>  3560 

1022  GOTO  1000  <200>  3562 

1060  GOTO  1020  <048> 

1180  IF  G ( 10) <  >0  AND  G ( 10) <  >P  THEN  1000  <080>  3564 

1182  IF  V<>2  THEN  PRINT"  DER  "H*<10>"  LAES  3566 

ST  SICH  NICHT  OEFFNEN" : GOTO  749  <060>  3568 

1184  IF  G < 9 ) < >2 1  THEN  999  <250> 

1186  PRINT"  IM  "H* (10) "  BEFINDET  SICH  EIN  3660 

"H* (9) "  ! ! " : G (9) =P: GOTO  749  <202> 

1300  IF  P=18  AND  RI* ( 18) ="H"AND  V=3  THEN  1  3662 

306  < 143> 

1302  IF  P=1  OR  P>13  THEN  1000  <206>  3664 

1304  PRINT"  HIER  IST  KEINE  GESCHLOSSENE  TU 

ER" : GDTO  749  <085>  3860 

1306  IF  G ( 1 1 ) <  >0  THEN  PRINT"  DIE  TUER  IST  3862 

VERSCHLOSSEN  ! " : GOTO  749  <214> 

130B  RI* ( 18) ="0— H" : Z I* ( 18) =" 1909"  :  RI* ( 19) =  3864 

"S— W" :ZI*(19)="171B": GOTO  180  <240> 

1340  IF  POll  THEN  1000  <1'32)C  UPI  4ow,7 

1342  IF  V=3  OR  G(10)<>21  THEN  999  <118> 

1344  IF  G(  11)00  THEN  PRINT"  DER  SCHRANK  I  4302 

ST  VERSCHLOSSEN": GOTO  749  <067>  4320 

1346  PRINT" IUP, 3SPACE JIM  SCHRANK  BEFINDET  4322 

SICH"  <  13B>  4324 

1348  PRINT" <D0WN,3SPACEJEIN  GOLDENER  BALL" 

:G (10) =11: GOTO  749  <067>  4380 

1400  PRINT"  DAS  IST  UNMOEGLICH  !":GOTO  749  <16B> 

1580  IF  G(5)OP  THEN  1000  <120>  4382 

1582  IF  P=1B  THEN  PRINT"  ES  IST  ZU  DUNKEL  4384 

HIER  !  " :  GOTO  749  <080>  4386 

1584  IF  G (2) =0  THEN  1590  <148> 

1586  PRINT" {UP, SPACEJSIE  BRAUCHEN  EINEN  BE  4388 

HAELTER"  <021 > 

1588  PRINT" CDOWN, SPACEJ UM  DEN  FROSCH  ZU  FA  4390 

NBEN  ! " : GOTO  749  <016> 

1590  IF  GG=5  THEN  PRINT"  SIE  TRAGEN  SCHON  4392 

5  GEGENSTAENDE  • " : GOTO  749  <245> 

1592  G (5) =0: GG=GG+ 1 : PR INT"  OK  ! " : GOTO  749  <114>  4400 

1740  IF  MR= 1  THEN  7640  <254> 

1742  IF  V=3  AND  P=9  AND  MO=0  THEN  PRINT"  V  4402 

ON  HIER  AUS  GEHT  DAS  NICHT  !  " :  GOTO  74  4580 

9  <02B>  4582 

1744  GOTO  1000  <160>  4584 

17B0  IF  GBOl  THEN  1000  <100>  4586 

1782  PRINT" {2SPACEJDER  GEIST  MAG  DAS  NICHT  4588 

! ! " t FOR  1=1  TO  2000: NEXT: GOTO  7630  <134>  4590 

2080  IF  G (5) =P  THEN  PRINT"  DER  FROSCH  LAES  4740 

ST  SICH  NICHT  KUESSEN" : GOTO  749  <046>  4742 

2082  IF  G ( 5 ) <  >0  THEN  1000  <050> 

2084  IF  VOl  OR  P< >6  THEN  999  <226>  4760 

2086  PRINT"  ES  KNALLT  UND  ST INKT. . . " t FOR  I  4762 

=1  TO  2000: NEXT: GOTO  7800  <107>  4764 

2240  IF  MROl  THEN  1000  <084 >  4766 

2242  PRINT" CUP, SPACEJ DAS  MONSTER  SCHLAEGT  4770 

WILD  UM  SICH"  <046>  4771 

2244  PRINT" <DOWN , SPACE JUND  SCHLEUDERT  SIE 

AUS  DEM  BRUNNEN" :MR=0  <141>  4772 

2246  FOR  1=1  TO  3000: NEXT: P=9: GOTO  180  <027>  4773 

2260  IF  ZBOl  THEN  1000  <207>  4774 

2262  FOR  1=0  TO  15:P0KE  53281, I:POKE  53280 

, I : FOR  J=1  TO  100: NEXT: NEXT: ZB=0  <117>  4775 

2264  POKE  53280 , 5 : POKE  53281 , 5: ZK=ZK+1 : IF 


ZK=3  THEN  7620  <217> 

P=2+INT ( 13*RND (TI > ) : GOTO  180  <166> 

IF  GSOl  THEN  1000  <092> 

IF  TI *<"00 1000 "THEN  7630  <00B> 

GE=1 : GS=0: FOR  1=832  TO  892  STEP  3:P0K 
E  1,0: POKE  1+1 ,0: POKE  I+2,0:NEXT  <091> 

PRINT" {UP, 2SPACE) DER  GEIST  HAT  IHREN 
MUNDGERUCH " : PR I NT " <DOWN , 2SPACE >NI CHT 
VERTRAGEN  !"  <179> 

GOTO  749  <073> 

IF  PO10  OR  FA=1  THEN  1000  <2 00> 

IF  VOl  THEN  999  <115> 

IF  V=1  THEN  FA=1 : RI* ( 10) =“N-W-R" : Z I* ( 


10) ="070919" 

RI*(19>=" S-H ":ZI*(19)="1710": GOTO  180 
IF  P<  >3  OR  LEN (RI* (3) > =5  THEN  1000 
PRINT"  DAS  GEHT  NICHT  ! " : GOTO  749 
IF  POll  THEN  1000 

PRINT"  DER  SCHRANK  IST  ZU  SCHWER  !":G 
OTO  749 

IF  PO10  OR  FA=1  THEN  1000 

GDTO  2822 

IF  GS= 1  THEN  7630 

IF  G ( 4 ) <>0  THEN  PRINT"  ICH  HABE  DAS  B 
UCH  NICHT  ! " : GOTO  749 
IF  V=3  THEN  3568 

PRINT"  ZAUBERWORT  :  "ZI*: GOTO  749 
PRINT" {UP, SPACE JZAUBERWOERTER  :  “ZI*: 
PR I NT " {DOWN  > " SPC ( 1 7 ) Z2* : GOTO  749 
IF  G (9) < >0  THEN  PRINT"  ICH  HABE  KEINE 
N  ZETTEL": GOTO  749 

PRINT"  ZAUBERWORT:  "Z2*:F0R  1=1  TO  25 
00: NEXT 

PRINT"  «JP, SPACE >DER  ZETTEL  VERSCHWIND 
ET  I  !  !  "  :  GG=GG— 1 :  G  (9)  =21 :  GOTO  749 
IF  P< >12  OR  SC=0  THEN  1000 
PRINT" <UP,2SPACE>TUT  MIR  LEID,  ABER  E 
S  SCHEINT" 

PRINT" {DOWN, 2SPACE JE INE  FREMDE  SPRACH 
E  ZU  SEIN": GOTO  749 

IF  P< 12  OR ( V=3  AND  P=1B) THEN  PRINT"  0 
K... NICHTS  PASSIERT  ! " : GOTO  749 
GOTO  1000 

IF  P<>3  OR  LEN (RI* (3) ) =5  THEN  1000 
PRINT" <UP, SPACE >H INTER  DEM  "H*(17> 
PRINT" {DOWN, SPACEJSCHEINT  EIN  HOHLRAU 
M  ZU  SEIN  ! " : GOTO  749 

IF  V=2  AND  P=12  AND  LEN (RI* ( 12) ) =3  TH 
EN  4388 

IF  P=19  AND  G (8) =21  THEN  4392 
IF  P>14  AND  P< 18  THEN  1000 
PRINT"  OK. ..NICHTS  BESONDERES  FESTZUS 
TELLEN  ! " : GOTO  749 

POKE  214, 11:PRINT: PRINT  SPC ( 18) " {YELL 
OW , RVSON } MUZ ü" : GOSUB  860 
PRINT"  EINE  SCHRIFT  ERSCHEINT. SC= 
1 : GOTO  749 

G (8) =19: PRINT"  AN  DER  WAND  HAENGT  EIN 
SCHWERT  ! " t  GOTO  749 
IF  P=10  AND  FA=0  THEN  PRINT"  KLINGT  H 

OHI - “  :  GOTO  749 

GOTO  1000 

IF  G  (5)  <  >0  AND  G(5)OP  THEN  1000 
PRINT"  DER  FROSCH  ENTWISCHT  IHNEN  !" 
IF  G  (5)  <  >1B  OR  VOl  THEN  4588 
GOTO  749 

IF  G (5) =0  THEN  BG=GG-1 
G(5)=1+INT( 19*RND ( 1 ) ) : GOTO  749 
IF  MR=0  THEN  1000 

PRINT"  GUTE  IDEE,  ABER  DAS  GEHT  NICHT 
! " : GOTO  749 
IF  ZB=0  THEN  1000 

GOSUB  4770: IF  Y=0  OR  G(Y)<>0  THEN  749 
IF  Y=B  AND  ZA=2  THEN  7820 
GOTO  7620 
INPUT"  WOMIT  " ; WM* 

FOR  1=1  TO  LEN (WM*> : IF  MID* ( WM* , I , 1 ) = 

"  "THEN  4773 

NEXT: GOTO  4774 

WM*=R I GHT* ( WM* , LEN ( WM* ) - I ) 

FOR  Y=1  TO  12: IF  WM*=LEFT * ( H*  <  Y ) , LEN  < 
WM*)) THEN  4776 

NEXT: GOSUB  860: PRINT"  ICH  VERSTEHE  '" 
WM*'"  NICHT  !  "  :  Y=0:  RETURN 
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4776  IF  G ( Y) < >0  THEN  GDSUB  860: PRINT"  ICH 
HABE  DIESEN  GEGENSTAND  NICHT  !" 

4777  RETURN 

47B0  IF  GS=0  THEN  1000 

4782  GOSUB  4770: IF  Y=0  OR  G(Y)<>0  THEN  749 

4784  GOSUB  B60:ON  V  GOTO  4785,4790,4794 

4785  IF  G  <8) =0  THEN  PRINT“  SIE  SIND  GESTOL 
PERT,  UND. . .  11 : FOR  1  =  1  TO  2000:NEXT:GO 
TO  7630 

47B6  IF  ZA=1  AND  Y=7  THEN  4798 
4788  GOTO  7630 

4790  IF  ZA=1  AND  Y=3  THEN  4798 
4792  GOTO  7630 

4794  IF  Y=1  THEN  PRINT"  DER  GEIST  IST  TOT, 
ABER...": FOR  1=1  TO  2000: NEXT 
4796  GOTO  7630 

4798  POKE  VI+21 ,0: GS=0: GE=1 : PRINT "  OK... DE 
R  GEIST  IST  TOT  !":GOTO  749 
5000  IF  G ( 1 >  <  >0  AND  G(l)OP  THEN  1000 
5002  PRINT"  WOZU  SOLLTE  DAS  GUT  SEIN  ?":GO 
TO  749 

5020  IF  G  (2)  <  >0  AND  GIZIOP  THEN  1000 
5022  PRINT" <UP, SPACE >SO  GEHT  MAN  NICHT  MIT 
FREMDEM" 

5024  PRINT" {DOWN,SPACE)EIGENTUM  UM  ! " : GOTO 
749 

5300  IF  P=1B  AND  RI* ( 18) ="H"AND  V=3  THEN  5 
306 

5302  IF  P=1  OR  P>13  THEN  1000 
5304  PRINT "WIESO,  HIER  IST  KEINE  VERSCHLOS 
SENE  TUER" : GOTO  749 

5306  PRINT"  DIE  TUER  IST  ZU  STABII _ ".-GOT 

0  749 

5320  GOSUB  4770: IF  Y=0  OR  G(Y)<>0  THEN  749 
5322  IF(V=1  AND  Y=8)0R(V=3  AND  ZA=2  AND  Y= 
8) THEN  7247 

5324  GOSUB  860: PR INT"  DAS  GEHT  NICHT  •  " :  GO 
TO  749 

5340  IF  POll  THEN  1000 

5342  PRINT" <UP, SPACE >DER  SCHRANK  LAESST  SI 
CH  NICHT" 

5344  PRINT" {DOWN, SPACE >M IT  GEWALT  OEFFNEN 
! “ : GOTO  749 

5380  IF  P>14  AND  P<18  THEN  1000 
53B2  PRINT"SIE  KOENNEN  DIE  WAND  NICHT  ZERS 
TOEREN  ! " : GOTO  749 

6499  REM  **»  BEFEHL  -SAGE'  *** 

6500  GDSUB  860: IF  H*=Z1*THEN  ZA=l:GOTO  650 
6 

6502  IF  H*=Z2*THEN  ZA=2:G0T0  6506 
6504  GOTO  7690 

6506  ON  V  GOTO  6508,6512,6520 
6508  IF  ZA=1  AND  G<7>=0  AND  GS=1  AND  G(4)= 
0  THEN  PRINT"  DIE  KEULE  VIBRIERT...": 
GOTO  6528 
6510  GOTO  6526 

6512  IF  ZA=1  AND  P=12  AND  BC=1  THEN  RI* (12 
) ="N— W— 0" : Z I * ( 1 2) ="0800 13": GOTO  415 

IF  ZA-  J  AND  0(3) -a  «NU  (3S-1  THEN  POKE 


<240> 
<007> 
<  1 16> 
<060> 
<037  > 


<  131  > 
<205> 

<  140> 

<  193> 

<  1 44> 

<239> 

<  14B> 

<000> 

<  066  > 

<019> 

<  150> 

<  1 12> 
<007> 

<081  > 

<  140> 

<  174> 

<112> 

<  090  > 

<  149> 

<028> 

<086> 

6“>GF 

<  006  > 

<034> 
<051  > 

<036> 

<  141  > 

<086> 

<009> 

<015> 

<064> 


<059  > 
<157> 

<213> 


V 1+39,0: GOTO  755  <133> 

6516  IF  ZA=2  AND  G<8>=0  AND  ZB=1  AND  G<4>= 

0  THEN  PRINT"  DAS  SCHWERT  LEUCHTET... 

“ : GOTO  6528  <096> 

6518  GOTO  6526  <165> 

6520  IF  ZA=1  AND  G<3>=0  AND  MO=0  AND  P=9  T 
HEN  PRINT"  DAS  AMULETT  LEUCHTET. G 
OTO  652B  < 1 13> 

6522  IF  ZA<>2  OR  G<4><>0  OR  POS  OR  RI*  (3) 

<  >"W-0" THEN  6526  <095> 

6524  PRINT"  DER  SPIEGEL  LEUCHTET. ..": GOTO 

6528  <134> 

6526  PRINT"  OK... ES  TUT  SICH  NICHTS  ! " : GOT 

0  749  <0B5> 

6528  FOR  1=1  TO  2000: NEXT : GOTO  755  <193> 

6999  REM  »  BESITZ/GEGENSTD  ANZEIGEN  »  <167> 

7000  PRINT" {HOME)"; :FOR  1=1  TO  20: PRINT" {8 

SPACE)": NEXT  <226> 

7002  PRINT" {HOME, BLACK, DOWN)SIE" : PRINT" {DO 

WN)BESITZEN":SP=0  <001 > 

7005  FOR  1=1  TO  12: IF  G(I)=0  THEN  GOSUB  70 

50  < 1 16> 

7010  NEXT  <162> 


7020  PRINT" {HOME)"; : FOR  1=1  TO  20:PRINT  SP 

C (32) " {7SPACE) " : NEXT  <216> 

7022  J=0: PRINT" {HOME , BLACK , DOWN) "SPC (32) "E 
S  GIBT" (PRINT  SPC (32) " {DOWN)HIER  :":S 
P=32  < 122> 

7025  FOR  1=1  TO  12: IF  G ( I ) =P  THEN  GOSUB  70 

50: J=J+1 : IF  J=6  THEN  RETURN  <131> 

7030  NEXT:  RETURN  <1U> 

7050  IF  1=1  THEN  PRINT  SPC (SP) " {D0WN1GLAS- 

": PRINT  SPC (SP) "KUGEL" (RETURN  <043> 

7055  IF  1=11  THEN  PRINT  SPC < SP) " (DOWN)SCHL 

UES " : PR  I NT  SPC  <  SP ) " SEL " : RETURN  <  035  > 

7060  IF  1=12  THEN  PRINT  SPC (SP) " {DOWN)KETT 

EN-": PRINT  SPC (SP) "HEMD" : RETURN  <081 > 

7065  PRINT  SPC(SP) " <DOWN)"G*(I) (RETURN  <055> 

7099  REM  *»*  BEFEHL  'NIMM'  ***  <085> 

7100  IF  G(Y)=P  THEN  7110  <199> 

7105  GOSUB  860 : PR INT" {26PACE )D I ESER  GEGENS 

TAND  IST  NICHT  HIER  ! " : GOTO  749  <197> 

7110  IF  GG<5  THEN  7120  <080> 

7115  GOSUB  B60 : PR I  NT " {2SPACE )S I E  HABEN  BER 

EI TS  5  GEGENSTAENDE  ! " : GOTO  749  <100> 

7120  IF  Y=5  THEN  GOSUB  860: PRINT" {4SPACE)D 
ER  FROSCH  HUEPFT  IHNEN  DAVON  !":GOTO 
749  <252> 

7125  G(Y)=0:GG=GG+1: GOSUB  B60: PRINT" {3SPAC 

E)OK  ! " : FOR  1=1  TO  1000: NEXT: GOTO  750  <010> 

7199  REM  ***  BEFEHL  'WIRF'  »**  <0B8> 

7200  IF  G ( Y ) <  >0  THEN  GOSUB  860: PRINT"  ICH 
HABE  DIESEN  GEGENSTAND  NICHT  ! " : GOTO 

749  <209> 

7205  GOSUB  860: INPUT" {2SPACE)W0HIN  " ; WH*  <0B5> 
7210  FDR  1=1  TO  LEN(WH*):IF  MID# (WH* , I , 1 ) = 

"  "THEN  7220  <071> 

7215  NEXT: GOTO  7225  <154> 

7220  WH*=R I GHT # ( WH* ,LEN(WH*)— I)  <059> 

7225  IF  WH* = " BODEN " OR  WH#="WEG"OR  WH*="EGA 

L"OR  WH*=" WAND "THEN  7235  <042> 

7230  ON  V  GOTO  7240,7270,7330  <255> 

723S  GUa,  3  860: PRINT" {2SPACE)0K  !":G(Y)=P: 

GG=GG— 1 : GOTO  749  <037> 

7240  IF  Y< >8  OR  WH*< >"SPIEGEL"OR  P< >3  OR  L 

EN (RI* (3)) =5  THEN  7255  <1B9> 

7245  G ( Y ) =3 : GG=GG— 1  <058> 

7247  RI* (3) ="N-W— 0" : ZI* (3) ="010204" : GOSUB 


860  <01 3  > 

7250  PRINT" {2SPACE)DER  SPIEGEL  ZERBRICHT  ! 

" : FOR  1=1  TO  2000: NEXT: GOTO  180  <086> 

7255  IF  Y<  >10  OR  WH*<  >"BRUNNEN"OR  P<>9  OR 

G (5) <  >18  THEN  7380  <235> 

7260  GOSUB  860: PRINT“ {UP , 2SPACE)AUS  DEM  BR 

UNNEN  KOMMT  EIN  FROSCH"  <121> 

7265  PRINT"  {DOWN, 2SF'ACE)MIT  DEM  BALL  IM  MU 

ND. " : G ( 10) =9: G (5) =9: GG=GG-1 : GOTO  749  <041> 

7270  IF  Y< >3  OR  WH*< >"GEIST"OR  GSOl  THEN 

7290  <194> 

7275  IF  ZAOl  THEN  7630  <186> 

7280  POKE  VI+21 ,0: GOSUB  860: PRINT" <4SPACE> 

SIE  HABEN  DEN  GEIST  BESIEGT  !"  <212> 

7285  GE=1 : GS=0: G ( Y) =7 : GG=GG-1 : GOTO  749  <042> 

7290  IF  Y<  >6  OR  PO10  OR  WH*<  >"  QUADRAT  "OR 

FA= 1  THEN  7305  <251 > 

7295  FA=1 : G (6) =10: GG=GG-1 : RI* ( 10) ="N-W-R" : 

ZI*  ( 10)' =  "0709 19"  <  1 98 > 

730«)  RI*(19,)*!iB-H":ZI*(19)="1710":GOTO  180  <043> 
7305  l'F  YK  OR  P<  >3  OR  WH*<  >"  SPIEGEL  "OR  L 

EN(W*’ji'3))=5  THEN  7315  <022> 

73JiB  GOTO  7245  <155> 

7315  1|F  Y06  DR  ZBOl  OR  WH*<  >"ZAUBERER"TH 

?NI  7380  <062> 

7320  IF  ZA<>2  THEN  7620  <096> 

7325  POKE  VI+21, 0: FOR  1=1  TO  2000: NEXT: GOT 

0  7820  <002> 


7330  IF  YOl  OR  WH*<  >"GEIST"OR  GSOl  THEN 

7340  <237> 

7335  GOTO  7280  <244> 

7340  IF  Y< >3  OR  WH*< >" BRUNNEN "OR  P< >9  THEN 

7360  <034> 

7345  G (3) =18: GG=GG-1 : GOSUB  860: IF  M0=1  THE 

N  PRINT" {2SPACE)0K  ! " : GOTO  749  <030> 

7350  IF  ZA=1  THEN  PRINT"  AUS  DEM  BRUNNEN  E 

RTOENT  EIN  SCHREI ...": M0=1 : GOTO  749  <163> 
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7355  G  <3) =9: PRINT"  DAS  AMULETT  KOMMT  ZURUE 

CKGEFLOGEN  ! " s GOTO  749  <096> 

7360  IF  YOS  OR  WH$O"SPIEGEL"0R  P<  >3  OR  L 

EN (RIt (3) ) =5  THEN  7380  <027> 

7365  IF  ZA=2  THEN  7245  <218> 

7370  GOTO  7235  <1B3> 

7380  IF  WHt= "BRUNNEN " AND  P=9  THEN  G<Y)=18s 

GOTO  7415  <249> 

7382  IF  WH*=" QUADRAT "AND  P=10  AND  FA=0  THE 

N  G  < Y>  =  10:  GOTO  7415  <249> 

73B5  IF  WHS= "HOEHLE" AND  P=17  THEN  G(Y>=19: 

GOTO  7415  <129> 

7390  IF  WH$= " GE I ST " AND  GS=1  THEN  7630  <064 > 

7395  IF  WHf=" ZAUBERER "AND  ZB=1  THEN  7620  <07B> 

7400  IF  WH4'  =  "SF’I  EGEL  "AND  P=3  AND  LEN(RI*(3 

>>=3  THEN  7235  <053> 

7405  GOSUB  860: PRINT"  ICH  VERSTEHE  SIE  NIC 

HT..."  <000> 

7410  FOR  1=1  TO  2000: NEXT: GOTO  7205  <000> 

7415  GG=GG— 1 : GOSUB  860: PRINT " <2SPACE>0K  !" 

: GOTO  749  <160> 

7499  REM  ***  ERKLAERUNG  ***  <17B> 

7500  PRINT "  <CLR ,  DOWN  ,  SPACE >5.1  E  MUESSEN  VER 

SUCHEN,  EINE  AUFGABE  ZU"  <052> 

7505  PRINT" {DOWN, SPACE 1LOESEN,  INDEM  AIE  D 

EM  .COMPUTER  SAGEN,"  <085> 

7510  PRINT" {DOWN, SPACE! WAS  ER  TUN  SOLL."  <086> 

7515  PRINT" {DOWN , SPACE >^UR  C2SPACE>£URTBEWE 

GUNG {2SPACE > GEBEN {2SPACE >AI E  NUR"  <177> 

7520  PRINT" {DOWN, SPACE JflBKUERZUNGEN  EIN  (A 
-•ä-M-a-ü-Ä  =  N.QJLH  :  REM  N-S-W-O-H-R 
=  NORD  -  < 106> 

PRINT"  {DOWN , SPACE }.5_U_EJt  -  REST  -  - 

HOCH.  -  RUNTE.R)  "  <205> 

REM  SUED  -  WEST  -  OST  -  HOCH  -  RUNTER  <1B9> 
PRINT" {DOWN, SPACE >BNSONSTEN  MUESSEN  D 
IE  BEFEHLE  AUS  ZWEI"  <006> 

PRINT" {DOWN, SPACE JHDERTERN  BESTEHEN  ( 
VERB/ÜAUPTWORT) "  <090> 

PRINT" {DOWN, SPACEJäER  COMPUTER  VERSTE 
HT  DIE  SERBEN  :"  <096T 


7695  PRINT" {DOWN, 10SPACE > BANANE  VERWANDELT 


7525 

7526 
7530 

7535 

7540 

7545 

7550 

7555 

7560 

7599 

7600 
7605 
7610 
7620 

7625 

7630 

7640 

7645 

7650 

7655 

7660 

7665 

7670 

7675 

7680 

7685 

7690 


PRINT" {DOWN , SPACE  50EFFNE , FANGE , KUESSE 
, NIMM, LIES, WIRF," 

PRINT" {DOWN , SPACE IBERUEHRE/KLOPFE , ERS 
CHL AGE /TOETE , SAGE " 

PR I NT " {DOWN , SPACE  JZERBRECHE/ ZERSTOERE 
{3SPACE >- I2SPACE  > ££RT I G  ??? " 

POKE  198,0: WA IT  198,1:G0T0  100 
REM  ****  VERLOREN  **** 

IF  ZB=1  THEN  7620 
IF  GS=1  THEN  7630 
IF  MR=1  THEN  7640 

PRINT" {CLR, BLACK, DOWN, SPACE >DER  ZAUBE 
RER  HAT  SIE  IN  EINE  KROETE" 

PRINT" {DOWN , SPACE > VERWANDELT . " : GOTO  7 
700 

PR I NT " {CLR , BLACK , DOWN , 5SPACE JDER  GE I S 
T  HAT  SIE  GF-B I SSEN .  “  :  GOTO  7700 
PR I NT " {CLR , BL  ALK , OUWN , SPACE  >  DAS  MUNST 
ER  HAT  BESCHLOSSEN,  SIE" 

PRINT" {DOWN, SPACE } ZU  HEIRATEN. " : GOTO 
7700 

PRINT" {CLR , BLACK , DOWN , SPACE >S IE  SIND 
UNTERWEGS  GESTOLPERT  UND“ 

PRINT"  {DOWN, SPACE >HABEN  SICH  DABEI  DE 
N  KLEINEN  FINGER" : PRINT" {DOWN, SPACEJV 
ERSTAUCHT . " : GOTO  7700 

PRINT" {CLR, BLACK, DOWN, SPACE > AUS  DEM  T 
ORBOGEN  HAT  SICH  EIN  STEIN" 

PRINT" {DOWN, SPACE JGELOEST  UND  IST  IHN 
EN  AUF  DEN  FUSS" : PRINT" (DOWN , SPACEJGE 
FALLEN. GOTO  7700 

PR I NT " {CLR , BLACK , DOWN , SPACE >S I E  SIND 
IN  EINEN  ERDRUTSCH  GERATEN" 

PRINT" {DOWN, SPACEJUND  HABEN  SICH  IHRE 
NEUE  HOSE  DRECKIG":PRINT" {DOWN, SPACE 
JGEMACHT . " : GOTO  7700 

PR I NT " {CLR , BLACK , DOWN , SPACE >S I E  S I ND 
VOM  BERG  GEFALLEN  UND  HABEN" 

PRINT" {DOWN, SPACE TDABEI  IHRE  BRILLE  Z 
ERBROCHEN. ": GOTO  7700 

PRINT“ {CLR , BLACK , DOWN , SSPACE >SIE  HABE 
N  SICH  IN  EINE" 


<1B9> 

<  1 85  > 

<  1 13> 
<239> 

<  067  > 
<111> 
<241  > 
<026> 

<145> 

<006> 

<208> 

<231  > 

<030> 

<042> 


<204  > 


<110> 


<  149> 


<  184> 


<206> 


<225> 


<  1 67  > 


<195> 


<135> 

7700  PRINT" {DOWN, SPACE JDESHALB  MUESSEN  SIE 

LEIDER  AUFGEBEN."  <096> 

7705  PR I NT " {3D0WN , YELLOW , SPACE IMQECHTEN  SI 

E  ES  NOCH  EINMAL  PROBIEREN  ?"  <068> 

7710  GET  I*:IF  I*="J“THEN  RUN  5  <238> 

7715  IF  It< >"N"THEN  7710  <154> 

7720  END  < 102> 

7799  REM  *»**  GEWONNEN  ****  <0B2> 

7800  PRINT" {CLR, YELLOW, DOWN, BSPACE >.. .  UND 
{2SPACE>DER{2SPACE>"H*(5> ”  . . . “ : FOR  I 

=1  TO  1500: NEXT  <112> 

7805  PRINT" {UP, 9SPACEJ. . .  VERWANDELT {2SPAC 

EJSICH  . . . " : FOR  1=1  TO  1500:NEXT  <074> 

7810  PRINT" {UP .  IN  EINE  WUNDERSCHOENE  P 

RINZESSIN  . . . " : FOR  1=1  TO  2000: NEXT  <236> 
7815  PR I NT " {CLR , 5D0WN } " : GOTO  7840  <195> 

7820  POKE  VI -*-21 ,0:  PR  INT"  {CLR,  YELLOW,  6D0WN, 
4SPACE>SIE  HABEN  DEN  ZAUBERER  BESIEGT 
! ! ! “ : GOTO  7840  <104> 

7830  PRINT" {CLR, YELLOW, 6D0WN,4SPACE>SIE  HA 

BEN  DEN  SCHATZ  GEFUNDEN  !!!"  <016> 

7840  PRINT  SPC  < 1 3 ) " {2D0WN IGRATUL I ERE , " : PR I 
NT" {D0WN,5SPACE!SIE  HABEN  IHR  ZIEL  ER 
REICHT  !!"  < 142> 

7850  PR INT" {3D0WN , 6SPACE IWOLLEN  SIE  WEITER 

SPIELEN  ?■"  <  19B> 

7860  GET  I*:IF  I*="J”THEN  RUN  5  <132> 

7870  IF  I*<>"N"THEN  7860  <229> 

7880  END  <  006  > 

8000  DATA  OEFFNE,BDJPRU, FANGE, EMO, KUESSE, E 

MNOU , N I MM , ABCDEF GH  I J KLQRU  <201> 

8005  DATA  WIRF, ABCDEFGHI JKL , LIES, DIS, BERUE 

HRE,PQTU, TOETE, EMNO  <006> 

8010  DATA  ZERSTOERE, ABF'QRT, WERFE, LESE, KLOP 

FE, ERSCHLAGE, ZERBRECHE  <166> 

8015  DATA  GLASKUGEL,KAEF IG, AMULETT, BUCH, FR 

OSCH , HELM , KEULE , SCHWERT , ZETTEL , BALL  <092  > 

DATA  SCHLUESSEL , KETTENHEMD , MONSTER , ZA 
UBERER , GE I ST , TUER , SPIEGEL , SCHRANK  <042> 

8025  DATA  SCHRIFT , WAND , QUADRAT  <14B> 

8030  DATA  S, 03, S-O, 0503, W-O, 0204, W-H, 031 1 , 

N-S, 0208,0, 07, S-W, 1006, N-O, 0509  <063> 

8035  DATA  S-W-O-R, 13081018, N-W, 0709, R, 04, W 

-0, 001 3, N-W-O, 09 121 4, W-O, 1300, 0,1 6  <138> 

8040  DATA  W-O— H ,151713, N— W , 1916,H ,09 , S, 17  <147> 

8045  DATA  20,20,20,20,18,2,21,21,21,21,6,5  <191> 
8050  DATA  SILBER, BLUME, GOLD, RING, KUPFER, HO 

RN, PLATIN, STERN  <026> 

8054  REM  SPRITE  1  -  GEIST  <103> 

8055  DATA  0,127,0,0,255,192,1,206,96,3,255 

,240,1,255,240,1,245,248,1,255,248  <204> 

8060  DATA  3,255,248,7,255,248,15,255,252,3 

1,255,254,3,255,240,3,255,224  <173> 

B065  DATA  3,255,224,7,255,224,7,255,224,7, 

255,240, 15,255,240, 15, 255, 24B  <105> 

8070  DATA  31,255,252,59,187,110  <043> 

8074  REM  SPRITE  2  -  MONSTER  <21 4> 

8075  DATA  12,0,48,30,0,120,3,0,192,1,129,1 

28,3,195,192,15,231,240,62,126,124  <031 > 

8080  DATA  124,60,62,248,60,31,254,126,127, 

255,255,255,127,255,254,127,255,254  <034> 

8085  DATA  63,90,252,30,165,120,31,255,248, 

7,255,224,4,126,32,4,60,32  <195> 

8090  DATA  31,0,248,42,129,84  <152> 

8094  REM  SPRITE  3  -  ZAUBERER  <197> 

8095  DATA  0,15,224,0,63,128,0,127,128,0,21 

9,0,1,255,0,3,255,120,31,255,240  <175> 

8100  DATA  127,255,252,127,255,252,111,255, 
236,111,255,236,103,255,204,98,170,14 
0  <252> 

8105  DATA  99,255,140,71,255,196,7,199,192, 

15,131,224,15,1,224,14,0,224  <202> 

8110  DATA  28,0,112,60,0,120  <212> 

8200  REM  <039> 

8201  REM  *#****#*###*#■****#**##  <161> 

8202  REM  *  CASTLE  OF  DOOM  *  <007> 

8203  REM  *  VON  B.  WEISSBECKER  *  <102> 

8204  REM  *  MAERZ/APRIL  1984  *  <139> 

B205  REM  *»*»**»*»******»•»**■*■**  <165> 

0  64'er 


Listing  Castle  of  Doom.  (Schluß) 


C  64 


Spiel 


APOCALYPSE 

NOW 

Im  Universum  versteckt  sich  die  inter¬ 
planetarische  Spinne  Plexar.  Sie  kön¬ 
nen  eine  Katastrophe  abwenden, 
wenn  Sie  den  Weltraum  von  dem 
schrecklichen  Ungeheuer  befreien. 

Bevor  Sie  mit  dem  apokalyptischen  Kampf  gegen  die  inter¬ 
planetarische  Spinne  beginnen,  müssen  Sie  auftanken.  Doch 
nach  30  Energieeinheiten  beginnt  ein  feindlicher  Hubschrau¬ 
ber  auf  Sie  zu  schießen.  Ist  dieses  Hindernis  hinter  Ihnen,  geht 
es  links  weiter.  Im  oberen  Eck  erscheint  ein  Tunnel,  den  Sie 
durchfliegen.  Dabei  müssen  Sie  eine  Lasersperre  überwinden 
oder  einen  Mann  retten.  Dieser  sollte  bei  der  Aktion  möglichst 
weit  links  stehen.  Haben  Sie  diese  Hürde  überwunden, 


schließt  sich  hinter  Ihnen  eine  Mauer.  Durch  diese  müssen  Sie 
sich  links  unten  durchschießen.  Auf  dem  nächsten  Bild  gilt  es, 
eine  Barrikade  zu  durchschießen,  die  aber  mit  Vorsicht  zu  ge¬ 
nießen  ist.  Die  nachfolgenden  Panzer  können  Sie  nur  abschie¬ 
ßen,  wenn  Sie  beide  zugleich  treffen. 

Dann  kommen  Sie  zu  der  Spinne  Plexar.  Achten  Sie  vor  allem 
auf  die  Lasersperren.  Wenn  Sie  nun  die  Spinne  vernichtet  ha¬ 
ben,  fliegen  Sie  zurück,  aber  achten  Sie  darauf,  daß  Sie  mög¬ 
lichst  hoch  in  den  nächsten  Bildschirm  fliegen. 

Zum  guten  Schluß  können  Sie  auf  dem  Energielager  landen 
und  sich  von  den  Strapazen  erholen,  oder  Sie  spielen  weiter. 
Das  hat  aber  nur  Sinn,  wenn  Sie  noch  zwei  Leben  haben. 

(Helmut  Burgemeister/Helmut  Bölcskei/tr) 


Die  wichtigsten  Variablen: 

X  und  Y  für  Hubschrauber 

XI  bis  X7  und  Y1  bis  Y7  für  andere  Sprites 
HU  =  feindliche  Hubschrauberzahl 

LD  =  Plexar  abgeschossen? 

A  =  Hubschrauberstellung 
E  =  Schußvariable 


2  REM  ++APOCALYPSE+NOW++ 

3  REM  ++++++++++++++++++***»*#** 

4  REM  *  BY  HELMUT  BURBEME I STER  * 

5  REM  *  AND  HELMUT  BOELCSKEI  * 

6  REM  ********»*****•**•»•*■»***###* 

7  REM  ttTTTTtTttTTTTTTtTTTttttTTt 
B  REM  t  MASCHINEN  PROGRAMM  T 

9  REM  ttTTttTTtTTTttttTTTTTTTTTTT 

10  PRINT" <CLR,6D0WN>BITTE  WARTEN  !" 

20  POKE  532B1 ,0 

30  POKE  53280,0 

40  FOR  1=832  TO  832+33:READ  A:POKE  I,A:NEX 
T 


50  DATA  120 , 169,51 , 133, 1 , 169,0, 133,95, 133, 
90,133,88,169,208, 133,96,169,240 
60  DATA  133,89,169,224,133,91,32,191,163,1 
69,55,133,1,88,96 
80  SYS  B32: POKE  850, 160: SYS  B32 

101  REM  «-  DATEN  FUER  NEUE  ZEICHEN  + 

102  REM  *-++++•++++++++++++.-+++*-+++++ 

130  POKE  56576, PEEK (56576) AND  252 
135  POKE  53272,8: POKE  648,192 

140  PRINT" <CLR,6D0WNJBITTE  WARTEN  !" 

150  FOR  1=280  TO  559: READ  ArPOKE  57344+ I,A 
:  NEXT 


210 

220 

230 

240 

245 

250 

255 

260 

265 

270 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 


DATA  255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 

DAT«  0,0,0,37,205,255,200,255 

DATA  0,0,0,0,0,255,255,255 

DATA  137,66,36,24,153,36,66,137 

DATA  255,  129,  129,255,  129,129,255,255 

DATA  3,13,49,193,193,49,13,3 

DATA  0,96,252,255,252,96,0,0 

DATA  60,60,60,24,24,0,0,0 

DATA  255 ,  1 26 , 255 , 1 26 , 255 , 1 26 , 255 ,  1 26 

DATA  0,0,0,255,255,255,0,0 

DATA  24, 60, 24, 63, 88, BB, 36, 66 

DATA  25,61,25,62,88,88,36,66 

DATA  0,0,60,32,60,32,32,32 

DATA  0,0,68,68,68,68,68,124 

DATA  0,0,124,64,124,64,64,124 

DATA  0,0,32,32,32,32,32,60 

DATA  126,255,255,231,231,255, 255 , 1 26 

DATA  0,0, 0,0, 8, 5, 3, 7 

DATA  0,0,0,0,12,62,127,255 

DATA  0,0,6,31,127,255,255,255 

DATA  0,0,0,192,231,239,255,255 

DATA  0,0,56,252,252,254,255,255 

DATA  255,127,127,63,31,12,0,0 

DATA  255,255,254,152,0,0,0,0 

DATA  255,191,31,15,3,1,0,0 

DATA  255,255,255,248,248,224,0,0 

DATA  0,0,36,24,24,36,0,0 

DATA  65,39,18,207,63,191,127,255 

DATA  1 60 , 68 ,  B8 , 225 , 250 , 252 , 254 , 255 


<B66> 
<175> 
<065> 
<025> 
<228 > 
<046> 
<216> 
<008> 
<218> 
<064> 
<198> 
<080> 

<  174> 


<  104> 

<  1 33> 

<  141  > 

<  106> 
<110> 

<  10B> 
<129> 

<  165> 
<194> 

<095> 
<036> 
<0307 
<008> 
<065> 
<225> 
<101> 
<216> 
<1B5> 
<085  > 
<126> 
<112> 
<233> 

<  152> 
<030> 
<096> 
<007  > 
<065> 
<0B5> 
<200> 
<031  > 
<081  > 
<079> 
<070> 
<175> 
<174> 
<255> 
<026> 
<079> 
<059> 


370  DATA  255,255,255,255,255,255,255,255  <198> 


375  DATA  255,255,243,195,195,192,0,0  <175> 

380  DATA  0,0,35,254,35,0,0,0  <042> 

385  DATA  4 , 4 , 1 1 , 48 , 4B,64 , 0, 0  <058> 

390  DATA  0,0,196,127,196,0,0,0  <205> 

395  DATA  0,32,32,208,12,12,2,0  <117> 

400  REM  +++++++++++++++++  <033> 

401  REM  +  SPRITES  DATEN  +  <047> 

402  REM  +++++++++++++++++  <035> 

500  FQr-  7=50304  TO  50304+62:  READ  A:POKE  I, 

A: NEXT  <101> 

505  FOR  1=50368  TO  50368+62: READ  A:POKE  I, 

A: NEXT  <251 > 

510  FOR  1=50432  TO  50432+62: READ  A:POKE  I, 

A: NEXT  <206> 

511  FOR  1=50496  TO  50496+62: READ  A: POKE  I, 

A: NEXT  <097> 

512  FOR  1=50560  TO  50560+62: READ  A:POKE  I, 

A: NEXT  <049> 

513  FOR  1=50624  TO  50624+62: READ  A:POKE  I, 

A: NEXT  <216> 

514  FOR  1=50688  TO  50688+62: READ  A: POKE  I, 

A: NEXT  <107> 

515  FOR  1=50752  TO  50752+62: READ  A:POKE  I, 

A: NEXT  <057> 

517  PRINT" CDOWN , 3SPACE , BLUE , SPACE > APOCALYP 

SE  NOW  "  < 151 > 


5 1 B  PRINT" C2D0WN . 2SPACE , YELLOW  >BY tSPAHF , BR 
EEN  JHELMUT  < SPACE , C Y AN  5BURGEME I STER  <L I G 
. BLUE, DOWN, 13LEFT.D0WN5AND  HELMUT  BOEL 
CSKE I T2SPACE > "  <  064  > 

519  DATA  0,0,0  < 133> 

520  DATA  0,0,0,255,255,255,0,48,0,3,255,19 

3,4,32,97,8,32,55,16,42,153  <157> 

525  DATA  96,34 , 1 , 128,79, 131 , 12B, 66, 6, 128, 1 

38, 152,255,128,96,64,64,128  <132> 

530  DATA  32,33,0,16,33,0,143,254,0,129,2,0 

,127,255,248,0,0,0,0,0,0  <191> 

540  DATA  0,0,0,0,0,0,31,255,240,0,40,0,0,1 

6,0,0,104,0,0,132,0  < 1 1 1 > 

545  DATA  1,2,0,6,249,128,4,252,128,11,254, 

64,9,252,64,4,0,128,3,3,0,0,252,0  <224> 

550  DATA  1,50,0,2,1,0,4,0,128,28,0,224,0,0 


,0,0, 0,0  < 19B> 

560  DATA  0,0,0,0,0,0,255,255,255,0,12,0,13 

1,255,112,135,4,32  <239> 

565  DATA  252,4,16,153,68,8,128,68,6,193,24 

2,1,96,66,1,24,65,1,6,1,255,1,2,2,0  <016> 

570  DATA  132,4,0,132,8,0,127,241,0,64,129, 

31,255,254,0,0,0,0,0,0  <163> 

580  DATA  0,0,240,0,15,1,0,240,193,15,111,1 

03 , 240 , 240 ,65,3,32,145,4,42,3  <  243> 


Listing  »APOCALYPSE  NOW«. 

Beachten  Sie  die  Eingabehinweise  auf  Seite  16. 


14.1 


Spiel 


C  64 


585  DATA  B,  34 , 1 34 ,0 , 47 , 8 , 16 ,66,  144 , 96 ,82 ,9 

6,128, 128,128,128, 129,0, 143,65,0  <0B3> 

590  DATA  240,33,0,64,46,8,32,242,240,31,15 

,0, 129,240,0,143,0,0,112,0,0  <044> 

600  DATA  15,0,0,128,240,0,131,15,0,230,252 
,240, 156,240,15,137,4, 192, 192, B4, 32 
605  DATA  97,68,16,16,244,0,9,66,8,6,82,6,1 
,1,1,0,129,1,0,130,241,0,132,15 
610  DATA  16,116,2,15,143,4,0,240,248,0,15, 
129,0,0,241 ,0,0,14 

620  DATA  0,0,0,0,0,0,0,3,0,0,15,0,0,63,0,0 
,240,0,0,192,0,0,20,0,0,20,0,0,40,0 
625  DATA  0,40,0 

0,0,20,0,0,95,0,0,170,0,3,255, 192 
630  DATA  13,95,112,3,255,192 
640  DATA  0,0,0,0,0,0,0,192,0,0,240,0,0,63, 
0,0,15,0,0,3,0,0,20,0,0,20,0,0,40,0 
ö45  DATA  0,40,0,0,20,0,0,20,0,0,40,0,0,40, 
0,0,20,0,0,95,0,0,170,0,3,255,192 
650  DATA  13,95,112,3,255,192 
660  DATA  128,0,1,71,255,242,36,0,4,16,255, 
12,25,0,148,38,0,100,2,0,68,69,36,196 
665  DATA  69 , 153 , 68 , 124 , 126 , 1 25 , 68 , 60 ,6B , 68 
,90,68,68,129,68,67,0,196,66, 255 , 68 , 6B 
670  DATA  20,36,40,34,20,16,65,24,47,255,22 
8,64,0,2,128,0,1 

700  REM  TtTTTTTfttTTtfTTf TTTtTTTttTTT 

701  REM  T  I NET I AL I S I ERUNG  VARIABLEN  T 

702  REM  ttttttttttttf ttttf Ttf Tttf tttt 

997  GOSUB  62130: POKE  50169,22: POKE  5016B,1 
8 

998  V=53248: POKE  V+2 1,1: POKE  V+42,14 

999  X=250:Y=94: GOSUB  50000 

1000  X=250: Y=94: A=1 : OT=l : V=53248: POKE  5016 
8,18: GOSUB  63000 : 0=PEEK  <  V+3 1 ) : AB=AC 

1001  POKE  V+21 , 1 : POKE  V+29,3:P0KE  V+39,3:B 
=  1 :  PRINT"  CCLRI"  :  0=13:  X2=0:  Y2=90:  B2=4: 

C2=3 

1002  GOSUB  60100: POKE  V+2 1,1 

1003  H=32:EN=10: PU= . 05 : B9=0 : HU=0 

1004  POKE  V+2, X2: POKE  V+3,Y2:HB=4 

1005  POKE  V+28 ,12: POKE  V+37,2:P0KE  V+3B,5 

1006  POKE  50170, 23:P0KE  50171,24 
1009  POKE  SI+11,65: JS=PEEK < V+30) :0=PEEK<V+ 


31)  <001> 

1010  REM  HAUPTPROGRAMM  <037> 

1011  J=PEEK (56320) :JS=PEEK( V+30)  <076> 

1020  IF (J  AND  4>=0  THEN  X=X-5:A=A-1  <071 > 

1030  IF ( J  AND  B>=0  THEN  X=X+5:A=A+1  <004> 

1040  IF(J  AND  1)=0  THEN  Y=Y-5  <0B4> 

1050  IF ( J  AND  2) =0  THEN  Y=Y+5  <094> 

1055  IF  A>3  THEN  A=3  <129> 

1056  IF  A< 1  THEN  A=1  <15B> 

1059  IF  Y<85  THEN  Y=B5  <204> 

1060  ON  A  GOSUB  2000,2010,2020  <032> 

1065  Y=Y+AB  <134 > 

1070  POKE  V , X : POKE  V+1,Y  <209> 

10B0  IF ( J  AND  16>=0  THEN  GOSUB  2050  <046> 


: RETURN 

2060  IF  A=1  THEN  GOSUB  3000 
2070  IF  A=2  THEN  GOSUB  3030 

2079  IF (J  AND  8)=0  AND  A=3  THEN  GOSUB  3400 
: RETURN 

2080  IF  A=3  THEN  GOSUB  3060 
2090  RETURN 

3000  Xl=INT(X/B-4> :Yl=INT(Y/8-5) 

3005  FOR  E=X  1  TO  0  STEP-1:  GOSUB  61400 

3006  PO=PEEK(49152+E+40*Y1) : POKE  49152+E+4 
0*Y1 , 66: POKE  49152+E+40*Y1 ,PO 

3007  IF  PEEK (49152+E— 1+40* Y IX  >32  THEN  S=- 
1 : GOTO  3100 

3010  NEXT  E: RETURN 

3030  X 1=1 NT ( X/8) : Y 1=1 NT ( Y/B— 3) 

3033  FOR  E=Y1  TO  25  STEP  1 : GOSUB  61400 
3040  PO=PEEK(49152+X1+40*E) :POKE  49152+X1+ 
40*E , 42 : POKE  49152+X1+40*E,PO 
3045  IF  PEEK (49152+X l+40*E+40>  <  >32  THEN  31 
10 

3050  NEXT  E: RETURN 

3060  X1=INT ( X/8+4) : Y 1=1 NT (Y/8— 5) 

3070  FOR  E=X 1  TO  39  STEP  1 : GOSUB  61400 
3075  PO=PEEK ( 491 52+E+40*Yl >: POKE  49152+E+4 
0*Y1 ,68: POKE  49152+E+40*Y1 ,PO 
3077  IF  PEEK <49152+E+1+40*Y1) 032  THEN  S=1 
: GOTO  3100 
3080  NEXT  E: RETURN 

3098  REM  +  AUFPRALL  VON  SCHUSS  + 

3100  POKE  SI+10,3: GOSUB  60700: IF  PEEK (4915 
2+E+S+40*Y 1 ) <  >5 1  THEN  3150 

3102  POKE  491 52+E+S+40*Y 1 , 38 : FOR  T=0  TO  10 
0: NEXT : POKE  49152+E+S+40*Y1 ,32: E=0 

3103  SC=SC+6: GOSUB  61200: RETURN 

3110  POKE  SI+10,3: GOSUB  60700: IF  PEEK(4915 
2+X 1 +40*E+40 ) <  >5 1  THEN  3170 

3111  POKE  49 1 52+X 1 +40*E+40 , 38 


3165  RETURN 
3170  PO=PEEK (49152+X l+40*E+40) : POKE  49152+ 
X 1 +40*E+40 , 38 

3180  FOR  T=0  TO  100: NEXT: POKE  49152+X1+40* 
E+40 , PO : E=0 : RETURN 

3197  REM  ttttttttttttttttttttTTTTTT 

3198  REM  t  KOLLISION  HUBSCHRAUBER  t 

3199  REM  ttTTTttttttttTtTTtttttttTt 

3200  GOSUB  60200: POKE  SI+18,0:POKE  V+2,0:X 
2=0 : Y2= I NT ( RND ( 1 ) *50 ) +90 : HB=HB~ 1 

3201  POKE  V+3, Y2: 0=PEEK (V+31 ) : JS=PEEK (V+30 
) 


<  157> 

<  125> 

<  107> 
<095> 

0,20,0,0,20,0,0,40,0,0,40, 

<016> 

<  145> 

<0B4> 

<036> 

<  165> 

<027> 

<202> 

<234> 
<087> 
<061  > 
<0B9> 

<009> 

<  103> 
<033> 

<  140> 


<024> 
<039> 
<156> 
<04B> 
<221  > 
<022> 


3112  FOR  T=0  TO  1 10: NEXT: POKE  49152+X1+40* 
E+40 , 32 : E=0 : SC=SC+B : GOSUB  6 1 200 : RETUR 
N 

3150  PO=PEEK  (491 52+E+S+40* Y 1 )  :  F'QKE  49152+E 
+S+40*Y1 ,38 

3160  FOR  T=0  TO  100: NEXT: POKE  49152+E+S+40 
*Y1 , PO: E=0 


<236> 

<040> 

<094> 

<067> 
<056> 
<  1 16> 
<023> 

<094> 

<031  > 

<007> 

<  12B> 
<123> 

<  171  > 


<083> 

<063> 

<  16B> 
<079> 

<  1B5> 

<231  > 

<221  > 
<200> 

<  183> 
<141> 

<  1 85> 

<123> 


<  168> 
<189> 

<095> 

<083> 


<007> 

<  170> 

<20B> 

<  175> 

<  177> 

<216> 

<  155> 
<023> 

<  157> 

<028> 

<103> 


1B9B  O-PEEK  <  V+3 1  )  i  IF  O-  1  THEN  3200 

1098  IF  X >250  THEN  B=B-1 : X=250: BI=0: HU=0: B 
9=0: POKE  V+21 , 1 : IF  B< 1  THEN  B=1 

1099  IF  X<5  THEN  B=B+1 : X=5: BI=0 

1100  ON  B  GOSUB  4500,5000,5500,6000 
1110  POKE  49152+EN+40*3,H:EN=EN-PU:H=32 

1888  IF  EN>10  THEN  1010 

1889  GOSUB  6 1000: GOSUB  60900 

1890  IF  EN<  =0  THEN  EN=0: AB=4: POKE  SI+7,100 
: GOTO  1065 

1900  GOTO  1010 

1997  REM  TTTTTf fttTtf ttf Ttf TTTTTf TTTttf 

1998  REM  tBEWEGUNGSR I CHTUNG  VON  SPRITET 

1999  REM  TtTTtTTttTTTf tttttTTf TttTttTtt 

2000  IF (J  AND  4) =0  THEN  POKE  501 68 , 21 : POKE 

S 1+7, 255: RETURN 

2001  POKE  50168, 1B:P0KE  SI+7,200 

2009  RETURN 

2010  POKE  50168,19 

2019  RETURN 

2020  IF (J  AND  8) =0  THEN  POKE  50168 ,22: POKE 

S 1+7, 255: RETURN 

2021  POKE  50 168, 20: POKE  SI+7,200 
2029  RETURN 

2050  REM  +  SCHUSS  ROUTINE  + 

2051  REM  ++++++++++++++++++ 

2059  IF (J  AND  4)=0  AND  A=1  THEN  GOSUB  3300 


<  127> 

<07B> 
<006> 
<061  > 
<251  > 

<  153> 
<230> 

<  16B> 
<094  > 

<20B> 

<  030  > 
<210> 

<200> 
<092> 
<033> 
<051  > 
<043> 

<229> 

<082> 

<053> 

<050> 

<186> 

<052> 


3202  FOR  T-0  TO  1 00a P- INT (RND ( 1 >» 1 5> s POKE 


V+39 , P: NEXT : POKE  V+39,3  <037> 

3203  IF  HB<=0  THEN  POKE  V+21 , 0: PRINT" <HOME 
,8D0WN, 12RIGHT1G  A  M  E<2SPACE>0  V  E  R 
" : GOTO  8000  <027> 

3210  X=250: Y=94 : POKE  V,X:P0KE  V+1,Y:0=PEEK 

(V+31>: GOSUB  60300: GOTO  1009  <133> 

3300  X 1=INT ( X/8-4) : Y1=INT ( Y/8-5)  <069> 

3310  FOR  E=X 1  TO  0  STEP-1:G0SUB  61400  <145> 

3315  Y 1 =Y 1 + . 5  < 136> 

3316  IF  Yl>=24  THEN  Yl=24: RETURN  <172> 

3319  PO=PEEK ( 49 1 52+E+40* I NT (Yl))  <192> 

3320  POKE  49152+E+40*INT (Yl ) ,67  <207> 

3321  POKE  49152+E+40*INT(Y1) ,P0  <117> 

3330  IF  PEEK (49152+E— 1+40* INT (Yl ) ) < >32  THE 

N  S=-l : GOTO  3100  <249> 

3340  NEXT  E: RETURN  <206> 

3400  X1=INT (X/B+4) : Y1=INT (Y/8— 5)  <167> 

3410  FOR  E=X1  TO  39  STEP  1:G0SUB  61400  <017> 

3415  Y1=Y1+. 5  <238> 

3416  IF  Y 1 >=24  THEN  Y1=24:RETURN  <018> 

3419  PO=PEEK (49152+E+40*INT (Yl) )  <03B> 

3420  POKE  49152+E+40*INT (Yl) ,69  <118> 

3421  POKE  49152+E+40*INT ( Yl ) ,P0  <219> 

3430  IF  PEEK (491 52+E+ 1+40* INT (Yl ) ) <  >32  THE 

N  S=1 : GOTO  3100  <050> 

3440  NEXT  E: RETURN  <050> 

3997  REM  +*-++++++++++++++++++++++  <231> 
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399B  REM  «-BILD  TANKEN  AUFBAUEN  +  <099> 

3999  REM  <233> 

4000  GDSUB  60500: X2=0s Y2=90| POKE  V+2,X2:P0 

KE  V+3.Y2  <206> 

4001  X=250: Y=94: BI  =  1  <177> 

4002  TR=49152: C=40: GOSUB  4530  <020> 

4009  REM  ttttttttttttTTtTTTTtTTTTTTTt  <047> 

4010  REM  T  BILDSCHIRM ABFRAGE  TANKEN  t  <123> 

4011  REM  TTTTttTTTttttttTttttTttttttt  <049> 

4500  IF  BI=0  THEN  4000  <14B> 

4501  IF  B9=0  THEN: IF  EN >30  AND  Hü<5  THEN  B 

9=1 : POKE  V+21,3:G0SUB  61570: X3=20  <116> 

4502  ON  B9  GOSUB  61300  <204> 

4503  IF  Y<=175  AND  KL=0  THEN  RETURN  <173> 

4504  IF  X>140  AND  X<175  AND  KL=0  THEN  KL=1 

: GOSUB  4511: IF  LD=1  THEN  GOTO  62000  <192> 

4505  PU=. 05: IF  Y>214  AND  KL=1  THEN  H=160:O 

T=l: AB=AC:PU=-1: GOSUB  60B00  <107> 

4506  IF  Y>218  AND  KL=1  THEN  Y=Y-AB-1  <229> 

4507  IF  Y<=170  AND  KL=1  THEN  KL=0: GOSUB  45 

30: RETURN  <142> 

450B  IF  Y>214  AND  KL=1  AND  EN >=35  THEN  EN= 

35 : H=32 : POKE  SI+1B,0  <150> 

4509  IF  Y<=214  AND  KL=1  THEN  POKE  81+18, 0  <191> 

4510  RETURN  <250> 

4511  FOR  T=1B  TO  23  <17B> 

4512  FOR  1=15  TO  24  <156> 

4515  POKE  TR+I+40*T,32  <130> 

4520  NEXT : NEXT  <205> 

4521  PRINT" (HOME, 22D0WN>"  <229> 

4522  PR I NT " {RED , 1 0SPACE , WH I TE  >  > {RED  }#### {B 
LUE ,  SPACE  >  b'0'0'0'0'0'00'  {SPACE  ,  RED  }####  {WH  I 

TE>?  < 141 > 

4523  PRINT"  {RED1**********###*#{GREEN,2SPA 
CE  >TT{2SPACE>,nr{2SPACE  ,  RED  }#####***** 

«« {HOME, L IG. BLUE >  <246> 

4529  RETURN  <013> 

4530  PR I NT " {HOME , 1 7D0WN > "  < 034  > 

4531  PR  I  NT  "{ 1 5SPACE ,  WH  I  TE  17.7.7.7.7.7.7.7.X7.  <  1 34  > 

4532  PR I NT "{ 1 4SP ACE , WH I TE  >  >### {RED  > /0 1 2 {WH 

ITE1###?  <  229 > 

4533  PRINT" {13SPACE,WHITE>>{RED>#{GREEN>- ' 

. {RED 1# {WH I TE  >?  < 130 > 

4534  PR I NT "{ 1 2SPACE , WH I TE  >  > {RED  >## {GREEN  > ’ 

. {RED1##{WHITE1?  <220> 

4536  PRINT" Ul SPACE , WH I TE > > {RED >### {GREEN > 

. <RED1###{WHITE1?  <141> 

4537  PRINT“ { 1 0SP ACE , WH I TE > > {RED }#### {GREEN 

> . {RED  >####  {WH  I  TE  >?  <224> 

4538  PR INT “(RED }**********##### {GREEN >' ’ • ' 

. {RED>#####********* {HOME , LIG. BL 

UE1  < 169> 

4560  KL=0: RETURN  <135> 

4997  REM  <215> 

4998  REM  +  BILD  TUNNEL  AUFBAUEN  +  <0B3> 

4999  REM  +++++++++++++++++++-+++++  <217> 

5000  IF  BI=0  THEN  H=32:G0T0  5010  <139> 

5005  GOTO  5300  <199> 

5010  GOSUB  60500: TI*="000000"  <026> 

5011  X=!5Bt  V-94»  BI  - 1 1  PX-45i  PV--16  <013> 

5019  PRINT" {HOME, 3D0WN,RED>"  <1B3> 

5020  PR I NT " {4SPACE >  >6677656756567756765667 

878776767657  <055> 

5030  FOR  T=0  TO  3: PRINT" {4SPACE> <) ": NEXT  <066> 
5035  PRINT" {4SPACE1 ( > {8SPACE167B68768B7678 

76B6767B7B67  <137> 

5040  FOR  T=0  TO  2: PRINT” {RED,4SPACE> ( ) {27S 

PACE, BLUE >++": NEXT  <052> 

5045  PRINT " {WH I TE , SPACE >  < 67B67BB7876767676 

66B7B7 {BSPACE , BLUE  >++  <064> 

5050  PRINT" {WHITE, SPACE! <9: {YELLOW!) )>)))> 

))>))))))) {WHITE19; 9: {BSPACE, BLUE!++”  <222> 
5085  PRINT" {WHITE, SPACE !<{10SPACE, PURPLE ! 3 

33 {BSPACE 13 {9SPACE, BLUE !++  <003> 

5090  PR I NT " {WH I TE , SPACE 1 ( <1 1 SPACE , PURPLE 13 

{9SPACE 13 {9SPACE , BLUE 1++  <010> 

5095  PR I NT “ {WH I TE , SP ACE 1 ( {2 1 SPACE , PURPLE 13 

{9SPACE ,BLUE1++  <1B6> 

5096  PRINT" {WHITE, SPACE! ( {9SPACE , PURPLE133 

333 {7SPACE , PURPLE 13 {9SPACE , BLUE 1++  <  078  > 

5100  PRINT" {WH I TE , SPACE 1788 {CYAN 13333333 {W 

H I TE 1BB878787B7B787 {8SPACE ,BLUE1++  <101> 
5110  PRINT" {WHITE, SPACE1; :9{CYAN13333333{W 

HITE1; :9:9:;9:9:;9; {8SPACE,BLUE1++  <215> 
5120  PR I NT "{ 1 2SPACE , L I G . BLUE , 3SPACE IMflU  6S 

PACE , BLUE 1++  < 164> 


5125  PR I NT "{ 1 2SPACE , L I G . BLUE , 2SPACE 1 Ü{2SPA 

CE  >fl{ 1 5SPACE , BLUE 1++  <169> 

5130  PR INT "{ 1 2SPACE , L I B . BLUE , SPACE 1H14SPAC 

Elfl{14SPACE,BLUEl++  <174> 

5135  PRINT"  {RED}*********«*  {LIG.  BLUE  1# {RE 
Dl*«***  {LIG.  BLUE  1#  {RED  1  ************ 
{BLUE1++ {LIG. BLUE, HOME!  <009> 

5297  REM  ++++++++++++++++++++++++++++  <069> 

5298  REM  +  BILDSCHIRMABFRAGE  TUNNEL  +  <.091  > 

5299  REM  ++++++++++++++++++++++++++++  <071 > 

5300  POKE  TR+Q+C*17,PX  <250> 

5320  POKE  TR+Q+C*17 ,PY: IF  Y<170  THEN  RETUR 

N  < 16B> 

5340  GE=INT (RND(1)*15) : IF  GE>10  THEN  GOSUB 

60000  <035> 

5345  IF  X< 140  AND  X>120  AND  Y>174  AND  Y<17 
8  THEN  PX=32:PY=32: GOSUB  61 100: GOSUB 
61200  <201 > 

5350  IF  T I *> " 000005 "THEN  GOSUB  60070  <251 > 

5407  IF  Y<=214  THEN  POKE  SI+18,0  <07B> 

5410  RETURN  <134> 

5497  REM  ttttttttttttttttttf Ttf TTttttT T  <152> 

5498  REM  t  BILDSCHIRM  PANZER  AUFBAUEN  T  <140> 

5499  REM  tttf tttf tTtTTTttf tf tf ttf TTTtTT  <154> 

5500  IF  BI=0  THEN  H=32:G0T0  5510  <005> 

5505  GOTO  5700  <255> 

5510  GOSUB  60500  <100> 

5520  X=250: Y=94: BI=1 : B5=— 2: POKE  V+5,223:P0 

KE  V+7, 223 :X5=50:X6= 120: POKE  V+21,13  <134> 

5521  POKE  V+4, X5: POKE  V+6,X6: GOSUB  5800  <176> 

5530  PR I NT " {HOME , 3D0WN , BLUE 1 " : B6=2 : Y7=20 : G 

9=1  <006> 

5540  PR I NT " 76787B787B7B7B6B6B8878687B6B7B6 

87868786"  <056> 

5545  PRINT":;:;: ; 9: 5 9; 9: 9: ; 9: ; 9L19SPACE1"  <251 > 

5547  PRINT"+) {16SPACE1 (+“  <228> 

5550  FOR  T=0  TO  2: PRINT"+) {16SPACE1 (+{CYAN 

1333333 {BLUE! ": NEXT  <031> 

5555  PRINT “+) {8SPACE1+{7SPACEJ (+{CYAN13333 

33333 {BLUE 17786876787"  <221 > 

5560  T=0  TO  3: PRINT" {CYAN, SPACE13 {BLUE 

, 86PACE 1+ {7SPACE 1 ( + {CYAN 1 333333333 {BL 
UE1+) " : NEXT  <138> 

5565  FOR  T=0  TO  5: PRINT" {BLUE1+) {BSPACE, BL 
UE 1+ {7SPACE , CYAN 1333 {2SPACE1333333 {BL 
UE1+) " : NEXT  <030> 

5570  FOR  T=0  TO  2: PRINT" {RED, 18SPACE1 (+{CY 

AN1333333333{RED1+) “:NEXT  <089> 

5575  PRINT" {GREEN}************************ 

*************** {LIG. BLUE , HOME! "  < 1 44  > 

5697  REM  ++++++++++++++++++++++++++++  <217> 

5698  REM  +  BILDSCHIRM ABFRAGE  PANZER  +  <142> 

5699  REM  ++++++++++++++++++++++++++++  <219> 

5700  IF  X>168  THEN  RETURN  <014> 

5710  IF  X5>138  THEN  B5=3:P0KE  50170,24  <059> 

5715  IF  X5<30  THEN  B5=-2:P0KE  50170,23  <200> 

5720  IF  X6>138  THEN  B6=2:P0KE  50171,24  <077> 

5730  IF  X6< 30  THEN  B6=-3:POKE  50171,23  <027> 

5740  X5=X5-B5: X6=X6— B6  <065> 

57=0  POKE  V+4, xa: POKE  V+6,X6  <175> 

5755  JS=PEEK ( V+30) : IF  JS=5  OR  JS=9  OR  JS=1 

3  THEN  3200  <202> 

5765  ON  G9  GOSUB  5820,5900  <U0> 

5770  RETURN  <240> 

5800  X7=INT ( X5/8— 1 )  :  Y7=21  <049> 

5810  RETURN  <024 > 

5811  X0=INT (X6/8— 1 ) c  Y8=21  <070> 

5815  RETURN  <029> 

5B20  Y7=Y7-1  <047> 

5835  PO=PEEK  (49152+X7+40*Y7— 40)  <UB> 

5840  POKE  49152+X7+40*Y7,90  <185> 

5850  IF  P0O32  THEN  POKE  49152+X7+40*Y7-40 

,PO: POKE  49152+X7+40*Y7,32: G9=2: GOSUB 
5811  <088> 

5860  POKE  49152+X7+40*Y7,32  <197> 

5870  RETURN  <084> 

5900  Y8=YB-1  <202> 

5920  PO=PEEK ( 49 1 52+X8+40* YB— 40 )  <250> 

5930  POKE  491 52+X8+40* Y8 , 90  <026> 

5940  IF  P0O32  THEN  POKE  49152+X8+40+Y8-40 
, PO : POKE  49152+X8+40*Y8,32:G9=1: GOSUB 
5800  < 163> 

5950  POKE  49152+X8+40*Y8,32  <038> 

5960  RETURN  <176> 

5997  REM  ttTtttTtTTTTtttt f TttTtTTTTTf tt  <144> 
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C  64 


5998  REM  t  BILDSCHIRM  SPINNE  AUFBAUEN  t 

5999  REM  f TtTTTTftTTTTtTf ttttttTTTf TTTT 

6000  IF  BI=0  THEN  H=32:G0TQ  6020 
6010  6DTQ  6300 

6020  GDSUB  60500: T I*=" 000000 ": V=53248: POKE 
50172, 25:P0KE  V+B,50:POKE  V+9,157 
6030  X=250: Y=1 10: BI=1 : PQKE  V+23,16:P0KE  V+ 
29, 19: POKE  V+21,17 

6040  PQKE  V , X : PQKE  V+l , Y: 0=PEEK ( V+31 > 

6050  PRINT" IHQME, 3DOWN , BLUE > " 

6060  PR  I  NT  "  C 1 2SPACE  ,  WH  I TE  J6787B7B67B6B7B6B 
76B7B677B67 

6070  PRINT" C12SPACE, WHITE J+; 9: ;9:9;9;9:95+ 
9:;:;fi;9::9 

6080  FQR  T=0  TQ  1 : PRINT" C12SPACE , BLUE J+) CI 
2SPACEX  +  "  :NEXT 

6090  FQR  T=0  TO  2: PRINT" <12SPACE>+> C15SPAC 
El" : NEXT 

6100  PRINT” CSPACE , WHITE J7676B7B7B68+ 

6110  PRINT"  CBLUEX+++++++++++C15SPACEJ  +  )  T 
ACHTUNG t 

6120  PR  I  NT  "  <  ++  {.7SPHCE  J++ 1  •£  1 3BPACE  X  +  > 

6130  PRINT"  (++  C72<PACEJ++<15SPACE  J+> 

6140  PRINT" (  +  CBSPACE „CYANT333CBLUE , 14SPACE 
J+) 

6150  PRINT"  <+ ÜBSPACE „GYAUJ333 {BLUE,  14SPACE 
J  +  > 

6160  PRINT"  (++  C7SPACEX+  C15SPACE>  +  ) 

6170  PR I NT " ( ++  C7SPACE  J++ ) C 1 3SPACE X  + ) 

61B0  PRINT" <+++++++++++7C14SPACE,BLUEJ+) 
6190  PRINT" CWH I TE, SPACE J: : ;9: ; :9;9:+C14SPA 
CE,BLUE>+> 

6200  PRINT" C12SPACE>+) C4SPACE, PURPLE J+ <  C7S 
FACEJ+) 

6210  PR I NT "< 1 2SPACE , BLUE  >+ > C4SPACE , PURPLE  J 


<  107> 
<146> 
<1BB> 
<196> 

<204> 

<222> 
<055> 
<201  > 

<041  > 

<006> 

<139> 

<  006  > 

<  104> 

<  163> 
<219> 
<002> 

<00B> 

<020> 

<034> 

<015> 

<119> 

<  196> 

<  14B> 
<099> 


6220  PR I NT " CI 2SPACE , BLUE >+ )  C4SPACE , PURPLE > 

+  <  C2SPACE , CY AN  J / 0 1 2  CSP ACE , PURPLE  J  +  >  <  2 1 1 > 

6230  PRINT"  CGREEN J************ CBLUEJ+CSREE 
N J$*S**  {PURPLE J+CGREENJ********  CPURPL 
EX CGREEN  J  **********  CL I G . BLUE , HOME  > "  < 204  > 

6297  REM  ++++++++++++++++++++++++++++  <053> 

6298  REM  +  BILDSCHIRMABFRAGE  SPINNE  +  <093> 

6299  REM  ++++++++++++++++++++++++++++  <055> 

6300  IF  TI*>" 000007 "THEN  GQSUB  6400  <147> 

6305  IF  TIS > " 0000 1 0 " THEN  GOSUB  6420  <216> 

6310  PU=. 05: IF  Y>206  AND  X>180  AND  X<190  T 

HEN  GOSUB  6440  <227> 

6320  IF  Y<=206  THEN  POKE  SI+18,0  <103> 

6325  0=PEEK (V+31 ) : IF  0=16  THEN  GOSUB  6550  <050> 

6399  RETURN  <105> 

6400  PRINT"  CHOME,  13D0WN,  1 3R I GHT T GREEN  1  TTTT. 

Fff  Ff  ff  ff.  CL I G  ■  BLUE  J  "  <002> 

6405  0=PEEK < V+31 ) : IF  0=1  THEN  3200  <10B> 

6410  PR I NT " CHOME ,13D0WN,1 3R I GHT , 1 3SPACE > "  <039> 

6415  RETURN  <123> 

6420  PRINT" CHOME, 18DQWN, 1 3R I GHT , GREEN JEttE, 

FFFfFFfff.tL  I B  ■  BLUE  J  "  <036> 

6425  0=PEEK (V+31 ) s IF  0-1  THEN  3200  <12S> 

6430  PR INT" CHOME , 1 BDOWN , 1 3R I GHT , 1 3SPACE > "  <1B5> 

6435  TI *="000000": RETURN  <021> 

6440  IF  HA=1  THEN  RETURN  <225> 

6441  PU= . 05 : 0T= 1 : H= 1 60 : PU=- 1 : GOSUB  60800:1 
F  EN >35  THEN  EN=35: HA=1 : H=32: PU=. 05: 0 


T=1  < 136> 

6450  IF  Y >209  THEN  Y=Y-AB-1  <202> 

6460  RETURN  <168> 

6550  FOR  T=0  TO  180:POKE  53280, T:POKE  5328 

1 , T: GOSUB  60700: NEXT: POKE  53280,0  <104> 

6552  POKE  53281 ,0: LD=1 : SC=SC+1000: GOSUB  61 

200  <052> 

6560  POKE  V+2 1,1: RETURN  <01 9> 

6697  REM  ++++++++++++++++++  <15B> 

6698  REM  +  PUNKTE  WERTUNB  +  <009> 

6699  REM  ++++++++++++++++++  <160> 

8000  FOR  T=0  TO  1 500 : NEXT : PR I NT " CCLR , 4D0WN 

, 6RI GHT > NOCH  EINMAL  CJ ]  "  <048> 

8002  PR I NT “ CHOME , 1 0DOWN , 1 0R I GHT  >SCORE  CRVSO 

N , SPACE >" ; SC  <176> 

B003  IF  5C>AS  THEN  AS=SC  <084> 

0004  PRINT" CHOME, 12D0WN,8RIGHT>HIGHSC0RE CS 

PACE , R VSON } " J  AS  <091> 

B010  POKE  198 , 0: WAIT  198,1:GET  A*: IF  A*="J 

"THEN  9000  <135> 

B015  POKE  648, 4: SYS  65126  <233> 

8020  PRINT" CCLR, SPACEJDANKE! ! !  GOOD  BYE  H 

!!!!!!!" 5  END  <144> 


9000  BI=0: B9=0: EN=0: HU=0: PU=0: AB=0: KL=0: H= 
0 : PX=0 : PY=0 : GE=0 : PO=0 : G9=0 
9010  B=0: HA=0: LD=0: SC=0: AC=0: POKE  V+23,0:P 
OKE  V+29,0:GOTO  998 

10000  REM  TTtff TttttftttttttttTTttT 

10001  REM  T  ANFANGSSPRITE  BEWEGEN  t 

10002  REM  tftttttttffTfTfftftftTTTf 
50000  POKE  V , X : POKE  V+1,Y 

50010  X 1=1 NT (X/S— 4) : Y1=INT (Y/8— 5) 

50020  FOR  E=X 1  TO  0  STEP-1 

50030  POKE  491 52+E+40* Y 1,66: POKE  49152+E+4 
0*Y1 ,32 

50040  IF  PEEK (49152+E— 1+40*Y1 >  <  >32  THEN  PO 
KE  49152+E— 1 +40*Y 1 , 38: GOTO  50070 
50050  NEXT  E: RETURN 

50070  FOR  T=0  TO  100: NEXT: POKE  49152+E-1+4 
0*Y 1 ,32: X=X-3: E=0: GOTO  50000 
60000  POKE  TR+Q+C* 17, 32 : Q=Q— I NT ( RND ( 1 ) *3  > : 

Q=B+INT(RND(1)*3> 

60010  IF  Q< 1 1  THEN  Q=ll 
60020  IF  0>14  THEN  Q=14 
60060  RETURN 

60070  OT=OT*-1:TI*="000000" 

60075  PR I NT " CHOME , 20DOWN  > " 

60080  IF  0T=— 1  THEN  FOR  T=0  TO  2: PRINT" C 13 
R I GHT , 6SP ACE  > " : NEX  T : RETURN 

60085  PRINT" CLIG. BLUE , 13RIGHT , 2SPACE>üflC2S 
PACE>" 

60086  PRINT" C 1 3R I GHT , SPACE  JHC2SH I FT— SPACE > 
ä  " 

60087  PR I NT " C 1 3R I GHT  JÜC4SP ACE  J  n  CL I G . BLUE  J " 
60090  RETURN 

60099  REM  GERAEUSCHE 

60100  SI=54272: POKE  SI+7, 200: POKE  SI+B,0:P 
OKE  S 1+9,0: POKE  SI+10,3:POKE  SI+11,0 

60110  POKE  SI+12, 0: POKE  SI+13, 15*16+15: POK 
E  SI+21 ,0: POKE  SI+22 , 150: POKE  SI+23, 

243 

60120  POKE  SI+24 ,31 : POKE  SI+11,65 
60130  RETURN 

Z  POKE  SI  +  11,0 

6021U1  POKE  S I  + 1 , 5 :  POKE  SI+4,0:POKE  SI+5,11 
:POKE  SI+6,0 
60202  POKE  S 1+4, 131 
60210  RETURN 

60300  IF  EN<=1  THEN  EN=15: IF  B>1  THEN  EN=3 
5 

6030 1  PR I NT ” CHOME , 3D0WN , 1 0SPACE , BLUE , 26SPA 
CE , L I G . BLUE  > " 

60302  PR I NT " CHOME , DOWN , 25R I GHT  >LEBEN CSPACE 
, RVSON> "HB 

60303  PRINT" CHOME , 2D0WN , 2R I GHT , YELLOW  JENER 
GY CLIG.  BLUE > " : FOR  T=0  TO  EN-.POKE  491 
52+T +40*3, 160: NEXT 

60304  PR I NT " CHOME , 9R I GHT , 1 5SPACE J " 

60310  X=250:Y=94:AB=AC:H=32: GOSUB  61200 
60315  IF  B=4  THEN  Y=110 

60320  RETURN 

60500  PR I NT " CCLR , 3DOWN , 1 0SP ACE , BLUE , 26SP AC 
E,LIG.BLUEJ" 

6050 1  PRINT " CHOME , 2D0WN , 2R I GHT , YELLOW  JENER 
GY  CLIG. BLUEJ" 

60502  FOR  T=0  TO  EN: POKE  49152+T+40*3, 160: 
NEXT: GOSUB  61200 

60550  RETURN 

60700  SI=54272: POKE  SI+4,0:POKE  SI+1,10:PO 
KE  SI+5, 12: POKE  SI+6,0:POKE  SI+4,131 
60710  RETURN 

60720  S I =54272 : POKE  SI+4,0:POKE  SI+1,20:PO 
KE  SI+5 , 12: POKE  SI+6,0:POKE  SI+4,131 
60730  RETURN 

60800  S I =54272 : POKE  SI+1B,0:POKE  SI+19,0:P 
OKE  SI+20, 15*16 

60810  POKE  SI+14 , 200: POKE  SI+15,39: POKE  SI 
+18,17 
60820  RETURN 

60900  S I =54272 : POKE  SI+18,0:POKE  SI+19,0:P 
OKE  51+20,15*16+2 

60910  POKE  SI+14, 200:POKE  SI+15,59: POKE  SI 
+18,17 
60920  RETURN 

61000  0T=0T*-1:IF  0T=-1  THEN  PRINT" CHOME, 9 
RIGHT, 15SPACEJ " : RETURN 

61001  PRINT" CHOME, CYAN, 13RIGHTJL0W  ONCSPAC 
E , RED  JFUEL  CLIG. BLUE  J " 

61002  RETURN 

61100  SC=SC+ 1 00 : PR I NT " CHOME , 23R I GHT , 1 5D0WN 


<046> 

<004> 

<  127> 
<213> 
<129> 

<  1 14> 
<042> 

<  169> 

<100> 

<025> 

<  177> 

<233> 

<099> 
<122> 
<061  > 

<  1 71  > 

<  167> 

<  103> 

<  1B2> 

<064> 

<  1 6B> 
<047> 
<201  > 
<062> 

<  129> 


<185> 

<044> 

<241> 

<080> 

<  190> 
<096> 
<067> 

<  161  > 
<214> 
<  120> 


<  17B> 
<054  > 

<  206  > 
<081  > 

<  177> 

<167> 

<  164> 

<  187> 

<  153> 

<070> 

<059> 

<092> 

<079> 

<053> 

<133> 

<  169> 

<  1B2> 


<009> 

<013> 

<205> 

<093> 

<097> 
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, RED  >+  <DOWN ,LEFT}+ {DOWN , LEFT  >  + {DOWN , 

62280 

POKE  H1+7,L2 (S2) : POKE  H2+7.H2 <S2) : PO 

LEFT  >  +  <L I G . BLUE  > " 

<154> 

KE  DR,W1  OR  1 : POKE  DR+7.W2  OR  1 

<208  > 

61120 

RETURN 

<215> 

62290 

C1=C1  +  1 : IF  C1>(D1 (Sl) *SP/2>  THEN  POKE 

61200 

PR  I  NT  ••  {HOME  ,  25R 1 6HT  ,  2DÜWN  ,  RVSON ,  GREE 

DR ,  W 1 

<053> 

N } SCORE  “ ; SC ; “ {RVOFF , L I G . BLUE  > - 

<065> 

62300 

IF  Cl< (Dl (S1)*SP)THEN  62320 

<032> 

61210 

RETURN 

<051  > 

62310 

C1=0:S1=S1+1:POKE  DR,W1  OR  1:P0KE  Hl 

61297 

REM  ++++++++++++4-+++-*-++++++++++++ 

<081  > 

,L1 (Sl ) : POKE  H2 , Hl (Sl ) 

<1B2> 

61298 

REM  +  FEINDHUBSCHRAUBER  BEWEGEN  + 

<019> 

62320 

C2=C2+1 : IF  C2> (D2 (S2) *SP/2) THEN  POKE 

61299 

REM  +++++++++4-+++++++++++++++++++ 

<0B3> 

DR+7.W2 

<183> 

61300 

IF  X >X2  THEN  B2=+5:M4=22 

<  1 14> 

62330 

IF  C2< (D2 (S2) *SP) THEN  62350 

<  183> 

61310 

IF  X<X2  THEN  B2=-5:M4=21 

<  160> 

62340 

C2=0 : S2=S2+ 1 : POKE  DR+7.W2  OR  1 : POKE 

61320 

IF  Y>Y2  THEN  C2=+3 

<253> 

Hl +7 , L2 (S2> : POKE  H2+7,H2(S2) 

<21B> 

61330 

IF  Y< Y2  THEN  C2=-3 

<047> 

62350 

IF  Dl (Sl ) >0  THEN  62290 

<21 1  > 

61335 

X2=X2+B2: Y2=Y2+C2 

<  183> 

62360 

POKE  V+21 ,0: GOTO  8000 

<129> 

61340 

POKE  V+2 , X2s POKE  V+3.Y2 

<  097  > 

62370 

DATA  D3 , 2408 , E3 , 2703 , F#3 , 3034 , G3 , 32 1 

61341 

0=PEEK(V+31) 

<  162> 

5 

<209> 

61342 

J  S=PEEK ( V+30 ) 

<017> 

623B0 

DATA  A3 , 3608 ,  H3 , 4050 ,  Ctt4 , 4547 ,  D4 , 48 1 

61350 

IF  JS=3  THEN  3200 

<007> 

7 

<052> 

61351 

IF  0=2  THEN  61500 

<127> 

62390 

DATA  E4 , 5407 , F#4 , 6069 , G4 , 6403 , A4 , 72 1 

61352 

J  S=PEEK ( V+30 ) 

<027> 

7 

<212> 

61353 

IF  HU >3  THEN  GOSUB  61530 

<  193> 

62400 

DATA  H4, 8101 ,C#5, 9094, D5, 9634, E5, 108 

61354 

0=PEEK (V+31 ) 

<  175> 

14 

<019> 

61355 

POKE  50169,M4 

<  121  > 

62410 

DATA  F#5, 12139, G5, 12860, A5, 14435 

<01B> 

61360 

RETURN 

<201  > 

62420 

REM  1. ST IMME 

<  131  > 

61400 

IF  B=3  THEN  61430 

<  1 14> 

62430 

DATA  D5,3,D5,1,D5,1,E5,1,D5,1,C#5,1, 

61401 

IF  B=4  THEN  61470 

<  163> 

H4 , 4 , H4 , 4 , C#5 , 1 , C-H5 , 1 

<  153> 

61402 

IF  HU >4  THEN  RETURN 

<034> 

62440 

DATA  D5,.1,E5,3,D5,1,E5,1,F#5,2,F#5,2 

61410 

0=P£EK (V+31 ) : IF  0=2  THEN  61500 

<  167> 

, E5, 1 , A4 , 3 

<139> 

61420 

RETURN 

<005> 

62450 

DATA  D5 , 3 , D5 , 1 , D5 , 1 , E5 , 1 , D5 , 1 , C#5 , 1 , 

61430 

0=PEEK (V+31 > ! IF  0=12  THEN  GOSUB  6145 

H4,4,H4,4,C#5, 1 ,C#5, 1 

<173> 

0: POKE  V+2 1,1: SC=SC+200 : GOSUB  61200: 

62460 

DATA  D5 , 1 , E5 , 3 , D5 , 1 , E5 , 1 , F#5 , 2 , F #5 , 2 

G9=0 

<200> 

, E5, 1 ,A4,3 

<  159> 

61440 

RETURN 

<027> 

62470 

DATA  F#5,2,A5,2,G5,2,F#5, 1 ,D5, 1 ,E5, 1 

61450 

GOSUB  60720: FOR  T=0  TO  100: POKE  V+38 

,F#5,2,E5,5 

<036> 

, T : NEXT : RETURN 

<240> 

62480 

DATA  F#5,3,E5,1 , D5 ,2 , D5 , 1 ,H4 , 1 , E5 , 1, 

61470 

0=PEEK (V+31 ) : IF  0=16  THEN: GOSUB  6550 

<034> 

F#5,2,E5,3,D5, 1  ,E5,  1 

<062> 

6 1480 

RETURN 

<067> 

62490 

DATA  F#5,2,A5,2,G5,2,F#5,1,D5,1 ,E5,1 

61500 

HU=HU+1:SC=SC+ 100: GOSUB  61200 

<065> 

, C#5 , 1 , H4 , 1 , A4 , 5 

<230> 

61501 

GOSUB  60700 

<01B> 

62500 

DATA  D5 , 3 , C#5 , 1 , H4 , 1 , C#5 , 1 , D5 , 2 , E5 , 1 

61502 

FOR  T=0  TO  100: PDKE  V+40 ,T: NEXT: X2=0 

0 

<022> 

: POKE  V+2, X2: Y2=INT (RND ( 1 ) *50) +90 

<  146> 

62510 

DATA  F#5 , 2, E5 , 6 ,F#5 ,2, E5, 2, D5, 1 ,E5, 1 

61503 

POKE  V+3.Y2 

<041  > 

*5,2,A5,2,G5,2,F#5, 1 ,D5,3,F#5,2,E5 

61504 

IF  HU >4  THEN  POKE  V+21,1:B9=0 

<122> 

,6 

<  1 12> 

61510 

E=0: RETURN 

<  1 90  > 

62520 

DATA  FB5,2,E5,6,F#5,2,E5,2,D5, 1 ,E5,1 

61530 

X3=X3+1 

<  189> 

,F#5,2,A5,2,G5,2,F#5, 1 ,D5, 1 

<221  > 

61535 

IF  X3>X/8  THEN  GOSUB  61570 

<  145> 

62530 

DATA  E5, 1 ,C#5, 1 ,H4, 1 ,A4,3,H4, 1 ,C#5,1 

<020> 

61536 

IF  X3>39  THEN  GOSUB  61570 

<  106> 

62540 

DATA  D5,3,D5, 1 ,D5, 1 ,E5, 1 ,D5, 1 ,C#5, 1 , 

61540 

POKE  49152+X3+40*INT (Y3) ,68 

<  177> 

H4 , 4 , H4 , 4 , C#5 , 1 , C#5 , 1 

<009> 

61545 

0=PEEK (V+31 ) : IF  D=1  THEN  POKE  49152+ 

62550 

DATA  D5, 1,E5,3,D5, 1  ,E5, 1 ,F#5,2,F#5,2 

X3+40*INT (Y3) ,32: GOTO  3200 

<184> 

,E5, 1 , A4,3 

<251  > 

61550 

POKE  49152+X3+40*INT (Y3) ,32 

<217> 

62560 

DATA  D5,3,D5,1,D5, 1 ,E5, 1 ,D5, 1 ,C#5,1 , 

61560 

RETURN 

<  147> 

H4 , 4 ,  H4 , 4  ,  C#5 , 1 ,  CB5 , 1 

<0 29 > 

61570 

X3=INT (X2/8+4) : Y3=INT ( Y2/8-5) 

<  162> 

62570 

DATA  D5,1,E5,3,D5,1,E5,1,F#5,2,F#5,2 

61580 

RETURN 

<167> 

,E5, 1 ,D5,7 

<052> 

61997 

REM  +++++«-+++ 

<06B> 

62580 

DATA,— 1 

<196> 

61998 

REM  +  MUSIK  + 

<074  > 

62590 

REM  2. STIMME 

<055> 

61999 

REM  +++++++++ 

<070> 

62600 

DATA  D3 , 4  ,  D3 , 4 ,  G3 , 4  ,  H3 , 2 ,  D3 , 2  ,  A3 , 4  ,  A 

62000 

FOR  1=54272  TO  54296:P0KE  I,0:NEXT:P 

3,4, D3 , 4 , A3 , 2 , E4 , 1 , A3 , 1 

<169> 

OKE  54296, 15: POKE  54275,3 

<  170> 

62610 

DATA  D3 , 4 , Do ,4,G3,4, H3 , 2 , D3 , 2 , A3 , 4 , A 

62110 

H1-54Z7ZSHZ-H1+1: AD-34277: SR-AD+ 1 : DR 

3,4,D3,4,A3,2,E4, 1 ,A3, 1 

<179> 

=AD- 1 : W 1 =64 : W2=32 

<  1 12> 

62620 

DATA  D3 , 4 , D3 , 4 , A3 , 4 , A3 , 4 , H3 , 4 , G3 , 4 , A 

62120 

POKE  AD, 72: POKE  SR,122:P0KE  AD+7,43: 

3, 4, A3, 4 

<21 1  > 

POKE  SR+7, 187: GOTO  62250 

<160> 

62630 

DATA  D3 , 4 , D3 , 4 , A3 , 4 , A3 , 4 , H3 , 4 , G3 , 4 , A 

62130 

DIM  F*(18) ,FL(18> ,FH(18):F0R  1=0  TO 

3, 4, A3, 3 

<219> 

18 

<079> 

62640 

DATA  A3 , 1 , A3 , 7 , A3 , 1 , A3 , 8 , D3 , 4 , D3 , 4 , A 

62140 

READ  F*(I) , F: FH ( I ) =INT (F/256) : FL ( I ) = 

3, 4, A3, 3 

<  109> 

F— FH ( I ) *256: NEXT 

<236> 

62650 

DATA  A3, 1 , A3, 7, A3, 1 , A3 ,8,D3,4,D3,4,A 

62150 

DIM  Nl*(200> , Dl (200) ,N2*(200> ,D2(200 

3, 4, A3, 4 

<  121  > 

)  :  1=0 

<  159> 

62660 

DATA  D3 , 4 , D3 , 4 , G3 , 4 , H3 , 2 , D3 , 2 , A3 , 4 , A 

62160 

READ  N1*(I) ,D1 (I) : IF  D1(I>>0  THEN  1= 

3,4,D3,4, A3 , 2 , E4 , 1 , A3 , 1 

<229> 

1+ 1 : GOTO  62160 

<  141  > 

62670 

DATA  D3 , 4  ,  D3 , 4  ,  G3 , 4  ,  H3 , 2 ,  D3 , 2  ,  A3 , 4  ,  A 

62170 

1=0 

<  124> 

3,4,D3,4,D3,B 

<  144> 

62180 

READ  N2*  < I ) ,D2 ( I ) : IF  D2 ( I ) >0  THEN  1  = 

626B0 

DATA.-l 

<040> 

1+1 : GOTO  62180 

<205> 

62997 

REM  +++++++++++++++ 

<140> 

62200 

DIM  LI (200) , Hl (200) , L2 (200) ,H2<200) : 

62998 

REM  +  GRAVITATION  + 

<016> 

1=0 

<202> 

62999 

PPM  4M.*.*.*.*-**.*.*.*.*.*.*. 

<  1 42> 

62210 

FOR  J=0  TO  18 

<107> 

63000 

PRINT  CHR* ( 1 42) : POKE  V+21,0 

< 

62220 

IF  F*(J)=N1*(I)THEN  LI ( I ) =FL ( J) : Hl ( I 

<  121  > 

63001 

PRINT" {CLR , 10DOWN, 8RIGHT , RVSON >GRAVI 

) —FH ( J ) 

T AT I ON  C2SP ACE  >  C  1  £  3  I" 

<21  B> 

62230 

IF  F*(J)=N2*(I)THEN  L2 ( I ) =FL ( J > : H2 ( I 

63010 

POKE  19B ,0: WA IT  19B,1:GET  A*: IF  A*=" 

) =FH ( J ) 

<  169> 

1 "THEN  AC= . 1 

<  1 43> 

62240 

NEXT: 1=1+1: IF  NI* < I > < >" “THEN  62210 

<037> 

63020 

IF  A*="2"THEN  AC=.5 

<0B7> 

62245 

RETURN 

<070> 

63030 

IF  A*="3"THEN  AC=1 

<245> 

62250 

SP=VAL("2") 

<248> 

63040 

IF  A*< " 1 " OR  A*>"3"THEN  63010 

<  155> 

62260 

IF  SP<1  OR  SP >4  THEN  62250 

<214> 

63050 

RETURN 

<  1 13> 

62270 

S1=0: S2=0: CI =0: C2=0: POKE  Hl ,L1 (Sl) :P 

OKE  H2,H1 (Sl) 

<  199> 

e  M'er  Listing  »APOCALYPSE  NOW«  (Schluß) 
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Spring  Vogel,  spring 

Kennen  Sie  Jumpman,  Miner  2049  oder  Mister  Robot  and  bis  Factory? 
Dann  haben  Sie  sich  sicherlich  geärgert,  daß  Sie  nie  die  letzten  Bilder 
erreicht  haben.  Oder  Sie  haben  sich  über  die  eintönigen  Spielszenen 
geärgert.  Mit  dem  Spring-Vogel  passiert  so  etwas  nicht! 

Hier  können  Sie  sich  Ihre  Bilder  auch  selber  machen. 


Tatsächlich  kann  man  Spring-Vogel  fast  als  Spielgenerator 
bezeichnen.  Mit  Spring-Vogel  gelingt  es  Ihnen,  sich  jedes  be¬ 
liebige  Spielfeld  aufzubauen.  Das  klingt  sehr  vielverspre¬ 
chend,  und  das  ist  es  auch.  Spring-Vogel  ist  ein  Vertreter  der 
Jump  and  Run-Kategorie.  Damit  lassen  sich  also  keine  Schieß¬ 
oder  Abenteuerspiele  erzeugen,  aber  innerhalb  der  Spring- 
und  Laufgruppe  bleibt  kein  Wunsch  offen.  Worum  handelt  es 
sich  bei  Spring-Vogel  nun  eigentlich?  Zunächst  die  Story. 

Ein  heftiger  Sturm  hat  einen  Vogel  —  unseren  Helden  —  mit¬ 
samt  seinen  Eiern  aus  dem  Nest  geweht.  Durch  den  harten 
Aufprall  auf  die  Erde  hat  er  sich  seine  Flügel  gebrochen.  Er 
kann  also  nicht  mehr  richtig  fliegen,  sondern  nur  noch  auf  dem 
Boden  laufen,  hüpfen  und  springen.  Die  Aufgaben  des  Vogels 
(die  genaue  Klassifizierung  bleibt  Ihnen  überlassen)  besteht 
nun  darin,  in  einem  Labyrinth  aus  Aufzügen,  Transportbändern, 
Seilen,  Einbahnstraßen,  Trampolinen,  Rutschbahnen,  Gummi¬ 
wänden,  magischen  Flügeln,  gemeinen  Vogelfallen  und  miß¬ 
gestimmten  Monstern  alle  Eier  wieder  einzusammeln.  Gelingt 
es  dem  Vogel,  die  Eier  in  einer  Spielszene  aufzunehmen,  muß 
er  mit  der  nächsten  Überraschung  fertig  werden;  es  waren 
nicht  alle.  Das  nächste  vom  Winde  verwehte  Bild  erwartet  ihn 
mit  weiteren  schwierigen  Aufgaben. 

Die  Anzahl  der  Torturen  für  unseren  leidgeprüften  Helden 
bestimmen  Sie  selbst.  Doch  Vorsicht,  unser  Vogel  verfügt 
nicht  wie  eine  Katze  über  sieben,  sondern  »nur«  über  sechs 
Leben.  Und  diese  sechs  Leben  sind  schnell,  durch  Kontakt  mit 
den  Monstern  oder  Verzehren  einer  roten  Tollkirsche,  ausge¬ 
haucht. 

Der  Sturz  über  mehr  als  vier  Etagen  ist  ebenfalls  für  den  flug¬ 
unfähigen  Vogel  lebensbedrohend.  Es  sei  denn,  er  findet  die 
von  seinem  Tierschützer  verstreuten  »magischen  Flügel«. 
Ausgestattet  mit  deren  zauberhaften  Fähigkeiten  kann  er  in  ei¬ 
nem  ökologischen  Flecken  beliebig  umherfliegen.  Durch  Betä¬ 
tigen  des  Feuerknopfes  wird  er  wieder  in  seinen  behinderten 
Zustand  zurückversetzt,  erlangte  allerdings  vorher  die  Fähig¬ 
keit  an  unzugänglichen  Stellen  landen  zu  können.  Diese  magi¬ 
schen  Flügel  gestatten  es,  Bilder  so  aufzubauen,  daß  nur  der 
taktisch  gezielte  Einsatz  dieser  Flughilfe  es  ermöglicht,  ein  Bild 
vollständig  abzuräumen.  Dabei  kann  es  Vorkommen,  daß  sich 
der  Vogel  in  eine  völlig  aussichtslose  Situation  manövriert,  und 
in  einer  Sackgasse  landet.  Auch  hier  bietet  das  Programm  ei¬ 
nen  Ausweg  an,  die  Funktionstasten.  Diese  können  jederzeit 
(außer  während  der  Flugphase)  benutzt  werden. 

Bei  dem  ersten  Start  des  Programms  dauert  es  einige  Zeit 
(bei  weiteren  Starts  geht  es  dann  schneller),  bis  sich  das  Pro¬ 
gramm  mit  der  Frage  »Edit,  Wahl  oder  Spiel?«  meldet. 

Mit  »W«  kann  man  eines  der  sechs  Bilder  zum  Spielen  aus¬ 
wählen,  mit  »S«  wird  ein  vollständiges  Spiel  ab  Bild  1  gewählt. 

Die  Funktionstasten  haben  folgende  Bedeutung: 
fl:  Dieses  Spiel  aufgeben,  zurück  zum  Menü 
f2:  diesen  Vogel  opfern  und  mit  dem  nächsten  Vogel  neu  an 
der  Startposition  beginnen 
f3:  mit  dem  nächsten  Bild  weitermachen 
f5:  Pause  (weiter  mit  SPACE) 

Für  jedes  Ei  gibt  es  je  nach  Bild  10,  20  ...  60  Punkte.  Wird 
ein  Bild  in  einer  bestimmten  Zeit  beendet,  so  erhält  der  Spieler 


einen  Bonus,  der  um  so  größer  ist,  je  schneller  das  Bild  been¬ 
det  wurde. 


Der  Editor 


Der  Editor  dient  dazu,  eigene  Spiele  zu  entwickeln.  Mit  ihm 
können  neue  Bilder  erstellt  werden,  die  im  Programmtext 
selbst  die  alten  Bilder  überschreiben.  Deshalb  sollte  das  Pro¬ 
gramm  vor  dem  Editieren,  das  neue  Spiel  nach  dem  Editieren 
unter  neuem  Namen  gespeichert  werden.  Dazu  einfach  das 
Programm  mit  »STOP«  abbrechen.  Der  Editor  fragt  zunächst, 
welches  Bild  geändert  werden  soll.  Dann  erscheint  dieses  Bild 
mit  einem  Cursor.  Es  stehen  folgende  Funktionen  zur  Verfü¬ 
gung: 

— :  die  vorgenommenen  Änderungen  endgültig  in  den  Pro¬ 
grammtext  übernehmen 

fl:  Editor  verlassen,  ohne  Änderungen  zu  übernehmen.  Das 
Bild  bleibt  erhalten,  wie  es  vor  dem  Editoraufruf  war.  In  beiden 
Fällei  i  '  agt  das  Programm,  ob  das  Bild  ausprobiert  werden 
soll.  Aus  dem  Spiel  gelangt  man  mit  fl  und  E  jederzeit  in  den 
Editor  zurück. 

Die  Cursorsteuerung  erfoligt  wie  gewohnt  über  die  Cursorta¬ 
sten.  SHIFT  CLR;  Bild  löschen 

Die  Startposition  des  Vogels  wird  durch  »0«  festgelegt.  In  je¬ 
des  Bild  können  zwischen  0  und  7  Monster  gesetzt  werden, 
die  sich  horizontal  auf  einer  Breite  von  acht  Spalten  hin  und  her 
bewegen.  Das  linke  Ende  dieser  Bewegungsbahn  kann  mit 
den  Tasten  1  bis  7  festgelegt  werden. 

Mit  den  Tasten  A  bis  T  können  die  20  verschiedenen  Bau¬ 
steine,  die  zur  Verfügung  stehen,  gesetzt  werden.  Der  Vogel 
reagiert  immer  nur  auf  das  Zeichen  unter  seinen  Füßen.  Bei 
Sprüngen  reagiert  er  (außer  bei  Wänden)  erst  in  der  abstei¬ 
genden  Phase  wieder  auf  Zeichen.  Eine  Übersicht  über  die 
Bausteine  bietet  die  Tabelle  1.  Dazu  einige  ergänzende  Be¬ 
merkungen: 

Die  Bausteine  A  bis  D  sind  durch  verschiedene  Bewegungs¬ 
möglichkeiten  gekennzeichnet.  Springen  ist  möglich: 

A:  rechts,  links 
B:  rechts,  links,  runter 
C:  rechts,  links,  rauf 
D:  alle  vier  Richtungen 

Bei  E  bis  H  ist  eine  Bewegung  nur  in  jeweils  eine  Richtung 
und  kein  Sprung  möglich. 

Bei  I  bis  N  wird  der  Vogel  automatisch  bewegt.  Er  selbst 
kann  nur  springen. 

Der  Trampolin  0  bewirkt  einen  zufälligen  Sprung  nach  rechts 
oder  links. 

Bei  der  Gummiwand  S  wird  der  Vogel  auf  das  letzte  Zeichen, 
das  weder  Wand  noch  Luft  war,  zurückgeworfen. 

Da  das  Problem  in  die  Interruptroutine  eingreift  und  seinen 
eigenen  Programmtext  verändert,  sollte  es  auf  jeden  Fall  vor 
dem  ersten  Start  abgespeichert  werden. 

Um  Tippfehler  bei  den  zahlreichen  DATA-Zeilen  besser  loka¬ 
lisieren  zu  können,  wurden  diese  in  verschiedene  Blöcke  mit 
jeweils  eigener  Prüfsumme  aufgeteilt. 
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Bitte  halten  Sie  sich  beim  Eintippen  der  sechs  Bilder  exakt 
an  die  vorgegebene  Zeilenlänge:  Jeder  PRINT-Befehl  muß  ge¬ 
nau  39  Zeichen  lang  sein.  Fehlende  Zeichen  können  zur  Zer¬ 
störung  des  Programms  führen,  da  der  Editor  diese  Zeilen 
überschreibt. 


Hinweise  zum  Eintippen 


Daß  die  jeweils  39  Zeichen  genau  mit  dem  Listing  überein¬ 
stimmen,  ist  dagegen  nicht  so  wichtig.  Durch  Abweichungen 
wird  hier  allenfalls  die  Spielbarkeit  des  vorgegebenen  Spiels 
beeinflußt,  ein  Mangel,  der  jederzeit  mit  dem  Editor  behoben 
werden  kann.  Im  Prinzip  ist  es  auch  möglich,  auf  das  Abtippen 
der  Bilder  2  bis  6  zu  verzichten  und  an  anderer  Stelle  einfach 
mit  Hilfe  des  Bildschirmeditors  fünfmal  das  erste  Bild  zu  kopie¬ 
ren.  Auf  jeden  Fall  aber  muß  die  Zahl  der  Zeilen,  die  Zeilennum¬ 
mer  und  die  Länge  der  Zeilen  mit  dem  Listing  übereinstimmen. 

Um  das  Eintippen  de;  Bilder  zu  erleichtern,  wurden  diese  in 
der  vorliegenden  Programmversion  in  den  Programmtext 
selbst  gelegt.  Deshalb  ist  die  Zahl  der  Bilder  auf  sechs  (diese 
Zahl  wurde  gewählt,  um  die  Tipparbeit  in  erträglichen  Grenzen 
zu  halten)  festgelegt.  Die  Anzahl  der  Bilder  kann  aber  folgen¬ 
dermaßen  erhöht  werden: 

Der  Variablen  BM  in  Zeile  50070  ist  die  gewünschte  Anzahl 
zuzuweisen.  Für  jedes  weitere  Bild  sind  dem  Programm  ent¬ 
sprechend  dem  Schema  der  ersten  sechs  Bilder  22  PRINT- 
Zeilen,  die  jeweils  39  beliebige  Zeichen  ausgeben,  und  ein  ab¬ 
schließendes  RETURN,  anzufügen.  Die  erste  Zeilennummer 
eines  Bildes  berechnet  sich  nach  der  Formel  59900  + 
Bildnummer*  100  +1,  zum  Beispiel  60601  für  Bild  7. 


(Matthias  Törk/og) 


TASTE 

:  BAUSTEIN 

A 

BODEN 

B 

.  LEITER  UNTERES  ENDE 

c 

:  LEITER  OBERES  ENDE 

D 

LEITER  MITTEISTÜCK 

E 

•  SEIL  HOCH 

F 

:  SEIL  RUNTER 

G 

EINBAHNSTRASSE  RECHTS 

H 

EINBAHNSTRASSE  LINKS 

1 

TRANSPORTBAND  RECHTS 

J 

.  TRANSPORTBAND  ÜNKS 

K 

.  AUFZUG  HOCH 

L 

:  AUFZUG  RUNTER 

M 

.  RUTSCHBAHN  RECHTS  RUNTER 

N 

.  RUTSCHBAHN  UNKS  RUNTER 

0 

:  TRAMPOLIN 

P 

:  LUFT,  FREIER  FALL 

0 

:  TOEDLICHE  FALLE 

R 

:  El 

S 

:  GUMMI-WAND 

T 

MAGISCHE  FLÜGEL 

Tabelle  1.  Die  verschie- 

denen  Bausteine  und 

ihre  Bedeutung 

Die  wichtigsten  Routinen 

50000 

INITIALISIERUNG 

48000 

MENUE 

49000 

EOITOR 

46000 

AB  BILD  Bl  SPIELEN 

1050 

EIN  BILD  SPIELEN 

46000 

BILD  Bl  INITIALISIEREN 

500 

JOYSTICK 

600 

FIGUREN  BEWEGEN 

40000 

SPRINGEN 

11000 

El 

2000 

LUFT 

12000 

TOEDLICHE  FALLE 

15000 

FLIEGEN 

Tabelle  3. 

Die  wichtigsten  Routinen 

Die  wichtigsten  Variablen 

XS.YS 

:  SprlleKoordlnolen  des 

CO  ( ) 

Farblabelle 

Helden 

JP.JS 

Joystick 

XG.YG 

:  Koordinatengrenzen 

EZ.EM 

Anzahl  Eier 

OX.OY 

:  Koordinatenoffset 

SC 

Punkte 

Sprite/Zeichen 

MZ 

Anzahl  Leben 

TG 

:  Zeltlimit 

CP 

Cursorposition 

BM 

:  maximale  Bildzahl 

BS 

Bildschlrmadrosse 

Bl 

:  aktuelles  Bild 

FR 

Adresse  Färb- RAM 

UP  ( >. 

KO 

Sprlte-Kolllslonsrogl5ter 

DO  (  ),RI  ( ), 

V 

VlC-Chlp 

LE  (  |.DX  ( ), 

ZS 

Adresse  Zeichensatz 

DY  (  ) 

:  Bewegungstabellen 

EA 

Adresse  Bilder 

JUU 

:  Sprunglabelle 

SI.WI.GLGH 

Sound 

Tabelle  2.  Die  wichtigsten  Variablen  von  Spring-Vogel 
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10  REM  ***  JUMP.B0/  8.6. 84 
20  POKE  53280, 0:POKE  53281,0 
25  PRINT" {CLR5NICHT  WUNDERN  UND  WARTEN!!" 
30  GOSUB  50000: GOTO  48000 

499  REM  **  JOYSTICK  ** 

500  JS=PEEK ( JP) : IF  <JS  AND  16) =0  THEN  GOSU 
B  40000: GOTO  600 

505  IF  (JS  AND  Dl) =00  THEN  POKE  W1,SW:IF  U 
P (CM)  THEN  YS=YS-Q8: GOTO  590 
510  IF (JS  AND  Q2>  =Q0  THEN  POKE  W1,SW:IF  DO 
(CM)  THEN  YS=YS+Q8: GOTO  590 
520  IF (JS  AND  Q4)=D0  THEN  POKE  W1 ,SW: IF  LE 
(CM)  THEN  XS=XS-Q4: GOTO  590 
530  IF ( JS  AND  Q8) =00  THEN  POKE  W1,SW:IF  RI 
(CM)  THEN  XS=XS+Q4 
590  POKE  W1,O0 
600  IF  XS<DX  THEN  XS=OX 
620  SYS (SR)  00, XS,YS: RETURN 
1000  REM  ***  MAIN  LOOP  ** 

1050  IF  PEEK (TA) THEN  1200 

1055  IF  PEEK (KO) AND  Ql  THEN  CM=16:P0KE  KO, 
0: GOTO  1100 

1060  CM=USR ( XS— OX )  , YB— OY : IF  CM=ZB  THEN  XS 
=8*PEEK <  49426 ) +DX : YS=8*PEEK ( 49427 ) +0Y 
1070  IF  CM >07  THEN  XS=XS+DX (CM) : YS=YS+DY <C 
M) 

1075  IF  TICTG  THEN  PRINT" {HOME > " , I NT ( T I  /  1 0 
0) 

10B0  IF  CM< Z 4  THEN  GOSUB  500: GOTO  1050 
1100  ON  CM— 13  GOTO  3000,2000,12000,11000,1 
050,15000 

1200  GET  B*:IF  B*="  CF  1  > "THEN  RETURN 
1210  IF  B*="{F3>"  THEN  CM=16:G0T0  1100 
1215  IF  B*="CF5>"  THEN  11040 
1217  IF  B*="<F7>"  THEN  POKE  19B,0:WAIT  198 
.1 

1220  GOTO  1050 
2000  1=0:  POKE  W1  ,33 

2010  1=1+1 : YS=YS+4: IF  I >8  OR  YS>YG  THEN  CM 
=16: POKE  W1 , 0: POKE  SI+1,GH:G0T0  1100 
2015  POKE  SI+1, 40-2*1 

2020  GOSUB  600 : CM=USR ( X S— OX >  ,YS-OY:IF  CM= 
15  THEN  2010 

2025  IF  CM= 18  THEN  XS=FN  X(XS) 

2030  POKE  W1 ,0: POKE  SI+1 ,GH: YS=FN  Y(YS):GO 
TD  1050 

3000  RX  =2— 4* I NT ( RND ( 1 ) *2 ) : GOSUB  40100: GOSU 
B  600: GOTO  1050 

10999  REM  **  GEGENSTAND  POSITIV,  EI»* 

11000  POKE  BS+40*PEEK (49427) +PEEK (49426) ,8 
0: SC=SC+BI *10: EZ=EZ+1 

11030  IF  EZ<EM  THEN  PRINT"  {HOME} ",, SC: GOTO 
1050 

11035  IF  TI<TG  THEN  SC=SC+INT < (TG-TI > / 10) 
11040  BI=BI+1 : IF  BI >BM  THEN  RETURN 
11050  GOSUB  46000: GOTO  1050 

11999  : 

12000  MZ=MZ-1 : IF  MZ=0  THEN  RETURN 

1 2050  PR I NT " CHOME  J " , , SC , M I D*  < " ****** C6SPAC 
E>",7-MZ,6) 

12052  POKE  W1 , 17 

12055  FOR  XS=XS  TO  XX  STEP  SGN ( XX-XS) : GOSU 
B  600: POKE  SI+1,49+(XS  AND  1>:NEXT 
12057  FOR  YS=YS  TO  YY  STEP  SGN (YY-YS) : GOSU 
B  600: POKE  SI+1,52+(YS  AND  1):NEXT 
12060  XS=X X : YS=YY : POKE  KO,0:POKE  W1,0 
12070  GOTO  1050 

15000  POKE  V+29, 255: POKE  BS+40*PEEK (49427) 
+PEEK (49426) ,B0:CM=3: XS=XS-10: SW=17 
15050  JS=PEEK (56320) 

15052  IF ( JS  AND  16) =0  THEN  XS=XS+10: POKE  V 
+29,254: GOSUB  600: POKE  KO ,0: SW=129: G 
OTO  1050 

15055  IF  Y5C0Y  THEN  YS=OY 

15056  IF  YS>YG  THEN  YS=YG 

15057  IF  XS>XG  THEN  XS=XG 

15060  GOSUB  505: GOTO  15050 
39000  : 

39999  REM  ****  JUMP  **** 

40000  IF  CM >3  AND  CM<8  THEN  RETURN 
40005  RX=0: IF  (JS  AND  4>=0  THEN  RX=-2 
40010  IF  (JS  AND  8) =0  THEN  RX=2 

40100  POKE  SI+6, 16*1 5+ 13: POKE  W1,17:P0KE  W 
1,16: FOR  1=0  TO  13 

40120  POKE  SI+1 , 104— JU ( I ) : YS=YS— JU ( I ) : XS=X 
S+RX: GOSUB  600 


<066> 

40130 

<  1 48> 

40140 

<160> 

40150 

<029> 

40235 

<  171  > 

40250 

<  139> 

40300 

40310 

<030> 

44990 

<091  > 

45000 

45100 

<009> 

45150 

45160 

<  1B6> 
<110> 
<046> 

45163 

<  139> 

45165 

<  132> 

<  171  > 

45170 

<103> 

45180 

<234> 

45190 

46000 

<033> 

46010 

<  1 03  > 

46015 

<055> 

46020 

<  155> 
<210> 

<  123> 

46030 

<061  > 

46050 

<  194> 
<048> 

46100 

<096> 

46105 

46110 

<  133> 

«Won 

46120 

<  191  > 

46121 

<074> 

46130 

<  121  > 

46140 

<  123> 

46200 

<074> 

46220 

<  1 15> 

48000 

<070> 

48040 

<088  > 

<  179> 
<207> 
<035> 

48041 

<039> 

48042 

<  1  17> 

48043 

<009> 

48044 

<  150> 

<  171  > 

<004> 

48045 

<232> 

48050 

<  142> 

48060 

<  159> 

48070 

<045> 

48080 

<  191  > 

4B090 

<08B> 

48999 

<255> 

49000 

<041  > 

<  1 13> 

<  143> 

49020 

<037> 

<000> 

49050 

<  135> 

49055 

<132> 

49060 

<221  > 

49069 

CM=USR(XS-OX>  , YS— OY : 

IF  CM=18  THEN  XS=FN  X(XS):GOTO  40300 
IF  I<9  THEN  POKE  KO,0:GOTO  40250 
IF  CM<>15  OR  (PEEK (KO) AND  1)  THEN  40 
300 
NEXT 

IF  CM<>15  THEN  YS=FN  Y(YS> 

POKE  W1 ,0: POKE  SI+6, 16*15: POKE  SI+1, 
GH: RETURN 
: 

MZ=6:SC=0: GOSUB  46000 
GOSUB  1050: POKE  V+21,0 
FOR  1=1  TO  3000: NEXT 

PRINT" CCLR, 4D0WN, YELLOW}" , " {GREEN } DA 
S  WARS ! ! !": PRINT" CDOWN TERREICHTE  PUN 
KTZAHL: {RVSON>",SC 
IF  SC>HS  THEN  HS=SC 

PR I NT " {DOWN  >H I GH  SCORE : {RVSON  > " , , HB 

PRINT" {RED> - 

- {L I G . BLUE  >":PRINT , " CDOWN 

>**  JUMP! !  **" 

IF  (PEEK  (56320)  AND  16)00  THEN  451B 
0 

RETURN 

SYS (49155)  0: EZ=0: XX= 120: YY=120 
POKE  W1 , 0: POKE  SI,GL:POKE  SI+1,GH:SW 
=129: REM  SOUND 

A=0: IF  TI<TG  THEN  A=INT ( (TG-TI )/ 10) 
PR I NT " CCLR , YELLOW , 3SPACE JBONUS : " , A , " 
C4LEFT  JPKT : " ; SC , M I D* ( "******  C6SPACE > 
" ,7— MZ,6) : PRINT 

FOR  1=1  TO  7: POKE  XH+I,1:P0KE  XL+I,1 
70: POKE  TY+I ,0: NEXT 

ON  BI  GOSUB  60000,60100,60200,60300, 
60400,60500 

EM=0: FOR  1=80  TO  958: C=PEEK (BS+I ) : IF 
C=B0  THEN  NEXT: GOTO  46200 
IF  C=82  THEN  EM=EM+1 

IF  064  AND  C<85  THEN  POKE  FR+I,CO(C 
-65) : NEXT: GOTO  46200 

POKE  FR+I ,0: C=C— 48: XS= ( I-INT ( I /40) *4 

0) *B+OX: YS=INT (1/40) *B+OY 

IF  C<0  OR  07  THEN  46140 

POKE  TY+C , YS+12: POKE  XH+C , XS/256: POK 

E  XL+C , XS  AND  255: IF  C=0  THEN  XX=XS: 

YY=YS 

NEXT 

TI*="000000":TG=5000+2000*BI: YS=YY: X 
S=XX 

PRINT"  {HOMEJB" j  BI ;  " {LEFT , 2SPACEJZEIT 
: " | " C6SPACE> " : RETURN 
REM  ***  MENUE  *** 

POKE  V+21 ,0: PRINT" CCLR , LIG. BLUE, DOWN 
}": GOSUB  60500 

PRINT" C5UP > " , " {ORANGE , R I GHT >SF 1 :  AUF 
GEBENS" : PR INT," CR IGHT1SF3:  +  VOGEL  S 

PRINT, "CRIGHT1SF5:  +  BILD C2SPACE5S" : 
PRINT, " {RIGHT1SF7:  PAUSE «SPACE >£" 
PRINT"  {HOME, YELLOW Jfiaaaflfiflflfiflflfl  SPRI 
ng  vogel  flflflflflanmflflfl" 

PR I NT " {GREEN , RVSON  JE {RVOFF >D I T , {SPAC 
E , RVSON  >W {RVOFF  > AHL  ODER {SPACE , RVSON 
>S {RVOFF  >PIEL" ; 

INPUT  B* : I F  B*="E"THEN  GOSUB  49000:G 
OTO  48040 

IF  B*="S"  THEN  BI=1:  GOSUB  45000: GOT 
0  48040 

IF  B*<>"W"  THEN  48040 
INPUT" {CLR, DOWN JWELCHES  BILD  SPIELEN 
";B*:BI=VAL(B*> : IF  BI<1  OR  B I >BM  THE 
N  48070 

GOSUB  45000: GOTO  48040 
REM  ***  EDITOR  **** 

INPUT" CCLR , 3D0WN1 WELCHES  BILD";B*:BI 
=VAL(B*):IF  BI<0  OR  B I >BM  THEN  49000 
PRINT"BITTE  WARTEN" : ZN=59900+BI*100: 
ZA=EA 

IF  FN  AD (ZA+2) <ZN  THEN  ZA=FN  AD ( ZA) : 
GOTO  49050 

POKE  5328 1 , 1 : PR I NT " CCLR , DOWN } " : POKE 
53281 ,0 

ON  BI  GOSUB  60000,60100,60200,60300, 

60400,60500 

REM  FARBE  SETZEN 


<007> 

<233> 

<012> 

<233> 

<127> 

<  172> 

<041  > 

<005> 
<034  > 
<064> 

<  107> 


<  121  > 
<111> 
<206> 


<  164> 

<090> 

<033> 

<  134> 

<243> 

<  190> 


<  132> 
<063> 
<24B> 

<067> 

<  163> 

<  108> 

<019> 

<244> 


<247> 

<  175> 

<087> 

<0B8> 

<167> 

<  1 44  > 


<  189> 
<093> 

<010> 

<  1 43> 

<213> 

<041  > 
<04B> 

<  122> 
<014> 
<057  > 
<021  > 

<032> 

<  165> 
<135> 

<001  > 

<210> 

<073> 
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49070 

FOR  1=80  TO  958 

<  144> 

50600 

SI=54272s  Wl=SI+4 

<241  > 

49071 

C=PEEK  (BS+I ) —65: IF  0=0  AND  C<20  THE 

50620 

POKE  SI+24,15 

<04B> 

N  POKE  55296+1, CO <C> : NEXTs 60T0  49095 

<208> 

50625 

POKE  S 1+5, 0s  POKE  SI+6, 15*16+0 

<082  > 

49075 

POKE  55296+ I,lsNEXT 

<  163> 

50630 

GL= 180: 6H= 1 8  s  A=0 

<031  > 

49095 

CP=B0 SPRINT " {HOME , L I G . BLUE  >ZE I CHEN : £ 

50710 

FOR  1=13  TO  16s FOR  N=0  TO  62: READ  Q: 

SPACE , RVSON  >A-T  £R  VOFF , 2SPACE  >POS  s  {SP 

A=A+Q: POKE  49152+ I *64+N , G: NEXTs NEXT 

<04 1  > 

ACE , RVSON  >0-7  {RVOFF , 2SPACE , RVSON  >CUR 

50720 

IF  A< >16572  THEN  PRINT"DATAERROR" s  ST 

S . {RVOFF , 2SPACE , RVSON  >CLR {RVOFF > " 

<003> 

OP 

<04 1  > 

49096 

PR  I NT " AENDERUNGEN  UEBERNEHMEN:  {SPACE 

50800 

DATA  0, 255, 0,1, 255, 12B, 1,153, 128, 1,1 

, RVSON  >  +  {RVOFF , 2SPACE  >QU I T : tSPACE , RV 

53,128,3,255,192,31 , 195,248 

<075> 

SONJF 1  {RVOFF  >  " 

<050> 

50805 

DATA  63,227,252,103,243,230,195, 249 , 

49100 

POKE  646, PEEK (CP+55296) s POKE  204,0 

<220> 

195,131,253,193,3,255,192 

<0B2> 

49105 

GET  B*:IF  B*=""  THEN  49105 

<022> 

50807 

DATA  3,255,192,1,231,128,0,231,0,0,1 

491 10 

POKE  207,0s POKE  204,1s POKE  BS+CP.PEE 

02,0,0,102,0,0,102,0,1,231,128 

<231  > 

K  <BS+CP>  AND  127 

<  1B4> 

50809 

DATA  ,,,,,,,, 

<017> 

49120 

C=ASC(B*):IF  064  AND  C<85  THEN  POKE 

50810 

DATA  0,255,0,1,255,128,129,153,129,1 

646 , CO (C-65) SPRINT  CHR*(C+32> ( s GOTO 

93,153,131,99,255,198,63,195,252 

<110> 

49140 

<21 1  > 

50815 

DATA  31,199,248,7,207,224,3,  159,192, 

49125 

IF  B*>="0"AND  B*<"8"THEN  PRINT" <WHIT 

3,191,192,3,255,192 

<165> 

Es" |B*| 

<126> 

50817 

DATA  3,255,192,1,231,128,0,231,0,0,1 

49130 

IF  B*="<DOWN>"  OR  B*=" £UP>"  OR  B*="  £ 

02,0,0,102,0,0,102,0,1,231,128 

<24 1> 

RIGHT)"  OR  B*="£LEFT>"  THEN  PRINT  B* 

50819 

DATA  ,,,,,,,, 

<027> 

<  141  > 

50850 

DATA  0,192,0,  1,224,0,  3,240,0,  2,20 

49140 

IF  PEEK (211) >3B  THEN  PRINT" £LEFT>" ; 

<023> 

8,0,  2,208,0,3,240,0,3,240,0 

<012> 

49150 

CP=PEEK  <21 1 ) +40*PEEK (214) s IF  CP>=24* 

50B55 

DATA  3,48,0,15,112,0 

<021  > 

40  OR  CP<B0  THEN  CP=B0s PRINT" {HOME , D 

50857 

DATA  . 

OWN>" 

<228> 

MM 

<224> 

49155 

IF  B*=" {CLR >" THEN  POKE  532B1 , 1 s PRINT 

50870 

DATA  0,192,0,1,224,0,3,240,0,  2,208, 

" {CLR,DOWN>"sPOKE  5328 1,0s  GOTO  49095 

<  189> 

0,  2,208,0,  3,240,0,  3,240,0 

<032> 

49160 

IF  B*<>"+"  AND  B*< >" {Fl >"  THEN  49100 

<  139> 

50875 

DATA  3,48,0,3,188,0 

<  126> 

49170 

IF  B*="£F1>"  THEN  RETURN 

<096> 

50880 

DATA  ,,,,, . ,,,,,,,,,,, 

49200 

B=BS+40 SPRINT" £H0ME,6SPACE>****  BITT 

MH 

<247> 

E  WARTEN  ***{8SPACE>" 

<  171  > 

51000 

DIM  CO (19): FOR  1=0  TO  19s  READ  CO ( I ) s 

49210 

FOR  1=0  TO  21 s  ZA=FN  AD (ZA) s A=ZA+6: B= 

NEXT 

<  1 90  > 

B+40 

<231  > 

51010 

DATA  5,5,5,2,10,8,13,13,5,5,4,4,4,4, 

49220 

FOR  J=0  TO  38 s  C=PEEK  <  B+ J ) 

<016> 

12,1,2,7,8,14 

<  139> 

49221 

IF  0=48  AND  C<=55  THEN  C=C-32sG0T0 

52000 

REM  EDIT-ANFANGSADR. 

<  121  > 

49230 

<0ia> 

52010 

DEF  FN  AD  ( X )  =PEEK  ( X )  +256*PEEK  ( X+ 1 ) 

<  194> 

49229 

IF  C<65  OR  084  THEN  C=80 

<  189> 

52020 

EA=2049 

<  1 86  > 

49230 

POKE  A+J , C+32 s NEXT  J,I 

<  159> 

52050 

IF  FN  AD (EA+2) <59800  THEN  EA=FN  AD (E 

49350 

INPUT" {CLR, DOWN >BILD  SPIELEN  (J/N)"; 

G46R 

h-  GOTO  52050 

<  184> 

B*s IF  B*="N"  THEN  RETURN 

<214> 

58000 

REM  ZEICHENSATZ  NACH  *E0000  (ZS) ,  VI 

49370 

GOSUB  45000  s  RETURN 

<006> 

DERRAM  NACH  *CC00  (BS) 

<0B7> 

49499 

RETURN 

<024> 

58020 

ZS= 1 4*4096 s  ZV=53248 

<  172> 

49999 

REM 

<020> 

58040 

IF (PEEK (53272) AND  254) =56  THEN  RETUR 

50000 

REM  **  INIT  «* 

<1B4> 

N 

<  185> 

50010 

CM=0s XS=0s  YS=0: JS=0: 0X=14s  0Y=36s  T=0s 

5B050 

POKE  53272,56s POKE  56576 , 148: POKE  64 

TG=2000 

<077> 

8 , 204 : BS=204*256 

<212> 

50020 

Q0=0sQB=8:Q4=4:Ql  =  lsQ2=2sQ7=7s  Z8=18s 

5B055 

PR I NT " {CLR , 7SPACE  > GEDULD "sPRINT: GOSU 

Z4=14s  JP=56320s  SR=49249s  TA=19B 

<  1 16> 

B  60400 

<  186> 

50040 

XH=49400s  XL=49392r  TY=49432 

<042> 

58060 

POKE  56334, 0:POKE  1,51 

<244> 

50042 

DEF  FN  Y(Y)=PEEK (49427) *B+OY 

<154> 

58070 

FOR  1=0  TO  2047:  POKE  ZS+ 1 , PEEK.  ( Z V+ 1 ) 

50045 

DEF  FN  X (X)=PEEK(49426)*8+0X 

<  173> 

:NEXT 

<225> 

50050 

V=53248s  BS= 256*204 s  XG=320+OXs  YG=200+ 

58075 

POKE  1,55: POKE  56334, 1 : A=0 

<046> 

OY 

<120> 

58090 

READ  C: A=A+C: IF  0255  THEN  59010 

<088> 

50060 

KO=V+30  s  FR=55296  s  REM  SPR . KOLL I S . REG 

58095 

H=ZS+8* (C+65) : FOR  1=0  TO  7 : READ  C:A= 

/  FARBRAM 

<076> 

A+C: POKE  H+I ,C: NEXT 

<167> 

50070 

POKE  786, 193s POKE  7B5,32sBM=6s  REM  U 

58098 

GOTD  58090 

<  1 1 7  > 

SR  ADR. , MAX. BILDER 

<074> 

58100 

DATA  0 , 255 ,60,24,24,24,60, 255 . 255 

<067> 

50090 

D1M  JU ( 13) s  FOR  1=0  TO  13s  READ  JU(I): 

58110 

DATA  1,66,66,66,66,255,24,24,255 

<036> 

NEXT 

<081  > 

58120 

DATA  2,255,24,24,255,66,66,66,66 

<  1 17> 

50100 

DATA  5, 4, 3, 2, 1,1,0, 0,-1, -1,-2, -3, -4, 

58130 

DAT A  3 , 66 , 66  f 1 26 , 66  f  66  f  66 , 1 26 66 

<206> 

-5 

<067> 

58140 

DATA  4, 12, 24, 48, 0,12, 24, 4B,0 

<  132> 

50215 

FOR  I=BS+1017  TO  BS+ 1023  s  POKE  I,16sN 

58150 

DATA  5,48,24,12,0,48,24,12,0 

<075> 

EXTsPOKE  BS+1016, 14 

<094> 

58160 

DATA  6,255,129,8,4,62,4,8,255 

<207> 

50220 

POKE  V+23 ,0s POKE  V+29, 254s POKE  V+39, 

58170 

DATA  7,255,129,16,32,124,32,16,255 

<  108> 

7 

<207> 

58180 

DATA  8,255,56,28,14,14,28,56,255 

<093> 

50230 

DIM  X(7),Y(7),RX<7), RY ( 1 ) s  FOR  1=0  TO 

58190 

DATA  9,255,28,56,112,112,56,28,255 

<058> 

7s  X ( I ) =100: Y ( I )  =  1 00s  NEXT 

<127> 

58200 

DATA  10,66,66,90,102,102,66,66,66 

<091  > 

50249 

REM  MAPRO-TABELLEN 

<159> 

58210 

DATA  11,66,66,102,102,90,66,66,66 

<049> 

50250 

FOR  1=1  TO  7s POKE  V+39+I , I s POKE  4943 

58220 

DATA  12,192,208,112,56,28,14,7,3 

<  126> 

2+1 ,30*1 s POKE  49392+1 ,35*1 s POKE  4940 

58230 

DATA  13,3,7,14,28,56,112,208,192 

<  151  > 

0+1  ,0 

<004> 

58240 

DATA  14,255,62,12,48,192,48,12,62 

<032> 

50251 

POKE  49416+1, ls POKE  49408+1 , 5+RND ( 1 ) 

58250 

DATA  15,0,0,0,0,0,0,0,0 

<225> 

*45 s  NEXT s  POKE  49401,1 

<156> 

58260 

DATA  16,0,126,126,102,102,126,126,0 

<  053  > 

50252 

POKE  49424,1s  REM  SB-FLAG 

<09  1  > 

58270 

DATA  17,24,60,60,126,126,126,60,24 

<239> 

50410 

DIM  UP (20) ,D0 (20) ,RI (20) , LE (20) ,DX (2 

58280 

DATA  18,0,223,223,0,0,251,251,0 

<214> 

0)  , DY  (20) 

<  206  > 

5B290 

DATA  19,0,102,255,153,153,56,56,0 

<  129> 

50422 

RI (0)=lsLE(0>=lsRI ( 1 >  = 1 s  LE ( 1 >  = 1 1  UP ( 1 

58299 

DATA  999 

<01 9> 

>  =1 B  RI ( 2 ) = 1 s  LE ( 2 >  = 1 s  DO ( 2 >  = 1 

<215> 

59000 

REM  **  MAPROS  ** 

<199> 

50437 

UP(3)=lsD0(3)=lsRI(3)  =  lsLE(3)=ls  UP ( 4 

59010 

IF  A< >14182  THEN  PR INT" DAT A— ERROR  IN 

) = 1 s  DO (5)=lsRI (6)  =  ls  LE (7)=lsDX (8) =4 

<035> 

58 1 00FF " : STOP 

<  105> 

50477 

DX (9) =-4s  DY ( 10) =-Bs  DY ( 1 1 >  =8: DY ( 12) =8 

s  DX ( 12) =Bs  DY ( 13) =8s  DX (13) =— Bs  DY ( 15)  = 
4 

<03B> 

Listing  »Springvogel». 

50599 

REM  SOUND 

<093> 

Bitte  beachten  Sie  die  Eingabehinweise  auf  Seite  16. 
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59014  A=0: FOR  1=49152  TD  49378: READ  NiPOKE 

I ,N:A=A+N:NEXT  I  <085> 

590 16  IF  A< >27365  THEN  PR INT "DATA  ERROR" :S 

TOP  <238> 

59020  DATA  80,70,83,32,158,183,224,8,176,3 

1 , 1B9.219, 192,45,21 ,208, 141  <077> 

59022  DATA  21 , 208 , 96 ,32 , 158,  1B3 ,224 , 16 , 1 76 

,14,134,2,32,253,174,32,235  <202> 

59024  DATA  183,165,21,201,2,144,3,76,72,17 

8,138,72,166,2,32,10,192  <031> 

59026  DATA  189,219,192,45,16,208,141,16,20 

8,70,21,144,9,189,211,192,13  <162> 

59028  DATA  16,208,141,16,208,138,10,170,10 

4, 157, 1,208,165,20, 157,0, 20B  <063> 

59030  DATA  166,2,189,211,192,13,21,208,141 

,21,208,96  <241 > 

59099  REM  <230> 

59100  DATA  32,  20,192,173,  16,193,  73,254, 

141,  16  <092> 

59102  DATA  193,162,  7,189,248,207,  24,109, 

16,193  0B0  > 

59104  DATA  157,248,207,202,  16,243,169,  7, 

133,  2  < 208 > 

59106  DATA  166,  2,1B9,  0,193,  24,125,  8,19 

3, 157  < 163> 

59108  DATA  0,193,201,  64,144,  11,189,  B,19 

3,  73  < 137> 

59110  DATA  254,157,  8,193,176,232,234,  24, 

125,240  <096> 

59112  DATA  192,133,  20,  42,  29,248,192,  41 

,  1,234  <199> 

59114  DATA  234,133,  21,189,  24,193,  32,  45 

, 192, 19B  <  0 1 2  > 

59116  DATA  2,208,203,173,30,208,96  <100> 

59140  DATA  253,174,32  <217> 

59142  DATA  9,185,211,192,13,29,208,141,29, 

20B,70,2, 144,9, 185,21 1,192  <253> 

59144  DATA  13,23,208,141,23,208,96,1,2,4,8 

,16,32,64,128,254,253  <072> 

59146  DATA  251,247,239,223,191,127  <067> 

59190  REM  <067 > 

59195  A=0: FOR  1=49440  TQ  49505: READ  N:A=A+ 

N-.POKE  I ,  N:  NEXT  <228> 

59196  IF  A<  >8224  THEN  PRINT"DATA  ERROR" : ST 

OP  <028> 

59200  DATA  32,238, 1B3, 102,  21,165,  20,106, 

74,  74  <  086  > 

59202  DATA  133,211,201,  40,144,  4,169,  15, 

176,  42  <  180  > 

59204  DATA  133,211,138,  74,  74,  74,133,214 

,  32,108  <241 > 

59206  DATA  229,164,211,177,209,  56,233,  65 

,201,  20  <204> 

59208  DATA  144,  2,169,  15,201,  15,240,  14, 

201,  18  <240> 

59210  DATA  240,  10,166,211,142,  1B, 193, 166 

,214,142  <073> 

59212  DATA  19,193,168,  76,162,179  <234> 

59800  RETORN  <165> 

59999  REM  BILD  1  <074> 

60000  :  <029> 

60001  PR I NT "  P.P.P.P PPP  P P P PPPRPPPPPPPPPPPPPPPP 

p_p_p.p.y.p.p.p.S"  <060> 

60002  PRINT"  PAP.^M.JAJJiflamMfLOJWlAP.P.PJ.l.l.l.T. 

PPPPPPRP5"  <003> 

60003  PR  I  NT  "  P-P-P.P.l-P.P.P.PJ’.E.P  P  PPP  PP  PP  PPPPPPPPPP 

.P-P-BJ-JLP-P.PS. ' '  <  1 15> 

60004  PR  I  NT  "  P-P-P-P-L-P-P-P.P-PJ-P.P.P.P.P  P  P P  P-PP  PP P  P  P  P  P  P 

PAP-PmfULS"  <01 1> 

60005  PRINT"  P-P-PP-L  PPP PPjEP P P P P PPPPPPPPPPPPPn 

IWW-P.P-5.S."  <214> 

60006  PR  I  NT  "  £PAPJ:.P.R.P.P.P£.P.P.P.P.P.P-P.P A5.S.S.S.S.SA5.P.P 

PPPPPPP55"  < 131 > 

60007  PRINT" PJU1ACJTAH-P-P-EJV1-H.R-P-P-P-P-P-P-P.P_P_P-P-P-P-P-P. 

P-P.P.P-P-P-R-5.5  "  <  1 33  > 

60008  PR I NT " PPPPFPPPPPEPPPPPP P7 PPPPPPPPPPP 

PP.PPPPP.5  5"  <232> 

60009  print"  pjj^.p.p.PAPj.p.p.pjJuuwi^agmaflaafl 

mmw.5.11  <067> 

60010  PR  1  NT  "  P-PP  PFPPPPPEPPPRPPPPPP  PP.PPPP  PPP 

PPPPPPHPP"  <100> 

60011  PRINT"  P.P-P.P7-P.PPP  PEPPUHnnnpppppppppppp 

P-P-P_P_P-P-IIP-P"  <  184> 

60012  PR  I  NT  "  P-PP  P  FPPPPPEPPPPPPPPPP  P  PPP  PP  ppp 

PP  PPPPDPP"  <094> 

60013  PR I NT "  PPP  1-F.P PP PPEPPPPPPPPPPPPPPPPPPP 

-P-P-P-P.P-P-D-PP  "  <  1 9 1  > 


60014  PR I NT " PPPPFP PPPPEPPPPPPPPPPPPPPPPPRH 

üüailüflafls" 

60015  PRINT" PPPPPPPPPPEPPPPPPPPRPPPPP P3 P-F-P 
PPPPPPPPD" 

60016  PRINT" PPPPRPPPPPEPPPPPPPPRPPPPPPPPFP 

PPPPPPPPD" 

60017  PR INT"P-P-P-P.G.G-G.GG G EPPPPPPPRKRPPPPPPPFP 
PPPPPPPPD" 

60018  PRINT“ PPPPPPPPPPPPPPPPPPBKHPPPI IPPFP 

PPPPPPRPP" 

60019  PR I NT " PP  PP  PPPPPPPPPPPPPPPKPPPPKP R  PF  P 
pppB-PP-nB-B." 

60020  PR INT'VPPPPPPPPPPRPPPPPPPPKPPPPKPPPPP 

fm".«.p.p.pi." 

60021  pr  i  nt  11  pa.P-P-R.P-P-P-PJwmu-i  R-P-P-KP  p  pp  kurrup 

60022  PRINT "^^JAFlfl-GJ<-5-S-55 5.5 5BJI_FI-Dn_I-l-I-K.5.S-5-5.5 

60030  RETURN 
60100  : 

60101  PRINT" PPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 
PPPPPPPPP" 

60102  PRINT"  P-P-P-P-P.R-P-P-R-P.P.P-P-P-P.P-P-P  P  P  P  PP  P  P  P  P  P  R  P 
PPRPPPPPP" 

60103  print" nFiRPFinnHnfinpppnnFiRPRFifin pp pnnnn 

aaaoaa&Sfl" 

60104  PRINT" PP  PPPPPPPPPPPPPPPP  P  PP  P  P  P  P  P  P  P  P  P 
PP-P-P  P  P  P  P  P  " 

60105  PR I NT "PPRPPPPP1IIIP4PPPPPPP  PP  P  P  3  J  3  3  P 
PPPPPPRPP" 

60106  PRINT" PPPPPPPPPPPPPRJJJJBIIIIRPPPPPP 
PPPPPPPPP" 

60107  PRINT"  PPR1IIIPPPPPPPPPPPPPPPPPPPPPPP 
JJ-J-J-J-P-R-P-P." 

60108  PR I NT "PPPPPPPJ3JPPPPPPPPPPPPPPPPPIII 
PPPPPPPPP" 

60109  PRINT"  PPRPPPPPPPJJJ  JP.PPPPPPPPI  I II  PPP 
PPPPPPRPP" 

60110  PRINT"  PPP.PPPPPPPPPPPJJ  JPPPI II  pp  pp  ppp 
PPPPPPPPP" 

62.;.!  1  PRINT"  .P-Pfl  P-P-P-P-P-P-P-P-P-P-P.P-PP.P  P.P-P-P-P-P-P-P.P.P-P-P 
PPPPPPPPP" 

60112  print" cnnRflnFmnnHHnRnnFiRn.annnfmfi.anfiH 

aaaaaaaafl" 

60113  PR I NT "  P.5P  PP  PPPPPPPPPPPPPPPPPPPPPPPPP 
PPPPPPPPP" 

60114  PRINT"  D5PRPPPPPPPPPPPPPPPPPPPP.PP.PP.PP 
PPPPPPPTP" 

60115  PRINT“  ns.Pfl.PP  PP PPPPPPPPPPPPPPPPPPPPPP 

60116  PRINT"  tt5.P PP5PPPPPRPPPPPRPPPPPPRPPAPP 
R  P  PPPPPPR" 

60117  PRINT"  D-S.flAG-P-P-P-P-C-R-H-H-RRRAaPTnn-nj-R-RAlUiAB. 


60118  PRINT" PPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 
P.P.P  P  PP  P  PP" 

60119  PR I NT " .P.T.P.P.DP.P.P..PP PPPPPPPPPPPPPPPPPPPP 
PPPPPPPPP" 

60120  PRINT" mP-PJ.P.P-P-PJlP.P-P.PAPP.R-P.P.P.R-P.P R P-P.R-PP. 
R-P-P.P-P.P.P.P.R" 

60121  PRINT"  nP-P-PPP.P.P.2  PPP  PP  P  PPPPPPPP3PPPPPP 
P-P.P.P-P.P.P.P-P" 

60122  PRINT" 

wmwwfl“ 

60150  RETURN 

60199  REM  BILD3 

60200  : 

60210  PRINT" .S^A5A^PAP-W3UXI.PJ.eXUXI^.PJJ\ 

niuinmuu«" 

60214  PRINT" ■P-P-P-5T-5_P-P-P-P-5-P-PJtP-5-5-P-P.B-P-P-P.L-P-P-P-P.P-P. 

PPPPPPPPN" 

60216  PRINT"  IIR5FSPPPPSPPDP  S.S.P.P.P.P.S  PLPPPPPP 
PP0PPPPNP" 

60218  PR  I  NT  "  .K.P-P-5 F.5.P.P-R-P.5.P,P.nP_5.5-P-P-P_R.5-P-l-P.P-P.P.P.P. 
PPRPPPHPP" 

60220  F'RINT"  KPL5F5PPRP5P  PDP55  P  PÜF15  PLPPPPPP 
P-P-P-P-PJLPJLP." 

60222  PRINT " KPL5F5PPRP5PPDP5SPPPPPPLPPPPPP 
PPPPNPPPP" 

60224  PRINT" KPL5F5PPPP5PP DP SSBRPPPPLPPPPPP 
■P-P.PKP-P.P.P.P." 

60226  PR  I  NT  "  R.P.L.5  FS- PF,  P  PPPPDP5PP6PPPPLPPPPPP 
££ä.PÜBiP." 

60228  PR I NT "KPL5F5PPIILPPPP5PPRRPPPIPPPPPP 
.P.W.P.P.P.P.P.P.P," 

60230  PRINT" RPL5F5PPPPLPP PP SPPPRRPPLPPPPPP 
.N.  P.P.P.P.  P.P.P.P. 1 ' 


<146> 

<23B> 

<  184  > 

<  004  > 

<093> 

<  187  > 
<220> 

<  170> 

<  1 14> 

<  1 41  > 

<129> 

<144> 

<215> 

<206> 

<  147> 

<  186> 

<  198> 

\ 

<  1 19> 
<172> 
<055> 

<  191  > 

<  138> 
<051  > 

<  059  > 
<069> 

<  151  > 
<028> 
<015> 
<079> 
<20B> 
<236> 

<  132> 

<142> 
<005> 
<021  > 
<231  > 

<  191  > 
<200> 
<126> 
<056> 

<  146> 

<  165> 
<033> 
<144> 

<  109> 
<126> 


152 
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60234  PR I MT " KPL5F5PPPPL  PPDP5PPPPPPPL  PPPPPN 

PP5PPPPPP"  <077> 

60237  PRINT".KPRSFSPPPPl  PPDPSFIHHPPPPLPPP4N.P 

.P.PAP.P.P.PAP"  <034> 

60240  PRINT  11  KPP5F5PPPPL  PPDP5PP  P.FtHO  P.L.P  P  PN  P  P 

p.p.ä.p.p.pmp."  <  1 17> 

60244  PRINT" K.P.P.5.F  AP.P.P.P.l.P.PAPAP. P.P.P  P.K  P  L.P.P  R-P-PP 

60247  PRINT" .KAP.SA5.PAP-P777-IU77777-I.K.P.I.P.PAP.PA 

PPPPPPPPP"  <01 3> 

60250  PR I NT "  R-P.T.5.L-5.P-P.P-P-P.P ■PHPP.PP.PPP.PPI  P PPflPP 

.p.p.p.p-pjjmp"  <  1 15> 

60254  PRINT"  KPPS15PPPPPPP_HP.PPP.PP  P  PPL  PPPPflP 

APAP.P.P2.P.P."  <020> 

60258  PRINT" KJJJJSPPRPP1P DP PPPPPPPPLPPPPPh 

PPAflflfl£££."  <220> 

60260  print" P-P.P-PP pppnnnppDPPPppppppipppppp 

HLB.P.P-P.P.P.P."  <0B6> 

60263  PRINT" PP P P P PP P P P P P PDP P P PP P P P P L P P P P P P 

PJ-P-P-P.PmP"  <123> 

60264  PRINT"  P  P  P  PP  PP  P  P.PPP  PDPP  P  P  R  p  P3  P  L  P  P  P  P  P  P 

PPflPPPPPP"  <210> 

60270  PRiNT"aFLB^mmaamiamaaaBmaflaFiaflAafl 

aaaflflflaafl"  <i8i> 

60280  RETURN  <137> 

60299  REM  BILD4  <250> 

60300  t  <075> 

60301  PRINT"  .PJWLRflJlP-P-P-P.P-P-P.P-P-P-P-P-P.P.P-PP-P-P.P-P-P-S. 

J5APJUJJJJ."  <  143  > 

60302  PR  I  NT  "  .P-P-P-P.P-P-P-I-l-I.l J-1-I.R.1-1.11I.C.X1.1I  I  I-1L  S. 

.5XJ.J2.P-P-P-K"  <223> 

60303  PRINT" P P-P.P.P.P.P-P.PP.P.PP.PR.5 5ASALAE P P P P PIS 

NPPPPPPPK"  <  009  > 

60304  PRINT"  PP-P-I.X.I-I  .PAP.PJ  AJ.J  A5.P.P.P.LAE.P.P.P.PP.L.N 

P  PPP P P  P  R  K "  < 129> 

60305  PRINT"  PPPPPPPPPPPP3PP5PPPPL5E PP.3R n B 1 

.PPPT.IP.PRB"  <237> 

60306  PR  I  NT  "  J.J.J  PPP  P  PPP  PP  PPP5HRSSLSERPPPPPP 

PPPPPPPPP"  <  07 3  > 

60307  PR  TNT"  PPPPPPPPP  P.P.P  PPP  5  5  fl  5  5  15EIPPPPPR 

PPPPPPPPR"  <050> 

60308  PR I NT "PPPPRJJJPPPPPPP555P5L5EPRPPIII 

PPPIIPPIC"  <176> 

60.309  PRINT"  P.PAKHH.KX.P.P.3.3.J.P  P.P  P5  R.5  L.5E  P  I  P  P  P  P  P 

ümüitäüüS"  <110> 

60310  PRINT"  .P-P-FAP.P.P.P.P.P.P.P_P.P_P_P.PAPAL.5.EAHAHAH.H. 

PPPPPPPPP"  <00B> 

60311  PR  I  NT  "  P.PAS.P.P.P.P.PAP  P.J  J  3  J  P  5  R.5  L5EPPPPPPP 

PPPPPPPPR"  <005> 

60312  PRINT"  PRT  SP  PPP  PPPPPPPPP  5  P.5.L5EPP.R.P.P.PR 

PPPPPPPPJ"  <134> 

60313  PRINT"  FAHAP  PPP  P.P.P  PP  P  I.I.P5R  S.l.S.E.P.PJt.PP.J.J 

JPPOPPPRP"  < 250  > 

60314  PR  I  NT  ".F.P.P.P.P.P.l.l.I.P.I.I.I.P.P.P.P.S.P.S.P.S.P.Pflfmjth.H 

Hnnrnw-P-pj."  <i7i> 

60315  PRINT"  F.P.P-P  I77.P.P.P.PP.P.PP.PP.PPP.P  .PPP.S.S.5.5.5.5 

.5.5.5.5.S.5.5.5.5."  <040> 

.P-P.P.P.P.P.P.P.5."  <  167> 

PPPRPPPR5"  <044  > 

60319  PRINT" Aq.^5A5.5.5A5.SA.SAS.5A5.5.5.S.S.S.5.5.5ja S^. 

.R.P.P3.P.P.PA5"  <099> 

60320  PRINT"  SJ1.P.P.PP.P.P.P.P.P.P.PP.P-P.P.P.P.PP.P.P.P.P.P.P.5.S.5. 

ippppppps'.  <  149> 

.P.P.P.P5.P.P-P.S"  <215> 

flBflflaaEm"  <i07> 

60380  RETURN  <237> 

60399  REM  BILDS  <222> 

60400  s  < 175> 

60401  PRINT"  RflIWlS.J.P-P.1  ■P.PAG.cmPfl.P.P.P-P.PJ.J-JA'lfl 

■P.C_P_P.P_P_PAP."  <  157> 

60402  PRINT"  P P. P.P-5 5.5.P PP.PPPPDPPPPPPPPPPPPPPP 

P.R-P-P-P-P-P-P.P"  <124> 

60403  PRINT" PPPPSS5PPPPPPPDPPPPPPPPPPPPPPP 

P  K.J-J.P-P  P  P  P,"  <  09 1  > 

60404  PR  I  NT  "  P-P-PXS.5.5.P.P,P,P-R-P.P -D.P.P-R.P.P-P.P.P-ILP-P-P-P-P-P 

PPPPPPPPP"  <206> 

60405  PR I NT "  P.PW.P55.5I  I  I  I  IPPJPPPPPPPPPPPPPPP  * 

fwmw."  <0i0> 

60406  PRINT" PPHPSS5PPPPP0PEPPPPPPPPPPPPPRP 

PPHHPPPPP"  < 108> 


60407  PRINT" .P.PP.HPSSCBPPPPPE PPJ  J  JCOPPOPPPOP 

P.OJ.P-P-P.P-P-P."  <096> 

60408  PRINT"  P.P PinPPHP 5 P.P P PE P3 PPPDPPPPPPPPP 

PPP.PAB.RP.P"  <215> 

60409  PRINT"  P.P.P.P.PAPAPAR.RAR.ILRAP.P.PAP-P.P.I.I.I7.P.J. 

.JJ.3.P.P.P.P.R.P."  <  130> 

60410  PRINT" .RR-P.P.P.Pn-HPAP.P.PP.PPP.P.P.P.n_P.P?PJ.J.ajP 

P-P-P-P.P-PAAP."  <113> 

60411  PRINT"  ajJJAPADPAAHm?-aj.JJ.JAP.P.P.P.P.P-P.P.P. 

P-P.PP777.PP."  <229> 

60412  PRINT"  PPPPPPPDP5PPPPPPPPPPD P.P.P.I.I.I.I.P.P 

PI.OIQPPPP"  <059> 

60413  PR  I  NT  "  .P.Q.3  .J  .P.P.P  AP.5.P.P.P.P.P  PP  PPPDPPPPPPPPP 

.P.K.5.5.5.S.5.C.P."  <235> 

60414  PRINT"  P  P  PP  P  P  PDP  P  P  P  P  P  P4  P.P  P  P  PP  P  P  P  P  P  P  P  P 

.PASAS.SALP."  <033> 

60415  PRINT" 

BKA5  5.SAP.P"  <052> 

60416  PRINT"  P.P.P.P.P.P.P.5A5A5.5A5AS.5AP.B.P.P.K.P.P.L.P.P.K. 

■P.P.L.P.P.PAPA"  <209> 

60417  PR  I  NT  "  77.P.P.P.P.PA5.SA5A5AP.P.P.P.P.11P.P.R.P.P.L.P.P.K. 

-P.P-LBmS.PA"  <222> 

60418  PRINT" .P.P.P.P.P.P.PA5A5.5A5S P HHHP JP P.K  P P l  P PK 

.P.P.l.P.PJlS.tA"  <204> 

60419  PRINT" .P.P-BJ.J.P-P.P.P-P.P.P-P.5ARASAPAP.P.K.P.P.I.P.P.K. 

P.P.L.P.HD.5.R.5"  < 005  > 

60420  PRINT"  P.P.P.P.P  P  P  PP.P  P  PP.SAP 5 5.5  P.HP  P K  P  P  L  P  P K 

60421  PRINT"  I7.P.P.P.P.P.P.P.P.P.P.PB  P.P.SAS.PAP.P.K.P.P.L.P.P.K. 

P_P.L-PJ1P-P-L.5  "  <21 1> 

60422  PRiNT"flßaflaaamojjjAiflfiflaiäiaäaasma 

■B.B.BABIWL5."  <  192> 

60480  RETURN  <083> 

60499  REM  BILD6  <197> 

60500  :  <021 > 

60501  PRINT" P  PPP PPPPPPPPPPPPPPPPPPPPPPPPPP 

.P-P.P.P.P.P.P-P.B,"  <040> 

60502  PRINT” PPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 

.P.P.P.BJ.JJ.P.K."  <  166> 

60503  PRINT"  P.P PPPPPPHHHQJ  PPPPPPPPPPPPPPPPP 

P  P  P  S  P.P.P P  K  "  <040> 

60504  Rf  .NT"  PPPPPPPRPPPPPPP33JPP.P  P.P.P  P  P  P  P  P  P 

PPPBPPPPK"  <241 > 

60505  PR  I  NT  "  .P-P-P-P4P  P-P-P-P.P.P-P-P.P-P.P  PPP  P  P  P.P  P  P  P  PPJ 

60506  PRINT" PPPPPPPCPPPP PP PPPP03JPPPPPPPRP 

PPPPPPPPP"  < 121 > 

60507  PR  I  NT 11  .P.P.P-P-P.PXSAP-P.P.P-P-P-P  P  P  P  P  P.P  P  J  J  3  Qfl  J  P 

PPPPPI X 18"  <220> 

60508  PRINT" AP.P.P.PXSASAP.P.P.P-P.P.P-P.P.P.P.P-P.P.P.P.P.P.P.P 

PPPPPPPPP"  < 121 > 

60509  PR  I  NT  "  F  P  P  PWS  5  P  5  5AP  P.P  P  P  P  PPP  P.P  P  P  P  P  P  P  P  P 

.P.P.P.PJ.J.P.P.P."  <229> 

60510  PR  I  NT  "  F.P  PASAP.R.P.S  SAB.B.B.P.BBB.PBB.S.B.BAP.P  P.P. 

PPPPPPPPP"  < 1 19> 

60511  PRINT"  fJAS.sAP.T.p.5.5.5ma.P.Ba.sAB-0.SB.a.a.p.P-P-P 

P.P.P.P7777B"  <195> 

60512  PRINT" FB.5.SASA5.5S 5 SSIIIIIIIIIIIIIhPPP 

.P.P-P.P.PAP.P-K."  <231  > 

60513  PRINT  "  APAPAP.3.a.3.P.P.P.3.3.S.5A5.5A5.5.S.5A5.SAP.P. 

■P.P.P.P.P.B.P.P.K."  <203> 

60514  PRINT" .XAS-P.T.P.5-5.S.PAPASA-P-P.P.5ASAP.P.P.5ASAP. 

■P-P.P.P-P.LP.PA"  <127> 

me.w.p.«."  <049> 

60516  PRINT"  5a5  5.D.S.S.S.5AS.SASA.ST.SA5.S.5.5T.5.5.SSAS 

AP.P-P.P.K.P.P.S."  <  167> 

AP.P.P.P.K.P.PB."  <061  > 

60518  PRINT" .RASAD.S.SGG.GRAP.PPAPP.P.P.P.P.PPAP.P.PP.S 

5APPP K PP K "  <092> 

60519  PR  I  NT  "  G.RAS AS  S.P  P.P  TAR.PAR  P  P  P  UR  P.PA5.PAAP.5 

a-UJ-J-K-P-P-K."  <240> 

60520  PRINT "AH.5AHSATTTT.S7777ai77IS77APPPA5 

S-I.P-SS.S.S.P.K."  <097  > 

AP-PA-S-sjal"  <076> 

60522  PR I NT ' ' .HAB.fWAn.H.flA5A5 5 S.S.S.SSASS.SSABJiAI. 

l-lB.SSSAnjB"  <047> 

60580  RETURN  <1B3> 
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